Changeset 91b031 in git

Timestamp:

Mar 15, 2011, 4:14:58 PM (12 years ago)

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

22579cf2576a536b5b44f1a1f2a2d773444baeda

Parents:

dd5534a607684bd18fa828b336e69ddaf1ce55d1

Message:

disabled vdim/kbase over rings

git-svn-id: file:///usr/local/Singular/svn/trunk@13974 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/iparith.cc (modified) (3 diffs)

Singular/iparith.cc

@@ -2294 +2294 @@
 static BOOLEAN jjKBASE2(leftv res, leftv u, leftv v)
 {
+#ifdef HAVE_RINGS
+  if (rField_is_Ring(currRing))
+  {
+    WerrorS("kbase: only defined over ground fields");
+    return TRUE;
+  }
+#endif
   assumeStdFlag(u);
   intvec *w_u=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
@@ -3984 +3991 @@
 static BOOLEAN jjKBASE(leftv res, leftv v)
 {
+#ifdef HAVE_RINGS
+  if (rField_is_Ring(currRing))
+  {
+    WerrorS("kbase: only defined over ground fields");
+    return TRUE;
+  }
+#endif
   assumeStdFlag(v);
   res->data = (char *)scKBase(-1,(ideal)(v->Data()),currQuotient);
@@ -4683 +4697 @@
 static BOOLEAN jjVDIM(leftv res, leftv v)
 {
+#ifdef HAVE_RINGS
+  if (rField_is_Ring(currRing))
+  {
+    WerrorS("vdim: only defined over ground fields");
+    return TRUE;
+  }
+#endif
   assumeStdFlag(v);
   res->data = (char *)(long)scMult0Int((ideal)v->Data(),currQuotient);