Changeset 6bb498 in git for Singular/scanner.l

Timestamp:

Jul 20, 1999, 2:29:50 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

7391b832096198f6bb685362085edcd95150fa37

Parents:

6b27cb2007727474789909ba3db42f0b3f1f6369

Message:

* hannes: minor optimizations scanner/grammar: reading ints/monoms


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

File:

• Singular/scanner.l (modified) (3 diffs)

Singular/scanner.l

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: scanner.l,v 1.20 1999-07-17 14:01:46 Singular Exp $ */
+/* $Id: scanner.l,v 1.21 1999-07-20 12:29:50 Singular Exp $ */
 #include <stdio.h>
 #include <string.h>
@@ -259 +259 @@
                            if ((currRing!=NULL)
                            && (strlen(lvalp->name)>MAX_INT_LEN))
-                           {
-                             lvalp->name = mstrdup((char *)yytext);
                              return RINGVAR;
-                           }
                            else
                              return INT_CONST;
                          }
 {integer}\/{integer}     {
-                           lvalp->name = mstrdup((char *)yytext);
+                           lvalp->name = (char *)yytext;
                            return RINGVAR;
                          }
@@ -286 +283 @@
 
 {rgvars}|{realnum}       {
-                           lvalp->name = mstrdup((char *)yytext);
+                           lvalp->name = (char *)yytext;
                            return RINGVAR;
                          }