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

should be TrailTop, nao LCL0

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@164 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-09-24 14:35:58 +00:00
parent af370a73e3
commit 34010ba45a
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/alloc.c
View File

@ -12,7 +12,7 @@
* Last rev: *
* mods: *
* comments: allocating space *
* version:$Id: alloc.c,v 1.8 2001-06-08 13:39:07 vsc Exp $ *
* version:$Id: alloc.c,v 1.9 2001-09-24 14:35:58 vsc Exp $ *
*************************************************************************/
#ifdef SCCS
static char SccsId[] = "%W% %G%";
@ -852,6 +852,10 @@ ExtendWorkSpace(Int s)
Error(SYSTEM_ERROR, TermNil, "could not expand contiguous stacks %d bytes", s);
return(FALSE);
}
if ((CELL)ptr & MBIT) {
Error(SYSTEM_ERROR, TermNil, "memory at %p conflicts with MBIT %lx", ptr, NMBIT);
return(FALSE);
}
return TRUE;
}

2
C/heapgc.c
View File

@ -2608,7 +2608,7 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
if ((CELL)TrailTop & (MBIT|RBIT)) {
/* oops, we can't */
if (gc_verbose) {
YP_fprintf(YP_stderr, "[GC] LCLO at %p clashes with gc bits: %lx\n", LCL0, (MBIT|RBIT));
YP_fprintf(YP_stderr, "[GC] TrailTop at %p clashes with gc bits: %lx\n", TrailTop, (MBIT|RBIT));
YP_fprintf(YP_stderr, "[GC] garbage collection disallowed\n");
}
return(0);