vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 00:32:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update bootstrap C sources.

Browse source
This commit is contained in:
David Brown 2016-12-13 20:16:38 +00:00
parent 41a239c5aa
commit 1e9c1af8ef
5 changed files with 45 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

18
bootstrap/unix-44/Heap.c
View file

@ -248,7 +248,7 @@ static void Heap_ExtendHeap (INT32 blksz)
} else {
j = Heap_heap;
__GET(j, next, INT32);
while ((next != 0 && chnk > next)) {
while ((next != 0 && chnk - next > 0)) {
j = next;
__GET(j, next, INT32);
}
@ -345,7 +345,7 @@ SYSTEM_PTR Heap_NEWREC (INT32 tag)
}
i = adr + 16;
end = adr + blksz;
while (i < end) {
while (end - i > 0) {
__PUT(i, 0, INT32);
__PUT(i + 4, 0, INT32);
__PUT(i + 8, 0, INT32);
@ -442,7 +442,7 @@ static void Heap_Scan (void)
while (chnk != 0) {
adr = chnk + 12;
__GET(chnk + 4, end, INT32);
while (adr < end) {
while (end - adr > 0) {
__GET(adr, tag, INT32);
if (__ODD(tag)) {
if (freesize > 0) {
@ -533,13 +533,13 @@ static void Heap_MarkCandidates (INT32 n, INT32 *cand, ADDRESS cand__len)
chnk = Heap_heap;
i = 0;
lim = cand[n - 1];
while ((chnk != 0 && chnk < lim)) {
while ((chnk != 0 && lim - chnk > 0)) {
adr = chnk + 12;
__GET(chnk + 4, lim1, INT32);
if (lim < lim1) {
if (lim1 - lim > 0) {
lim1 = lim;
}
while (adr < lim1) {
while (lim1 - adr > 0) {
__GET(adr, tag, INT32);
if (__ODD(tag)) {
__GET(tag - 1, size, INT32);
@ -547,14 +547,14 @@ static void Heap_MarkCandidates (INT32 n, INT32 *cand, ADDRESS cand__len)
} else {
__GET(tag, size, INT32);
ptr = adr + 4;
while (cand[i] < ptr) {
while (ptr - cand[i] > 0) {
i += 1;
}
if (i == n) {
return;
}
next = adr + size;
if (cand[i] < next) {
if (next - cand[i] > 0) {
Heap_Mark(ptr);
}
adr = next;
@ -632,7 +632,7 @@ static void Heap_MarkStack (INT32 n, INT32 *cand, ADDRESS cand__len)
sp = (ADDRESS)&frame;
stack0 = Heap_ModulesMainStackFrame();
inc = (ADDRESS)&align.p - (ADDRESS)&align;
if (sp > stack0) {
if (sp - stack0 > 0) {
inc = -inc;
}
while (sp != stack0) {