Changeset 6b899c3 in OpenModelica

Timestamp:

2012-11-16T22:53:52+01:00 (11 years ago)

Author:

Martin Sjölund <martin.sjolund@…>

Branches:

Added-citation-metadata, maintenance/v1.14, maintenance/v1.15, maintenance/v1.16, maintenance/v1.17, maintenance/v1.18, maintenance/v1.19, maintenance/v1.20, maintenance/v1.21, maintenance/v1.22, maintenance/v1.23, master, omlib-staging

Children:

234451a

Parents:

9913f672

Message:

#1941

• Allow all sorts of weird stuff if external language is "builtin"

git-svn-id: ​https://openmodelica.org/svn/OpenModelica/trunk@13932 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

File:

• Compiler/FrontEnd/Inst.mo (modified) (3 diffs)

Compiler/FrontEnd/Inst.mo

@@ -12843 +12843 @@
         (cache,SOME((exp,prop,attr))) = Static.elabCref(cache,env,cref,impl,false /* Do NOT vectorize arrays; we require a CREF */,pre,info);
         (cache,extarg) = instExtGetFargsSingle(cache,env,exp,prop);
-        assertExtArgOutputIsCrefVariable(extarg,Types.getPropType(prop),Types.propAllConst(prop),info);
+        assertExtArgOutputIsCrefVariable(lang,extarg,Types.getPropType(prop),Types.propAllConst(prop),info);
       then
         (cache,extarg);
@@ -12856 +12856 @@
 
 protected function assertExtArgOutputIsCrefVariable
+  input Option<String> lang;
   input DAE.ExtArg arg;
   input DAE.Type ty;
@@ -12861 +12862 @@
   input Absyn.Info info;
 algorithm
-  _ := match (arg,ty,c,info)
+  _ := match (lang,arg,ty,c,info)
     local
       String str;
-    case (_,DAE.T_ARRAY(ty = _),_,_)
+    case (SOME("builtin"),_,_,_,_) then ();
+    case (_,_,DAE.T_ARRAY(ty = _),_,_)
       equation
         str = Types.unparseType(ty);
         Error.addSourceMessage(Error.EXTERNAL_FUNCTION_RESULT_ARRAY_TYPE,{str},info);
       then fail();
-    case (DAE.EXTARG(type_=_),_,DAE.C_VAR(),_) then ();
-    case (_,_,DAE.C_VAR(),_)
+    case (_,DAE.EXTARG(type_=_),_,DAE.C_VAR(),_) then ();
+    case (_,_,_,DAE.C_VAR(),_)
       equation
         str = DAEDump.dumpExtArgStr(arg);