diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

try resetting obvioulsy bad handles

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-10-16 13:13:34 -05:00
parent 5c33960535
commit 3b124549e4
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
C/heapgc.c
View File

@ -463,8 +463,14 @@ push_registers(Int num_regs, yamop *nextop USES_REGS)
while (curslot < topslot) {
// printf("%p <- %p\n", TR, topslot);
ret = check_pr_trail(ret PASS_REGS);
TrailTerm(TR++) = *curslot++;
}
if (!IsVarTerm(*curslot) &&
(
(*curslot < (CELL)LOCAL_GlobalBase &&
*curslot > (CELL)HR))) {
*curslot++ = TermNil;
}
TrailTerm(TR++) = (CELL)curslot++;
}
}
for (i = 1; i <= num_regs; i++) {
ret = check_pr_trail(ret PASS_REGS);
@ -573,6 +579,7 @@ pop_registers(Int num_regs, yamop *nextop USES_REGS)
while (curslot < topslot) {
*curslot++ = TrailTerm(ptr++);
}
}
for (i = 1; i <= num_regs; i++)
@ -1193,7 +1200,7 @@ mark_variable(CELL_PTR current USES_REGS)
char *local_bp = LOCAL_bp;
begin:
if (UNMARKED_MARK(current,local_bp)) {
if (current == 0 || UNMARKED_MARK(current,local_bp)) {
POP_CONTINUATION();
}
if (current >= H0 && current < HR) {