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

pesky ^C and abort fixes (I hope)

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@236 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-12-18 22:01:26 +00:00
parent 7e22cb486f
commit 2b78d7ce14
12 changed files with 42 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
C/heapgc.c
View File

@@ -2118,7 +2118,7 @@ update_relocation_chain(CELL_PTR current, CELL_PTR dest)
}
#ifdef DEBUG
else {
Abort("[GC] ATOMIC in relocation chain");
Error(SYSTEM_ERROR, TermNil, "ATOMIC in a GC relocation chain");
}
#endif
}
@@ -2664,7 +2664,7 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
if (HeapTop >= GlobalBase - MinHeapGap) {
*--ASP = (CELL)current_env;
if (!growheap(FALSE)) {
Abort("[ SYSTEM ERROR: YAP could not grow heap before garbage collection ]\n");
Error(SYSTEM_ERROR, TermNil, "YAP could not grow heap before garbage collection");
return(FALSE);
}
current_env = (CELL *)*ASP;