Changeset b7f9da in git for Singular/ipassign.cc

Timestamp:

Jul 22, 1998, 9:48:55 AM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

cf34a0fc5bbcdd46cd586ff09badd3261d953574

Parents:

4701a1a6c0fa55229acdc88813f0acdfb1d0f6db

Message:

* hannes: fixes for qring-assign: the "old" ring will be cleared


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

File:

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

Singular/ipassign.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipassign.cc,v 1.33 1998-07-21 17:18:18 Singular Exp $ */
+/* $Id: ipassign.cc,v 1.34 1998-07-22 07:48:55 Singular Exp $ */
 
 /*
@@ -342 +342 @@
 {
   extern procinfo *iiInitSingularProcinfo(procinfo *pi, char *libname,
-                                          char *procname, int line,
-                                          long pos, BOOLEAN pstatic=FALSE);
+                                          char *procname, int line,
+                                          long pos, BOOLEAN pstatic=FALSE);
   extern void piCleanUp(procinfov pi);
 
@@ -461 +461 @@
   qr=(ring)res->Data();
   ring qrr=rCopy(currRing);
-  // hier fehlt noch: evtl. vorhandenen alten Ring streichen
-  // vorerst nur:
   memcpy4(qr,qrr,sizeof(ip_sring));
-  Free(qrr,sizeof(ip_sring));
+  rKill(qrr);
   if (qr->qideal!=NULL) idDelete(&qr->qideal);
   qr->qideal = (ideal)a->CopyD(IDEAL_CMD);
@@ -1281 +1279 @@
         {
           if ((lt==DEF_CMD) || (lt==LIST_CMD))
-            ipMoveId((idhdl)l->data);
+            ipMoveId((idhdl)l->data);
           l->attribute=IDATTR((idhdl)l->data);
           l->flag=IDFLAG((idhdl)l->data);