Changeset 34fbd93 in git for Singular/iparith.cc

Timestamp:

Jul 9, 1999, 4:58:30 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

6959c49751ce060112fd62dace5b8f7590c72602

Parents:

609ba11e29d4d3c44b5785da0728121bbc8e0065

Message:

* hannes: ring r=(real,20,I),x,lp; <==> ring r=(real(20),I),x,lp;
          error message for CMD_M fixed (see coef("1","2");)
	  (grammar.y iparith.cc ipshell.h scanner.l subexpr.cc)


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

File:

• Singular/iparith.cc (modified) (3 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.157 1999-07-09 14:06:45 obachman Exp $ */
+/* $Id: iparith.cc,v 1.158 1999-07-09 14:58:25 Singular Exp $ */
 
 /*
@@ -4311 +4311 @@
   leftv v=u->next;
   u->next=NULL;
-  BOOLEAN b=iiExprArith2(res,u,iiOp,v);
+  BOOLEAN b=iiExprArith2(res,u,iiOp,v, (iiOp > 255));
   u->next=v;
   return b;
@@ -4522 +4522 @@
 static BOOLEAN jjKLAMMER_PL(leftv res, leftv u)
 {
+  if (yyInRingConstruction)
+  {
+    memcpy(res,u,sizeof(sleftv));
+    memset(u,0,sizeof(sleftv));
+    return FALSE;
+  }
   leftv v=u->next;
   BOOLEAN b;