diff --git a/runtime/runtime.c b/runtime/runtime.c index 6fe55e987..a2f15d05f 100644 --- a/runtime/runtime.c +++ b/runtime/runtime.c @@ -894,7 +894,7 @@ extern void* Belem (void *p, int i) { extern void* LmakeArray (int length) { data *r; - int n; + int n, *p; ASSERT_UNBOXED("makeArray:1", length); @@ -905,7 +905,8 @@ extern void* LmakeArray (int length) { r->tag = ARRAY_TAG | (n << 3); - memset (r->contents, 0, n * sizeof(int)); + p = (int*) r->contents; + while (n--) *p++ = BOX(0); __post_gc (); diff --git a/src/version.ml b/src/version.ml index c8b81e5a2..015a33a6d 100644 --- a/src/version.ml +++ b/src/version.ml @@ -1 +1 @@ -let version = "Version 1.10, f953814c7, Fri Dec 3 03:56:58 2021 +0300" +let version = "Version 1.10, 69c0b89e3, Mon Jan 31 23:46:18 2022 +0300"