From 2d784a4e26fa94e486eb8e490fccea764fc31a80 Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 18 Jan 1999 14:36:13 +0000 Subject: [PATCH] [project @ 1999-01-18 14:36:13 by sof] Added debugging code to freeStablePtr macro --- ghc/includes/PrimOps.h | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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]; \ } -- 1.7.10.4