Detect when a C finalizer calls back to Haskell

[ghc-hetmet.git] / rts / Weak.h

diff --git a/rts/Weak.h b/rts/Weak.h
index cf93b4d..8fccae2 100644 (file)
--- a/rts/Weak.h
+++ b/rts/Weak.h
@@ -11,6 +11,8 @@
 
 #include "Capability.h"
 
+extern rtsBool running_finalizers;
+
 void runCFinalizer(StgVoid *fn, StgVoid *ptr, StgVoid *env, StgWord flag);
 void runAllCFinalizers(StgWeak *w);
 void scheduleFinalizers(Capability *cap, StgWeak *w);