From af4450c8d5658c26000938d8798d19bac1f5f5e0 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 19 Jan 1999 09:49:55 +0000
Subject: [PATCH] [project @ 1999-01-19 09:49:55 by simonm] Remove debugging
code from freeStablePtr.
---
ghc/includes/PrimOps.h | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index 90c4f22f318c..16643035e3f4 100644
--- a/ghc/includes/PrimOps.h
+++ b/ghc/includes/PrimOps.h
@@ -1,5 +1,5 @@
/* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.6 1999/01/18 14:36:13 sof Exp $
+ * $Id: PrimOps.h,v 1.7 1999/01/19 09:49:55 simonm Exp $
*
* Macros for primitive operations in STG-ish C code.
*
@@ -643,7 +643,6 @@ extern StgPtr *stable_ptr_free;
#define freeStablePointer(stable_ptr) \
{ \
stable_ptr_table[stable_ptr] = (P_)stable_ptr_free; \
- IF_DEBUG(weak,fprintf(stderr, "Freed stable pointer %d\n", stable_ptr)); \
stable_ptr_free = &stable_ptr_table[stable_ptr]; \
}
--
GitLab