Changeset 4a4593a in git for Singular/ipassign.cc

Timestamp:

Nov 7, 2013, 5:40:48 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

eab100d6f878d6ce3c81e3396c6448f70e40b9affd6816507d9d8040e8379a880a5d36da704d9da1

Parents:

b38f8137dbcaf7b468232f449c1346a88a9cc6fd

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-11-07 17:40:48+01:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-11-07 17:41:44+01:00

Message:

chg: make "=" for newstruct usable with >1 args on rhs

File:

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

Singular/ipassign.cc

@@ -887 +887 @@
   if ((l->rtyp==IDHDL)&&(lt!=QRING_CMD)&&(lt!=RING_CMD))
     ld=(leftv)l->data;
-  if (lt>MAX_TOK)
-  {
-    blackbox *bb=getBlackboxStuff(lt);
-#ifdef BLACKBOX_DEVEL
-    Print("bb-assign: bb=%lx\n",bb);
-#endif
-    return (bb==NULL) || bb->blackbox_Assign(l,r);
-  }
   while (((dAssign[i].res!=lt)
       || (dAssign[i].arg!=rt))
@@ -1565 +1557 @@
         return b;
       }
+    }
+    if (lt>MAX_TOK)
+    {
+      blackbox *bb=getBlackboxStuff(lt);
+#ifdef BLACKBOX_DEVEL
+      Print("bb-assign: bb=%lx\n",bb);
+#endif
+      return (bb==NULL) || bb->blackbox_Assign(l,r);
     }
     // end of handling elems of list and similiar