- Util.arrayExpand check if expansion is needed before alloc and copy…

… array git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@12955 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Sep 17, 2012 · 894b656 · 894b656
1 parent 0d86332
commit 894b656
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/Compiler/Util/Util.mo b/Compiler/Util/Util.mo
@@ -792,6 +792,12 @@ algorithm
     local
       Integer len,newlen;
       array<Type_a> newarr;
+    case (_,_,_)
+      equation
+        // do nothing if n is negative or zero
+        true = intLt(n,1);
+      then
+        arr;
     case (_,_,_)
       equation
        len = arrayLength(arr);
@@ -803,6 +809,7 @@ algorithm
     else
       equation
         print("Util.arrayExpand failed!\n");
+        print("OldSize: " +& intString(arrayLength(arr)) +& " additional elements: " +& intString(n) +& "\n");
       then
         fail();
   end matchcontinue;