- fixed memory leak in LOG_JAC output

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@18293 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Nov 25, 2013 · 8645b50 · 8645b50
1 parent 0836b8b
commit 8645b50
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/SimulationRuntime/c/math-support/ddassl.c b/SimulationRuntime/c/math-support/ddassl.c
@@ -3755,7 +3755,7 @@ doublereal ddanrm_(integer *neq, doublereal *v, doublereal *wt, doublereal *
       nrow = npdm1;
       i__1 = *neq;
       i__2 = *neq;
-      buffer = (char*)malloc(20*nrow*sizeof(char));
+      buffer = (char*)malloc(20*(*neq)*sizeof(char));
 
       INFO1(LOG_JAC, "at point in time: %g", *x);
       INDENT(LOG_JAC);
@@ -3835,7 +3835,7 @@ doublereal ddanrm_(integer *neq, doublereal *v, doublereal *wt, doublereal *
       nrow = npdm1;
       i__1 = *neq;
       i__2 = *neq;
-      buffer = (char*)malloc(20*nrow*sizeof(char));
+      buffer = (char*)malloc(20*(*neq)*sizeof(char));
 
       INFO1(LOG_JAC, "at point in time: %g", *x);
       INDENT(LOG_JAC);