Fix code generation for add-array-scalar

Author: sjoelund

Compiler/Template/CodegenCFunctions.tpl

@@ -4892,7 +4892,11 @@ case BINARY(__) then
                         case T_ARRAY(ty=T_ENUMERATION(__)) then "integer_array"
                         else "real_array"
     'mul_alloc_<%type%>_scalar(<%e1%>, <%e2%>)'
-  case ADD_ARRAY_SCALAR(__) then error(sourceInfo(),'Code generation does not support ADD_ARRAY_SCALAR <%printExpStr(exp)%>')
+  case ADD_ARRAY_SCALAR(__) then
+    let type = match ty case T_ARRAY(ty=T_INTEGER(__)) then "integer_array"
+                        case T_ARRAY(ty=T_ENUMERATION(__)) then "integer_array"
+                        else "real_array"
+    'add_alloc_scalar_<%type%>(<% if isArrayType(typeof(exp1)) then '<%e2%>, &<%e1%>' else '<%e1%>, &<%e2%>' %>)'
   case SUB_SCALAR_ARRAY(__) then error(sourceInfo(),'Code generation does not support SUB_SCALAR_ARRAY <%printExpStr(exp)%>')
   case MUL_SCALAR_PRODUCT(__) then
     let type = match ty case T_ARRAY(ty=T_INTEGER(__)) then "integer_scalar"

SimulationRuntime/c/util/real_array.c

@@ -785,6 +785,19 @@ real_array_t add_alloc_real_array(const real_array_t a, const real_array_t b)
     return dest;
 }
 
+real_array_t add_alloc_scalar_real_array(modelica_real sc, const real_array_t *arr)
+{
+  size_t nr_of_elements, i;
+  real_array_t dest;
+  clone_real_array_spec(arr, &dest);
+  alloc_real_array_data(&dest);
+  nr_of_elements = base_array_nr_of_elements(*arr);
+  for(i=0; i < nr_of_elements; ++i) {
+    real_set(&dest, i, sc * real_get(*arr, i));
+  }
+  return dest;
+}
+
 void usub_real_array(real_array_t* a)
 {
     size_t nr_of_elements, i;

SimulationRuntime/c/util/real_array.h

@@ -160,6 +160,7 @@ extern void range_real_array(modelica_real start,modelica_real stop, modelica_re
 
 extern real_array_t add_alloc_real_array(const real_array_t a, const real_array_t b);
 extern void add_real_array(const real_array_t * a, const real_array_t * b, real_array_t* dest);
+extern real_array_t add_alloc_scalar_real_array(const modelica_real sc, const real_array_t *arr);
 
 /* Unary subtraction */
 extern void usub_real_array(real_array_t* a);