Changeset 8597e37b in tol

Timestamp:

Mar 4, 2011, 6:59:13 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

347d077

Parents:

1027aba

Message:

Fixes #1004

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3268 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/btol/bgrammar/oprimp.cpp (modified) (1 diff)

tol/btol/bgrammar/oprimp.cpp

@@ -665 +665 @@
   BSyntaxObject* result = NIL, *rightResult=NIL;
   TRACE_SHOW_MEDIUM(fun," 1");
-  if(!IsIdentifier(name)) { return(NIL); }
+  if(!IsIdentifier(name)) 
+  { 
+    Error(name+I2(" is not a valid identifier and could not be created.", 
+                  " no es un identificador válido y no se pudo crear."));
+    return(NIL); 
+  }
+  if(name=="inf") 
+  { 
+    Error(name+I2(" is a numeric constant and could not be replaced.", 
+                  " no es un identificador válido y no se pudo reemplazar."));
+    return(NIL); 
+  }
+
   TRACE_SHOW_MEDIUM(fun," 2");
   BInt level = BGrammar::Level();