X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FPrimOps.h;h=90c4f22f318ca9514d1e89dd728a143910d13f4e;hb=2d784a4e26fa94e486eb8e490fccea764fc31a80;hp=8bf3c3628c58c147a1535218a662c7915b826399;hpb=0926a3ca0b5caabc00b8dad7912495a25f63d099;p=ghc-hetmet.git

diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index 8bf3c36..90c4f22 100644
--- a/ghc/includes/PrimOps.h
+++ b/ghc/includes/PrimOps.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.5 1999/01/14 18:36:18 sof Exp $
+ * $Id: PrimOps.h,v 1.6 1999/01/18 14:36:13 sof Exp $
  *
  * Macros for primitive operations in STG-ish C code.
  *
@@ -643,6 +643,7 @@ 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];	\
  }