Changeset cb66fa in git for Singular/ideals.cc

Timestamp:

Sep 14, 2000, 3:04:41 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

45f38d6f3e40e1b9a2353cf58170baec48e127c6

Parents:

cba51679f82810c5f39ae893f98c5c62821f0297

Message:

* new implementation of PDEBUG stuff


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

File:

• Singular/ideals.cc (modified) (4 diffs)

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.101 2000-09-12 16:00:54 obachman Exp $ */
+/* $Id: ideals.cc,v 1.102 2000-09-14 13:04:35 obachman Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -321 +321 @@
 
 #ifdef PDEBUG
-  idDBTest(h1,f,l);
+  idDBTest(h1,PDEBUG,f,l);
 #endif
 //#ifdef TEST
@@ -347 +347 @@
 
 #ifdef PDEBUG
-void idDBTest(ideal h1,char *f,int l)
+void idDBTest(ideal h1, int level, char *f,int l)
 {
   int i;
@@ -357 +357 @@
     /* to be able to test matrices: */
     for (i=(h1->ncols*h1->nrows)-1; i>=0; i--)
-      pDBTest(h1->m[i],f,l);
+      _p_Test(h1->m[i], currRing, level);
     int new_rk=idRankFreeModule(h1);
     if(new_rk > h1->rank)
     {
-      Print("wrong rank %d (should be %d) in %s:%d\n",
-      h1->rank, new_rk, f,l);
+      dReportError("wrong rank %d (should be %d) in %s:%d\n",
+                   h1->rank, new_rk, f,l);
+      omPrintAddrInfo(stderr, h1, " for ideal");
       h1->rank=new_rk;
     }