From 97ea77853ebe9b5a5fda681074fa8d57fb4f9ae9 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 26 Feb 2002 17:41:53 +0000
Subject: [PATCH] fix debugging messages again

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

diff --git a/C/alloc.c b/C/alloc.c
index 2d9e9e4dd..c8ef3441c 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.15 2002-02-26 16:45:11 stasinos Exp $		 *
+* version:$Id: alloc.c,v 1.16 2002-02-26 17:41:53 vsc Exp $		 *
 *************************************************************************/
 #ifdef SCCS
 static char SccsId[] = "%W% %G%";
@@ -140,10 +140,6 @@ FreeBlock(BlockHeader *b)
 
   /* sanity check */
   sp = &(b->b_size) + (b->b_size & ~InUseFlag);
-  if (Addr(b) <= Addr(0x90c7a24) && sp >= (YAP_SEG_SIZE *)0x90c7a24) {
-    extern int do_low_level_trace;
-      fprintf(stderr,"vsc: Here3\n");
-  }
   if (*sp != b->b_size) {
 #if !SHORT_INTS
     YP_fprintf(YP_stderr, "** sanity check failed in FreeBlock %p %x %x\n",
@@ -233,9 +229,6 @@ AllocHeap(unsigned int size)
     b->b_size |= InUseFlag;
     UNLOCK(GLOBAL_LOCKS_alloc_block);
     UNLOCK(FreeBlocksLock);
-    if (Addr(b) <= Addr(0x90c7a24) && 
-	Addr(b)+(size*sizeof(CELL)+sizeof(YAP_SEG_SIZE)) >= Addr(0x90c7a24))
-      fprintf(stderr,"vsc: Here1\n");
     return (Addr(b) + sizeof(YAP_SEG_SIZE));
   }
   UNLOCK(FreeBlocksLock);
@@ -298,9 +291,6 @@ AllocHeap(unsigned int size)
   if (!HEAPTOP_OWNER(worker_id)) {
     UNLOCK(HeapTopLock);
   }
-  if (Addr(b) <= Addr(0x90c7a24) && 
-      Addr(b)+(size*sizeof(CELL)+sizeof(YAP_SEG_SIZE)) >= Addr(0x90c7a24))
-    fprintf(stderr,"vsc: Here2\nn");
   return (Addr(b) + sizeof(YAP_SEG_SIZE));
 }