- Ceval arrays with an unknown dimension size

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@13723 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Oct 30, 2012 · 18a7648 · 18a7648
1 parent 4f5644c
commit 18a7648
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/Compiler/FrontEnd/Ceval.mo b/Compiler/FrontEnd/Ceval.mo
@@ -198,6 +198,13 @@ algorithm
       then
         (cache,Values.ARRAY(es_1,dims),stOpt);
 
+    case (cache,env,DAE.ARRAY(array = es, ty = DAE.T_ARRAY(dims = arrayDims)),impl,stOpt,msg)
+      equation
+        failure(_ = List.map(arrayDims, Expression.dimensionSize));
+        (cache,es_1,stOpt) = cevalList(cache,env, es, impl, stOpt, msg);
+      then
+        (cache,ValuesUtil.makeArray(es_1),stOpt);
+
     case (cache,env,DAE.MATRIX(matrix = expll, ty = DAE.T_ARRAY(dims = arrayDims)),impl,stOpt,msg)
       equation
         dims = List.map(arrayDims, Expression.dimensionSize);
@@ -713,7 +720,7 @@ algorithm
     // cast integer array to real array
     case (cache,env,DAE.CAST(ty = DAE.T_ARRAY(ty = DAE.T_REAL(varLst = _)),exp = e),impl,stOpt,msg)
       equation
-        (cache,Values.ARRAY(ivals,dims),stOpt) = ceval(cache,env, e, impl, stOpt, msg);
+        (cache,v as Values.ARRAY(ivals,dims),stOpt) = ceval(cache,env, e, impl, stOpt, msg);
         rvals = ValuesUtil.typeConvert(DAE.T_INTEGER_DEFAULT, DAE.T_REAL_DEFAULT, ivals);
       then
         (cache,Values.ARRAY(rvals,dims),stOpt);