Changeset 0c1144 in git for Singular/ipassign.cc

Timestamp:

Apr 19, 1999, 3:04:58 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

2dbaecee7fbb95a8b2a5fa9e09e9df7face209f7

Parents:

228c7e51151a4fc3bdf6908acbb09367f243d275

Message:

*hannes: fixed list-assignment-bug


git-svn-id: file:///usr/local/Singular/svn/trunk@2994 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.47 1999-03-16 10:34:21 hannes Exp $ */
+/* $Id: ipassign.cc,v 1.48 1999-04-19 13:04:56 Singular Exp $ */
 
 /*
@@ -836 +836 @@
   int sl = r->listLength();
   lists L=(lists)Alloc(sizeof(slists));
+  lists oldL;
   leftv h=NULL,o_r=r;
   int i;
@@ -873 +874 @@
       }
   }
-  IDLIST((idhdl)l->data)->Clean();
-  IDLIST((idhdl)l->data)=L;
+  oldL=(lists)l->Data(); oldL->Clean();
+  if (l->rtyp==IDHDL)
+  {
+    IDLIST((idhdl)l->data)=L;
 #ifdef HAVE_NAMESPACES
-  if (l->req_packhdl != NULL)
-  {
-    //Print("jjA_L_LIST: -1 \n");
-    namespaceroot->push( IDPACKAGE(l->req_packhdl), IDID((idhdl)l));
-    ipMoveId((idhdl)l->data);
-    namespaceroot->pop();
+    if (l->req_packhdl != NULL)
+    {
+      //Print("jjA_L_LIST: -1 \n");
+      namespaceroot->push( IDPACKAGE(l->req_packhdl), IDID((idhdl)l));
+      ipMoveId((idhdl)l->data);
+      namespaceroot->pop();
+    }
+    else
+#endif /* HAVE_NAMESPACES */
+      ipMoveId((idhdl)l->data);
   }
   else
-#endif /* HAVE_NAMESPACES */
-    ipMoveId((idhdl)l->data);
+  {
+    l->LData()->data=L;
+  }
 err:
   o_r->CleanUp();
@@ -1418 +1426 @@
         else
         {
-          matrix rm;
+          matrix rm;
           ht=hh->Typ();
           if ((j=iiTestConvert(ht,etyp))!=0)