Fix for #1352

- Add error messages for invalid complex types


git-svn-id: https://openmodelica.org/svn/OpenModelica/branches/sjoelund-functiontree@6925 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Author: sjoelund

Compiler/Error.mo

@@ -284,6 +284,7 @@ public constant ErrorID META_STRICT_RML_MATCH_IN_OUT=5016;
 public constant ErrorID META_NONE_CREF=5017;
 public constant ErrorID META_INVALID_PATTERN_NAMED_FIELD=5018;
 public constant ErrorID META_INVALID_LOCAL_ELEMENT=5019;
+public constant ErrorID META_INVALID_COMPLEX_TYPE=5020;
 
 protected constant list<tuple<Integer, MessageType, Severity, String>> errorTable=
          {(SYNTAX_ERROR,SYNTAX(),ERROR(),"Syntax error near: %s"),
@@ -641,7 +642,8 @@ protected constant list<tuple<Integer, MessageType, Severity, String>> errorTabl
           (META_STRICT_RML_MATCH_IN_OUT,TRANSLATION(),ERROR(),"%s. Strict RML enforces match expression input and output to be the same as the function's."),
           (META_NONE_CREF,TRANSLATION(),ERROR(),"NONE is not acceptable syntax. Use NONE() instead."),
           (META_INVALID_PATTERN_NAMED_FIELD,TRANSLATION(),ERROR(),"Invalid named fields: %s"),
-          (META_INVALID_LOCAL_ELEMENT,TRANSLATION(),ERROR(),"Only components are allowed in local declarations, got: %s")
+          (META_INVALID_LOCAL_ELEMENT,TRANSLATION(),ERROR(),"Only components are allowed in local declarations, got: %s"),
+          (META_INVALID_COMPLEX_TYPE,TRANSLATION(),ERROR(),"Invalid complex type name: %s<...>")
 
           };
 

Compiler/Inst.mo

@@ -3779,6 +3779,16 @@ algorithm
         true = Mod.emptyModOrEquality(mods) and SCode.emptyModOrEquality(mod);
         Error.addSourceMessage(Error.META_POLYMORPHIC, {className}, info);
       then fail();
+
+    case (cache,env,ih,store,mods,pre,csets,ci_state,className,
+          SCode.DERIVED(typeSpec=Absyn.TCOMPLEX(path=cn),modifications=mod),
+          re,prot,inst_dims,impl,_,graph,instSingleCref,info,stopInst)
+      equation
+        true = RTOpts.acceptMetaModelicaGrammar();
+        cns = Absyn.pathString(cn);
+        Error.addSourceMessage(Error.META_INVALID_COMPLEX_TYPE, {cns}, info);
+      then fail();
+
     /* ----------------------- */
 
     /* If the class is derived from a class that can not be found in the environment, this rule prints an error message. */
@@ -14842,7 +14852,7 @@ algorithm
     local
       Key k;
       Value v;
-      Integer n,pos,len;
+      Integer n,len;
       array<Option<tuple<Key,Value>>> arr;
       String ps,lens,ns;