Changeset 408aed in git for Singular/grammar.y

Timestamp:

Sep 12, 1997, 10:27:11 AM (27 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '6e5adcba05493683b94648c659a729c189812c77')

Children:

37088950774dfa02dbe8f63800ad0c9e5a2704b0

Parents:

9e0a6ddbec4d640f6209638d32ef74400c5c5ba7

Message:

* hannes: fixed "int overflow" bug in scanner.l/grammar.y


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

File:

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

Singular/grammar.y

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: grammar.y,v 1.18 1997-08-11 15:53:15 Singular Exp $ */
+/* $Id: grammar.y,v 1.19 1997-09-12 08:27:08 Singular Exp $ */
 /*
 * ABSTRACT: SINGULAR shell grammatik
@@ -460 +460 @@
             memset(&$$,0,sizeof($$));
             int i = atoi($1);
+            /*remember not to FreeL($1)
+            *because it is a part of the scanner buffer*/
+            $$.rtyp  = INT_CMD;
+            $$.data = (void *)i;
 
             /* check: out of range input */
@@ -469 +473 @@
               if (strcmp(tmp,$1)!=0)
               {
-                Werror("`%s` greater than %d(max. integer representation)"
-                       ,$1,INT_MAX);
-                YYERROR;
+                if (currRing==NULL)
+                {
+                  Werror("`%s` greater than %d(max. integer representation)"
+                         ,$1,INT_MAX);
+                  YYERROR;
+                }  
+                char *t1=mstrdup($1);
+                syMake(&$$,t1);
               }
             }
-            /*remember not to FreeL($1)
-            *because it is a part of the scanner buffer*/
-            $$.rtyp  = INT_CMD;
-            $$.data = (void *)i;
           }
         | SYSVAR