Changeset a4c74f in git for Singular/scanner.l

Timestamp:

Jul 16, 1999, 6:07:22 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

86050ee275fe1a82d0ab4c97fb6fa4560231a142

Parents:

cedc3f5ddbba05d8f7f30511c0afe931d1b91fd5

Message:

* hanens: optimized int-reading


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

File:

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

Singular/scanner.l

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: scanner.l,v 1.18 1999-07-09 14:58:29 Singular Exp $ */
+/* $Id: scanner.l,v 1.19 1999-07-16 16:07:21 Singular Exp $ */
 #include <stdio.h>
 #include <string.h>
@@ -257 +257 @@
 {integer}                {
                            lvalp->name = (char *)yytext;
-                           if ((currRing!=NULL)
-                           && (strlen(lvalp->name)>MAX_INT_LEN))
-                           {
-                             lvalp->name = mstrdup((char *)yytext);
-                             return RINGVAR;
-                           }
-                           else
-                             return INT_CONST;
+                           return INT_CONST;
                          }
 {integer}\/{integer}     {