From 7a472752e5be47816f756d854a1b0756594fef98 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Thu, 15 Aug 2024 02:09:49 -0400
Subject: Bugfix for array:insert()

---
 builtins/array.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'builtins/array.c')

diff --git a/builtins/array.c b/builtins/array.c
index abc9f923..d749778d 100644
--- a/builtins/array.c
+++ b/builtins/array.c
@@ -72,7 +72,10 @@ public void Array$insert(array_t *arr, const void *item, Int_t int_index, int64_
         arr->stride = padded_item_size;
     } else {
         if (index != arr->length+1)
-            memmove((void*)arr->data + index*padded_item_size, arr->data + (index-1)*padded_item_size, (arr->length - index)*padded_item_size);
+            memmove(
+                arr->data + index*padded_item_size,
+                arr->data + (index-1)*padded_item_size,
+                (arr->length - index + 1)*padded_item_size);
     }
     assert(arr->free > 0);
     --arr->free;
-- 
cgit v1.2.3