Dump empty arrays {} as fill(0,0)

OpenModelica · Nov 25, 2015 · fe52534 · fe52534
1 parent 945d450
commit fe52534
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/Compiler/Template/ExpressionDumpTpl.tpl b/Compiler/Template/ExpressionDumpTpl.tpl
@@ -61,9 +61,16 @@ match exp
     let func_str = AbsynDumpTpl.dumpPathNoQual(path)
     let argl = dumpExpList(expList, stringDelimiter, ", ")
     'function <%func_str%>(<%argl%>)'
+  case ARRAY(array={}) then
+    if (Flags.getConfigBool(Flags.MODELICA_OUTPUT)) then
+    'fill(0,0)'
+    else
+    let expl = dumpExpList(array, stringDelimiter, ", ")
+    '<%if typeinfo() then (if scalar then '/* scalar <%unparseType(ty)%>*/' else '/* non-scalar <%unparseType(ty)%> */ ')%>{<%expl%>}'
   case ARRAY(__) then
     let expl = dumpExpList(array, stringDelimiter, ", ")
     '<%if typeinfo() then (if scalar then '/* scalar <%unparseType(ty)%>*/' else '/* non-scalar <%unparseType(ty)%> */ ')%>{<%expl%>}'
+
   case MATRIX(__) then
     let mat_str = (matrix |> row => dumpExpList(row, stringDelimiter, ", ") ;separator="}, {")
     '<%if typeinfo() then '/* matrix <%unparseType(ty) %> */ '%>{{<%mat_str%>}}'