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

remove abort_yapor function

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1305 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
ricroc 2005-05-31 00:12:30 +00:00
parent a4de2217ca
commit 97a76c60fa
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/alloc.c
View File

@ -12,7 +12,7 @@
* Last rev: * * Last rev: *
* mods: * * mods: *
* comments: allocating space * * comments: allocating space *
* version:$Id: alloc.c,v 1.69 2005-03-04 20:30:10 ricroc Exp $ * * version:$Id: alloc.c,v 1.70 2005-05-31 00:12:30 ricroc Exp $ *
*************************************************************************/ *************************************************************************/
#ifdef SCCS #ifdef SCCS
static char SccsId[] = "%W% %G%"; static char SccsId[] = "%W% %G%";
@ -465,9 +465,8 @@ AllocHeap(unsigned int size)
HeapUsed += size * sizeof(CELL) + sizeof(YAP_SEG_SIZE); HeapUsed += size * sizeof(CELL) + sizeof(YAP_SEG_SIZE);
#ifdef YAPOR #ifdef YAPOR
if (HeapTop > Addr(Yap_GlobalBase) - MinHeapGap) { if (HeapTop > Addr(Yap_GlobalBase) - MinHeapGap)
abort_yapor("No heap left in function AllocHeap"); Yap_Error(INTERNAL_ERROR, TermNil, "no heap left (AllocHeap)");
}
#else #else
if (HeapTop > HeapLim - MinHeapGap) { if (HeapTop > HeapLim - MinHeapGap) {
HeapTop -= size * sizeof(CELL) + sizeof(YAP_SEG_SIZE); HeapTop -= size * sizeof(CELL) + sizeof(YAP_SEG_SIZE);
@ -815,7 +814,7 @@ static int
ExtendWorkSpace(Int s, int fixed_allocation) ExtendWorkSpace(Int s, int fixed_allocation)
{ {
#ifdef YAPOR #ifdef YAPOR
abort_yapor("function ExtendWorkSpace called"); Yap_Error(INTERNAL_ERROR, TermNil, "cannot extend stacks (ExtendWorkSpace)");
return(FALSE); return(FALSE);
#else #else
MALLOC_T a; MALLOC_T a;