Update bootstrap C source

This commit is contained in:
David Brown 2016-12-28 13:06:10 +00:00
parent 265ac23f6e
commit ee6e5fe7b4
5 changed files with 5 additions and 5 deletions

View file

@ -290,7 +290,7 @@ SYSTEM_PTR Heap_NEWREC (INT32 tag)
if (Heap_firstTry) {
Heap_GC(1);
blksz += 16;
t = __LSHR(Heap_allocated + blksz, 2, 32) * 5;
t = __LSH(Heap_allocated + blksz, -(Heap_ldUnit + 2), 32) * 80;
if (Heap_uLT(Heap_heapsize, t)) {
Heap_ExtendHeap(t - Heap_heapsize);
}

View file

@ -290,7 +290,7 @@ SYSTEM_PTR Heap_NEWREC (INT32 tag)
if (Heap_firstTry) {
Heap_GC(1);
blksz += 16;
t = __LSHR(Heap_allocated + blksz, 2, 32) * 5;
t = __LSH(Heap_allocated + blksz, -(Heap_ldUnit + 2), 32) * 80;
if (Heap_uLT(Heap_heapsize, t)) {
Heap_ExtendHeap(t - Heap_heapsize);
}

View file

@ -290,7 +290,7 @@ SYSTEM_PTR Heap_NEWREC (INT64 tag)
if (Heap_firstTry) {
Heap_GC(1);
blksz += 32;
t = __LSHR(Heap_allocated + blksz, 2, 64) * 5;
t = __LSH(Heap_allocated + blksz, -(Heap_ldUnit + 2), 64) * 160;
if (Heap_uLT(Heap_heapsize, t)) {
Heap_ExtendHeap(t - Heap_heapsize);
}

View file

@ -290,7 +290,7 @@ SYSTEM_PTR Heap_NEWREC (INT32 tag)
if (Heap_firstTry) {
Heap_GC(1);
blksz += 16;
t = __LSHR(Heap_allocated + blksz, 2, 32) * 5;
t = __LSH(Heap_allocated + blksz, -(Heap_ldUnit + 2), 32) * 80;
if (Heap_uLT(Heap_heapsize, t)) {
Heap_ExtendHeap(t - Heap_heapsize);
}

View file

@ -290,7 +290,7 @@ SYSTEM_PTR Heap_NEWREC (INT64 tag)
if (Heap_firstTry) {
Heap_GC(1);
blksz += 32;
t = __LSHR(Heap_allocated + blksz, 2, 64) * 5;
t = __LSH(Heap_allocated + blksz, -(Heap_ldUnit + 2), 64) * 160;
if (Heap_uLT(Heap_heapsize, t)) {
Heap_ExtendHeap(t - Heap_heapsize);
}