- Added usub_alloc_real for expressions (we do not want to negate the…

… source if it is used later...)

- Added some debug info for use with +t


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

Compiler/Template/CodegenC.tpl

@@ -6442,7 +6442,8 @@ case UNARY(__) then
   match operator
   case UMINUS(__)     then '(-<%e%>)'
   case UMINUS_ARR(ty=T_ARRAY(ty=T_REAL(__))) then
-    let &preExp += 'usub_real_array(&<%e%>);<%\n%>'
+    let var = tempDecl("real_array", &varDecls)
+    let &preExp += 'usub_alloc_real_array(&<%e%>,&<%var%>);<%\n%>'
     '<%e%>'
   case UMINUS_ARR(__) then error(sourceInfo(),"unary minus for non-real arrays not implemented")
   else error(sourceInfo(),"daeExpUnary:ERR")

SimulationRuntime/c/util/real_array.c

@@ -891,6 +891,19 @@ void usub_real_array(real_array_t* a)
     }
 }
 
+void usub_alloc_real_array(real_array_t* a, real_array_t* dest)
+{
+    size_t nr_of_elements, i;
+    clone_real_array_spec(a,dest);
+    alloc_real_array_data(dest);
+
+    nr_of_elements = base_array_nr_of_elements(dest);
+    for(i = 0; i < nr_of_elements; ++i)
+    {
+        real_set(dest, i, -real_get(a, i));
+    }
+}
+
 void sub_real_array(const real_array_t * a, const real_array_t * b, real_array_t* dest)
 {
     size_t nr_of_elements;

SimulationRuntime/c/util/real_array.h

@@ -152,6 +152,7 @@ extern void add_real_array(const real_array_t * a, const real_array_t * b, real_
 
 /* Unary subtraction */
 extern void usub_real_array(real_array_t* a);
+extern void usub_alloc_real_array(real_array_t* a, real_array_t* dest);
 extern void sub_real_array(const real_array_t * a, const real_array_t * b, real_array_t* dest);
 extern void sub_alloc_real_array(const real_array_t * a, const real_array_t * b, real_array_t* dest);