Changeset 44f44d in git for kernel/ring.cc

Timestamp:

Aug 9, 2004, 6:16:01 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

08c051d4a2916e8bd6f05a5b1cdd88ccbeb4c024

Parents:

a138f8d226e7bb142be32943bf692fe0bb1fc861

Message:

*hannes: fix rOpp


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

File:

• kernel/ring.cc (modified) (4 diffs)

kernel/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.13 2004-08-09 14:44:31 Singular Exp $ */
+/* $Id: ring.cc,v 1.14 2004-08-09 16:16:01 Singular Exp $ */
 
 /*
@@ -3469 +3469 @@
   for(int i=i2; i>=0; i--)
   {
+    //Print("ex: %d <-> %d\n",i,rVar(r)-1-i);
     // exchange names
     char *p;
     int t;
-    p=r->names[rVar(r)-i];
-    r->names[rVar(r)-i]=r->names[i];
+    p=r->names[rVar(r)-1-i];
+    r->names[rVar(r)-1-i]=r->names[i];
     r->names[i]=p;
     // exchange VarOffset
     t=r->VarOffset[i];
-    r->VarOffset[i]=r->VarOffset[rVar(r)-i];
-    r->VarOffset[rVar(r)-i]=t;
+    r->VarOffset[i]=r->VarOffset[rVar(r)-1-i];
+    r->VarOffset[rVar(r)-1-i]=t;
   }
   // change names:
@@ -3489 +3490 @@
   // change ordering: listing
   // change ordering: compare
-  for(i=0; r->typ[i].ord_typ!=ro_none; i++)
+  for(i=0; i<r->OrdSize; i++)
   {
     int t,tt;
@@ -3531 +3532 @@
       case ro_none:
       default:
-       WerrorS("unknown typ in rOpp");
+       Werror("unknown typ in rOpp(%d)",r->typ[i].ord_typ);
        break;
     }
   }
   // avoid printing changed stuff:
-  r->order[0]=0;
+  r->order[0]=ringorder_unspec;
+  r->block0[0]=1;
+  r->block1[0]=rVar(r);
+  rDebugPrint(r);
   return r;
 }