#2368

- Fix generation of empty array git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@17404 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Sep 26, 2013 · 00e19a4 · 00e19a4
1 parent f357de4
commit 00e19a4
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/Compiler/Template/CodegenC.tpl b/Compiler/Template/CodegenC.tpl
@@ -8053,11 +8053,8 @@ case ARRAY(array = array, scalar = scalar, ty = T_ARRAY(ty = t as T_COMPLEX(__))
   let &preExp += '<%params%><%\n%>' 
   arrayVar
 case ARRAY(array={}) then
-  let arrayTypeStr = expTypeArray(ty)
-  let arrayVar = tempDecl(arrayTypeStr, &varDecls /*BUFD*/)
-  let scalarPrefix = if scalar then "scalar_" else ""
-  let scalarRef = if scalar then "&" else ""
-  let &preExp += 'array_alloc_<%scalarPrefix%><%arrayTypeStr%>(&<%arrayVar%>, <%listLength(array)%>,0);<%\n%>'
+  let arrayVar = tempDecl("base_array_t", &varDecls /*BUFD*/)
+  let &preExp += 'simple_alloc_1d_base_array(&<%arrayVar%>, 0, NULL);<%\n%>'
   arrayVar
 case ARRAY(__) then
   let arrayTypeStr = expTypeArray(ty)