Update bootstrap.

This commit is contained in:
David Brown 2016-09-11 18:33:30 +01:00
parent 1bce6ac9b0
commit 74a085dda3
205 changed files with 715 additions and 525 deletions

View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tskSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tskSfF */
#define INTEGER int16
#define LONGINT int32
@ -353,7 +353,7 @@ static void Heap_Mark (address q)
tag = tagbits + 4;
for (;;) {
__GET(tag, offset, address);
if (__BIT((address)&offset, 31)) {
if (offset < 0) {
__PUT(q - 4, (tag + offset) + 1, address);
if (p == 0) {
break;