Changeset f99320 in git for Singular/iparith.cc

Timestamp:

Mar 16, 2011, 10:10:35 AM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

ddbc222c9c9055770463cb321791c38c081d78ef

Parents:

199cd68d23f96331d3327f7a0b11a46accefa1db

Message:

better impl. for rev. 13974

git-svn-id: file:///usr/local/Singular/svn/trunk@13986 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);
@@ -3997 +3990 @@
 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);
@@ -4709 +4695 @@
 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);