Changeset 2687e2 in git

Timestamp:

Jan 13, 2015, 5:05:02 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

cee2052c592af6805a2f85edda3e0bd517fb1b69

Parents:

d711b46eb29f241f3854ae99e8451d3beb7f96e4

Message:

fix: setting CurrPack for branchTo-calls

File:

• Singular/ipshell.cc (modified) (2 diffs)

Singular/ipshell.cc

@@ -1225 +1225 @@
       if (pi->data.s.body==NULL) return TRUE;
     }
+    if ((pi->pack!=NULL)&&(currPack!=pi->pack))
+    {
+      currPack=pi->pack;
+      iiCheckPack(currPack);
+      currPackHdl=packFindHdl(currPack);
+      //Print("set pack=%s\n",IDID(currPackHdl));
+    }
     err=iiAllStart(pi,pi->data.s.body,BT_proc,pi->data.s.body_lineno-(iiCurrArgs==NULL));
     exitBuffer(BT_proc);
@@ -5324 +5331 @@
         //ringtype = 1;       // Use Z/2^ch
         cf=nInitChar(n_Z2m,(void*)(long)modExponent);
-        mpz_clear(modBase);
+        mpz_clear(modBase);
         omFreeSize (modBase, sizeof (mpz_t));
       }