Changeset fa4c88b in tol

Timestamp:

Jul 17, 2009, 3:20:09 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

5445b51

Parents:

daf8739

Message:

Fixes #711

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

File:

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

tol/btol/bgrammar/graimp.cpp

@@ -726 +726 @@
         result = GraNameBlock()->EvaluateTree(Tree::treLeft((List*)tre));
       }
+      if(result)
+      {
+        BUserNameBlock* unb = (BUserNameBlock*)result;
+        BNameBlock& nb = unb->Contens();
+        if(!nb.IsInstanceOf(newClass))
+        {
+          Error(I2("Expression doesn't return an instance of Class ",
+                   "La expresión no devuelve una instancia de Class ")+name+":\n"+
+                BParser::Unparse(tre)+"\n"+
+                I2("Remeber that instances declarations must follows this syntax:",
+                   "Recuerde que las declaraciones de instancias deben seguir la sintaxis:")+
+                "\n  Class <instance_name> = [[ ... ]];");
+          DESTROY(result);
+          result = NULL; 
+        }
+      }
     }
     if(!result)