Fixed bug in makeArray

This commit is contained in:
Dmitry Boulytchev 2022-02-14 01:13:14 +03:00
parent 69c0b89e3c
commit d0cc8d0fa9
2 changed files with 4 additions and 3 deletions

View file

@ -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 ();

View file

@ -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"