Changeset 9cb530 in git

Timestamp:

Nov 20, 2009, 10:51:38 AM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '5d369c3cbad1a1bf2d5c856a48fb8a30b51cec3b')

Children:

61ba9d04e48dd4347c6a2297b8fbd8a25b51ab3a

Parents:

631b6c81789b80cf085b6b9269a246ec2c0728a1

Message:

*hannes: debug stuff

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

Location:

Singular

Files:

• iparith.cc (modified) (2 diffs)
• misc.cc (modified) (2 diffs)

Singular/iparith.cc

@@ -8700 +8700 @@
     return cmds[0].name;
   }
+  if (tok==COMMAND) return "command";
   if (tok==ANY_TYPE) return "any_type";
   if (tok==NONE) return "nothing";
@@ -8728 +8729 @@
   }
   if (tok==ANY_TYPE) return "any_type";
+  if (tok==COMMAND) return "command";
   if (tok==NONE) return "nothing";
   //if (tok==IFBREAK) return "if_break";

Singular/misc.cc

@@ -592 +592 @@
   switch(l->rtyp)
   {
+    case INT_CMD:
+    case BIGINT_CMD:
+      break;
     case POLY_CMD:
     case VECTOR_CMD:
@@ -610 +613 @@
         while(p!=NULL) { p_SetRingOfLm(p,r); pIter(p); }
       }
+      break;
+    }
+    case COMMAND:
+    {
+      command d=(command)l->data;
+      p_SetRingOfLeftv(d->arg1, r);
+      if (d-argc>1) p_SetRingOfLeftv(d->arg2, r);
+      if (d-argc>2) p_SetRingOfLeftv(d->arg3, r);
       break;
     }