Changeset a73dde7 in git for Singular/grammar.y

Timestamp:

Aug 18, 2005, 4:48:58 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

22ab348b171cd2e05a1a277f094ff0fd5c4eabcc

Parents:

be495e3e244c70b1d4938cedaf11b5d3dc25711c

Message:

*hannes: vars with many indices


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

File:

• Singular/grammar.y (modified) (2 diffs)

Singular/grammar.y

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: grammar.y,v 1.115 2005-07-27 18:16:00 Singular Exp $ */
+/* $Id: grammar.y,v 1.116 2005-08-18 14:48:56 Singular Exp $ */
 /*
 * ABSTRACT: SINGULAR shell grammatik
@@ -517 +517 @@
             else
             {
-              $1.next=(leftv)omAllocBin(sleftv_bin);
-              memcpy($1.next,&$3,sizeof(sleftv));
-              if(iiExprArithM(&$$,&$1,'(')) YYERROR;
+              if ($1.Typ()==UNKNOWN)
+              {
+                if(iiExprArith2(&$$,&$1,'(',&$3)) YYERROR;
+              }
+              else
+              {
+                $1.next=(leftv)omAllocBin(sleftv_bin);
+                memcpy($1.next,&$3,sizeof(sleftv));
+                if(iiExprArithM(&$$,&$1,'(')) YYERROR;
+              }
             }
           }