From: Tim Bunce <Tim.Bunce@ig.co.uk>
Date: Mon, 27 Jan 1997 23:39:48 +0000 (+0000)
Subject: Don't abort when RCHECK and DEBUGGING
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba1485b3aac941801125075387ba52c091447aa2;p=p5sagit%2Fp5-mst-13.2.git

Don't abort when RCHECK and DEBUGGING

private-msgid: <9701272339.AA16537@toad.ig.co.uk>
---

diff --git a/malloc.c b/malloc.c
index 755fadf..b4be031 100644
--- a/malloc.c
+++ b/malloc.c
@@ -498,9 +498,6 @@ free(mp)
 #ifdef PACK_MALLOC
 	bucket = OV_INDEX(op);
 #endif 
-#ifdef DEBUGGING
-	ASSERT(OV_MAGIC(op, bucket) == MAGIC); /* make sure it was in use */
-#else
 	if (OV_MAGIC(op, bucket) != MAGIC) {
 		static bad_free_warn = -1;
 		if (bad_free_warn == -1) {
@@ -517,7 +514,6 @@ free(mp)
 #endif
 		return;				/* sanity */
 	}
-#endif
 #ifdef RCHECK
   	ASSERT(op->ov_rmagic == RMAGIC);
 	if (OV_INDEX(op) <= MAX_SHORT_BUCKET)