Changeset b719a3 in git for Singular/ring.h

Timestamp:

Jul 8, 1999, 3:38:44 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

2082b6153c70d5e5b989c2d74d656bd2e080a3c7

Parents:

da408fe6b31ced4ed0febcceb258e7a27064215a

Message:

*hannes: ring fixes: real + param.


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

File:

• Singular/ring.h (modified) (5 diffs)

Singular/ring.h

@@ -7 +7 @@
 * ABSTRACT - the interpreter related ring operations
 */
-/* $Id: ring.h,v 1.28 1999-07-01 16:40:44 Singular Exp $ */
+/* $Id: ring.h,v 1.29 1999-07-08 13:38:42 Singular Exp $ */
 
 /* includes */
 #include "structs.h"
 #include "polys-impl.h"
+
+#define SHORT_REAL_LENGTH 6 // use short reals for real <= 6 digits
+
 
 #ifdef DRING
@@ -62 +65 @@
 inline BOOLEAN rField_is_R(ring r=currRing)
 {
-  if (rField_is_numeric(r) && (r->ch_flags == (short)0)) return TRUE;
+  if (rField_is_numeric(r) && (r->ch_flags <= (short)SHORT_REAL_LENGTH))
+    return (r->parameter==NULL);
   return FALSE;
 }
@@ -75 +79 @@
 inline BOOLEAN rField_is_long_R(ring r=currRing)
 {
-  if (rField_is_numeric(r) && (r->ch_flags != (short)0))
+  if (rField_is_numeric(r) && (r->ch_flags >(short)SHORT_REAL_LENGTH))
     return (r->parameter==NULL);
   return FALSE;
@@ -81 +85 @@
 inline BOOLEAN rField_is_long_C(ring r=currRing)
 {
-  if (rField_is_numeric(r) && (r->ch_flags != (short)0))
+  if (rField_is_numeric(r))
     return (r->parameter!=NULL);
   return FALSE;
@@ -121 +125 @@
   rOrderType_Schreyer,     // Schreyer ordering
   rOrderType_Syz2dpc,     // syzcomp2dpc
-  rOrderType_ExpNoComp    // simple ordering, differences in component are 
+  rOrderType_ExpNoComp    // simple ordering, differences in component are
                           // not considered
 } rOrderType_t;