- Fixed record constructors; updated testcases that now show more fun…

…ctions than previously git-svn-id: https://openmodelica.org/svn/OpenModelica/branches/sjoelund-functiontree@6303 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Oct 8, 2010 · 0d9fbdf · 0d9fbdf
1 parent b7bae55
commit 0d9fbdf
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 5 deletions.
diff --git a/Compiler/DAELow.mo b/Compiler/DAELow.mo
@@ -5090,7 +5090,7 @@ algorithm
       then
         fail();
 
-    case ((elementLst = (ddl :: xs)),functionTree,_,vars,knvars,extVars,_)
+    case (ddl::xs,functionTree,_,vars,knvars,extVars,_)
       local DAE.Element ddl; String s3;
       equation
         // show only on failtrace!

diff --git a/Compiler/DAEUtil.mo b/Compiler/DAEUtil.mo
@@ -5227,7 +5227,7 @@ algorithm
       equation
         true = isExtFunction(func);
         tree = avlTreeAdd(tree,functionName(func),SOME(func));
-      then addDaeFunction(funcs,tree);
+      then addDaeExtFunction(funcs,tree);
 
     case (func::funcs,tree) then addDaeExtFunction(funcs,tree);
 

diff --git a/Compiler/Lookup.mo b/Compiler/Lookup.mo
@@ -1909,9 +1909,8 @@ protected
   Env.Env env_1;
 algorithm
   (outCache,_,cdef) := buildRecordConstructorClass(cache,env,cdef);
-  (outCache,outEnv,_) := Inst.implicitFunctionInstantiation(
-     outCache,env,InnerOuter.emptyInstHierarchy,
-     DAE.NOMOD(), Prefix.NOPRE(), Connect.emptySet, cdef, {});
+  (outCache,outEnv,_) := Inst.implicitFunctionTypeInstantiation(
+     outCache,env,InnerOuter.emptyInstHierarchy, cdef);
   name := SCode.className(cdef);
   (outCache,ftype,_) := lookupTypeInEnv(outCache,outEnv,Absyn.IDENT(name));
 end buildRecordType;