fix hgourvest#16

sbwrege2z · Jun 8, 2016 · 515e846 · 515e846
1 parent 321b281
commit 515e846
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/superobject.pas b/superobject.pas
@@ -4444,7 +4444,7 @@ procedure TSuperArray.Insert(index: Integer; const value: ISuperObject);
   if (index < FLength) then
   begin
     if FLength = FSize then
-      Expand(index);
+      Expand(FLength);
     if Index < FLength then
       Move(FArray^[index], FArray^[index + 1],
         (FLength - index) * SizeOf(Pointer));