diff options
Diffstat (limited to 'src/core')
| -rw-r--r-- | src/core/stack.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/core/stack.h b/src/core/stack.h index f699b52..8c7f7a2 100644 --- a/src/core/stack.h +++ b/src/core/stack.h @@ -84,7 +84,7 @@ static Cell stack_allocate(Cell words) m[b + 2] = 0; m[b + 5] = 0; m[b + 6] = 0; continue; } p = b + 5; - m[b] = (Cell)1 << k; m[b + 1] = ((Cell)k << 16) | 1 | 512 | 1024 | (stack_get(SC_GC_ACTIVE) ? 2 : 0); + m[b] = (Cell)1 << k; m[b + 1] = ((Cell)k << 16) | 1 | 512 | 1024 | (stack_get(SC_GC_ACTIVE) ? 2 : 0) | ((Cell)words << 32); /* n, as rt.zc's new_raw */ m[b + 2] = p ^ 0x2B7E1516; m[b + 3] = 0; m[b + 4] = -words - 1; for (i = p; i < b + ((Cell)1 << k); i++) m[i] = 0; return p; |