Changeset aa4e28 in git for Singular/iparith.cc

Timestamp:

Apr 9, 2024, 4:45:14 PM (6 weeks ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

806aa6c0fd11dd028cc4613b3207981bf99cd82a

Parents:

b731111a31281d6447b4a56ab74d5c5ca6660db9

Message:

HAVE_RINGS is default (p1)

File:

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

Singular/iparith.cc

@@ -95 +95 @@
 #endif /* HAVE_PLURAL */
 
-#ifdef HAVE_RINGS
-  #define RING_MASK        4
-  #define ZERODIVISOR_MASK 8
-#else
-  #define RING_MASK        0
-  #define ZERODIVISOR_MASK 0
-#endif
+#define RING_MASK        4
+#define ZERODIVISOR_MASK 8
 #define ALLOW_PLURAL     1
 #define NO_NC            0
@@ -2412 +2407 @@
 static BOOLEAN jjHILBERT2(leftv res, leftv u, leftv v)
 {
-#ifdef HAVE_RINGS
   if (rField_is_Z(currRing))
   {
@@ -2418 +2412 @@
     PrintS("//       performed for generic fibre, that is, over Q\n");
   }
-#endif
   assumeStdFlag(u);
   intvec *module_w=(intvec*)atGet(u,"isHomog",INTVEC_CMD);
@@ -4051 +4044 @@
 {
   SPrintStart();
-#ifdef HAVE_RINGS
   if (rField_is_Z(currRing))
   {
@@ -4057 +4049 @@
     PrintS("//       generic fibre, that is, over Q\n");
   }
-#endif
   assumeStdFlag(v);
   intvec *module_w=(intvec*)atGet(v,"isHomog",INTVEC_CMD);
@@ -4164 +4155 @@
   if (rIsLPRing(currRing))
   {
-#ifdef HAVE_RINGS
     if (rField_is_Ring(currRing))
     {
@@ -4170 +4160 @@
       return TRUE;
     }
-#endif
     if (currRing->qideal != NULL)
     {
@@ -4349 +4338 @@
 static BOOLEAN jjHILBERT(leftv, leftv v)
 {
-#ifdef HAVE_RINGS
   if (rField_is_Z(currRing))
   {
@@ -4355 +4343 @@
     PrintS("//       performed for generic fibre, that is, over Q\n");
   }
-#endif
   assumeStdFlag(v);
   intvec *module_w=(intvec*)atGet(v,"isHomog",INTVEC_CMD);
@@ -4364 +4351 @@
 static BOOLEAN jjHILBERT_IV(leftv res, leftv v)
 {
-#ifdef HAVE_RINGS
   if (rField_is_Z(currRing))
   {
@@ -4370 +4356 @@
     PrintS("//       performed for generic fibre, that is, over Q\n");
   }
-#endif
   res->data=(void *)hSecondSeries((intvec *)v->Data());
   return FALSE;
@@ -5517 +5502 @@
   if (rIsLPRing(currRing))
   {
-#ifdef HAVE_RINGS
     if (rField_is_Ring(currRing))
     {
@@ -5523 +5507 @@
       return TRUE;
     }
-#endif
     if (currRing->qideal != NULL)
     {
@@ -6238 +6221 @@
     return TRUE;
   }
-#ifdef HAVE_RINGS
   if (rField_is_Z(currRing))
   {
@@ -6244 +6226 @@
     PrintS("//       performed for generic fibre, that is, over Q\n");
   }
-#endif
   assumeStdFlag(u);
   intvec *module_w=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
@@ -6266 +6247 @@
 static BOOLEAN jjHILBERT3Qt(leftv res, leftv u, leftv v, leftv w)
 {
-#ifdef HAVE_RINGS
   if (rField_is_Z(currRing))
   {
@@ -6272 +6252 @@
     PrintS("//       performed for generic fibre, that is, over Q\n");
   }
-#endif
   assumeStdFlag(u);
   ring Qt =(ring)v->Data();