From 97a76c60fa109a932e236664eda7bf582d7904dd Mon Sep 17 00:00:00 2001
From: ricroc <ricroc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 31 May 2005 00:12:30 +0000
Subject: [PATCH] remove abort_yapor function

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1305 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/alloc.c | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/C/alloc.c b/C/alloc.c
index 25fb1963b..800162467 100644
--- a/C/alloc.c
+++ b/C/alloc.c
@@ -12,7 +12,7 @@
 * Last rev:								 *
 * mods:									 *
 * 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
 static char SccsId[] = "%W% %G%";
@@ -465,9 +465,8 @@ AllocHeap(unsigned int size)
   HeapUsed += size * sizeof(CELL) + sizeof(YAP_SEG_SIZE);
 
 #ifdef YAPOR
-  if (HeapTop > Addr(Yap_GlobalBase) - MinHeapGap) {
-    abort_yapor("No heap left in function AllocHeap");
-  }
+  if (HeapTop > Addr(Yap_GlobalBase) - MinHeapGap)
+    Yap_Error(INTERNAL_ERROR, TermNil, "no heap left (AllocHeap)");
 #else
   if (HeapTop > HeapLim - MinHeapGap) {
     HeapTop -= size * sizeof(CELL) + sizeof(YAP_SEG_SIZE);
@@ -815,7 +814,7 @@ static int
 ExtendWorkSpace(Int s, int fixed_allocation)
 {
 #ifdef YAPOR
-  abort_yapor("function ExtendWorkSpace called");
+  Yap_Error(INTERNAL_ERROR, TermNil, "cannot extend stacks (ExtendWorkSpace)");
   return(FALSE);
 #else
   MALLOC_T a;