Changeset 470c7c in git for Singular/longalg.cc

Timestamp:

Nov 20, 2000, 6:29:45 PM (23 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b50cc4fc80fdf2a2005655a08d9229aa4b32d4a5')

Children:

46ef831fee90675a390997d7e054e7e78d8271fc

Parents:

3071524728cf2c0ac4d88246ee7e3f3d272cb398

Message:

bug fix


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

File:

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

Singular/longalg.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.cc,v 1.48 2000-11-17 14:07:11 Singular Exp $ */
+/* $Id: longalg.cc,v 1.49 2000-11-20 17:29:45 obachman Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -172 +172 @@
 
 
+#ifdef LDEBUG
+static void napTest(alg p)
+{
+  while (p != NULL)
+  {
+    if (naIsChar0)
+      nlDBTest(p->ko, "", 0);
+    omCheckAddrSize(p, napMonomSize);
+    p = p->ne;
+  }
+}
+#else
+#define napTest(p) ((void) 0)
+#endif
+
 /*3
 * creates  an alg poly
@@ -470 +485 @@
       while (a!=NULL);
     }
+    // need to do this, since nacNeg might have changed h
+    exp->ko = h;
   }
 }