Changeset eab100d in git for Singular/ipassign.cc

Timestamp:

Nov 7, 2013, 7:19:50 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

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

Children:

13f7b2794703c329b4c6179ef9db9eb16b305824

Parents:

4a4593a9cc860e3c2819808ef08faab1b9a48009

Message:

fix: default assignment for blackbox

File:

• Singular/ipassign.cc (modified) (1 diff)

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))