Changeset ece273 in git

Timestamp:

Feb 4, 2005, 3:43:19 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '00e2e9c41af3fde1273eb3633f4c0c7c3db2579d')

Children:

70504e0e59aca3d6b5349420147a7147e47e8e53

Parents:

f8362b458adfbc85cbe2df1a814f2b540b0eaab2

Message:

*hannes: proc variables


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.335 2005-02-04 14:33:13 Singular Exp $ */
+/* $Id: iparith.cc,v 1.336 2005-02-04 14:43:07 Singular Exp $ */
 
 /*
@@ -1446 +1446 @@
 {
   idrec tmp_proc;
+  Subexpr e;
+  void *d;
+  int typ;
   BOOLEAN t=FALSE;
   if (u->rtyp!=IDHDL) 
   {
     tmp_proc.id="_auto";
-    tmp_proc.typ=IDHDL;
-    tmp_proc.data.pinf=(procinfo *)u->data;  
+    tmp_proc.typ=PROC_CMD;
+    tmp_proc.data.pinf=(procinfo *)u->Data();  
     tmp_proc.ref=1;
-    u->data=(void *)&tmp_proc;
+    d=u->data; u->data=(void *)&tmp_proc;
+    e=u->e; u->e=NULL;
     t=TRUE;
+    typ=u->rtyp; u->rtyp=IDHDL;
   }
 #ifdef HAVE_NS
@@ -1467 +1472 @@
   if (t)
   {
-    u->rtyp=PROC_CMD;
-    u->data=(void *)tmp_proc.data.pinf;
+    u->rtyp=typ;
+    u->data=d;
+    u->e=e;
   }
   if (sl==NULL)