corrected diagonal_real_array and diagonal_integer_array

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@2441 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Jul 6, 2006 · cb80de6 · cb80de6
1 parent 1d22022
commit cb80de6
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/c_runtime/integer_array.c b/c_runtime/integer_array.c
@@ -937,7 +937,7 @@ void exp_integer_array(integer_array_t* a, modelica_integer n, integer_array_t*
 	}
       else
 	{
-	  integer_array_t* tmp;
+	  integer_array_t* tmp = 0;
 	  clone_integer_array_spec(a,tmp);
 	  copy_integer_array_data(a,tmp);
 	  for ( i = 1; i < n; ++i)
@@ -1149,7 +1149,7 @@ void diagonal_integer_array(integer_array_t* v,integer_array_t* dest)
 
   for (i = 0; i < nr_of_elements; ++i)
     {
-      for (i = 0; j < nr_of_elements;++j)
+      for (j = 0; j < nr_of_elements;++j)
       {
 	dest->data[i*nr_of_elements+j] = (i==j)?v->data[i]:0;
       }

diff --git a/c_runtime/real_array.c b/c_runtime/real_array.c
@@ -1156,7 +1156,7 @@ void exp_real_array(real_array_t* a, modelica_integer n, real_array_t* dest)
 	}
       else
 	{
-	  real_array_t* tmp;
+	  real_array_t* tmp = 0;
 	  clone_real_array_spec(a,tmp);
 	  copy_real_array_data(a,tmp);
 	  for ( i = 1; i < n; ++i)
@@ -1373,7 +1373,7 @@ void diagonal_real_array(real_array_t* v,real_array_t* dest)
   assert((dest->dim_size[0]==n) && (dest->dim_size[1]==n));
 
   for (i = 0; i < n; ++i) {
-    for (i = 0; j < n; ++j) {
+    for (j = 0; j < n; ++j) {
       dest->data[i*n+j] = (i==j) ? v->data[i] : 0;
     }
   }