[project @ 2005-03-09 08:51:31 by wolfgang]

[ghc-hetmet.git] / ghc / includes / Storage.h

diff --git a/ghc/includes/Storage.h b/ghc/includes/Storage.h
index 7d6fa00..7108bc6 100644 (file)
--- a/ghc/includes/Storage.h
+++ b/ghc/includes/Storage.h
@@ -234,6 +234,10 @@ recordMutable(StgClosure *p)
 
 void revertCAFs( void );
 
+    // set to disable CAF garbage collection in GHCi.
+    // (needed when dynamic libraries are used).
+extern rtsBool keepCAFs;
+
 /* -----------------------------------------------------------------------------
    DEBUGGING predicates for pointers
 
@@ -393,6 +397,7 @@ extern StgClosure * RTS_VAR(scavenged_static_objects);
 extern StgWeak    * RTS_VAR(old_weak_ptr_list);
 extern StgWeak    * RTS_VAR(weak_ptr_list);
 extern StgClosure * RTS_VAR(caf_list);
+extern StgClosure * RTS_VAR(revertible_caf_list);
 extern StgTSO     * RTS_VAR(resurrected_threads);
 
 #endif // STORAGE_H