- Fixed the generateCode() API call

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@7024 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Nov 14, 2010 · c6f7d6b · c6f7d6b
1 parent 18ca920
commit c6f7d6b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/Compiler/CevalScript.mo b/Compiler/CevalScript.mo
@@ -1807,10 +1807,16 @@ algorithm
     case (cache,env,DAE.CALL(path = Absyn.IDENT(name = "generateCode"),expLst = {DAE.CODE(Absyn.C_TYPENAME(path),_)}),
         (st as Interactive.SYMBOLTABLE(ast = p,explodedAst = sp,instClsLst = ic,lstVarVal = iv,compiledFunctions = cf)),msg)
       equation
+        (cache,Util.SUCCESS()) = Static.instantiateDaeFunction(cache, env, path, false, NONE(), true);
         (cache,_) = cevalGenerateFunction(cache,env, path) "	& Inst.instantiate_implicit(p\') => d &" ;
       then
         (cache,Values.BOOL(true),st);
 
+    case (cache,env,DAE.CALL(path = Absyn.IDENT(name = "generateCode"),expLst = {DAE.CODE(Absyn.C_TYPENAME(path),_)}),
+        (st as Interactive.SYMBOLTABLE(ast = p,explodedAst = sp,instClsLst = ic,lstVarVal = iv,compiledFunctions = cf)),msg)
+      then
+        (cache,Values.BOOL(false),st);
+
     case (cache,env,
         DAE.CALL(
           path = Absyn.IDENT(name = "loadModel"),

diff --git a/Compiler/Static.mo b/Compiler/Static.mo
@@ -72,6 +72,7 @@ public import SCode;
 public import SCodeUtil;
 public import Values;
 public import Prefix;
+public import Util;
 
 public type Ident = String;
 
@@ -107,7 +108,6 @@ protected import Patternm;
 protected import Print;
 protected import System;
 protected import Types;
-protected import Util;
 protected import ValuesUtil;
 protected import DAEUtil;
 protected import PrefixUtil;
@@ -8827,7 +8827,7 @@ algorithm
   end matchcontinue;
 end elabCallArgsMetarecord;
 
-protected function instantiateDaeFunction "help function to elabCallArgs. Instantiates the function as a dae and adds it to the
+public function instantiateDaeFunction "help function to elabCallArgs. Instantiates the function as a dae and adds it to the
 functiontree of a newly created dae"
   input Env.Cache inCache;
   input Env.Env env;