projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1999-01-18 14:36:13 by sof]
[ghc-hetmet.git]
/
ghc
/
includes
/
PrimOps.h
diff --git
a/ghc/includes/PrimOps.h
b/ghc/includes/PrimOps.h
index
8bf3c36
..
90c4f22
100644
(file)
--- 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.
*
*
* 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; \
#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]; \
}
stable_ptr_free = &stable_ptr_table[stable_ptr]; \
}