X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrelude.h;h=c209b2b8002d59137e2d80494158127101f8e32c;hb=3eacdc7faf0d0e87a7201253f9f12c1fb4db7249;hp=8e268f43f148a56b295f9027fe7cc69f99483f23;hpb=423d477bfecd490de1449c59325c8776f91d7aac;p=ghc-hetmet.git

diff --git a/ghc/rts/Prelude.h b/ghc/rts/Prelude.h
index 8e268f4..c209b2b 100644
--- a/ghc/rts/Prelude.h
+++ b/ghc/rts/Prelude.h
@@ -1,7 +1,6 @@
 /* -----------------------------------------------------------------------------
- * $Id: Prelude.h,v 1.26 2004/08/13 13:10:12 simonmar Exp $
  *
- * (c) The GHC Team, 1998-2004
+ * (c) The GHC Team, 1998-2005
  *
  * Prelude identifiers that we sometimes need to refer to in the RTS.
  *
@@ -39,7 +38,9 @@ extern StgClosure ZCMain_main_closure;
 PRELUDE_CLOSURE(GHCziIOBase_stackOverflow_closure);
 PRELUDE_CLOSURE(GHCziIOBase_heapOverflow_closure);
 PRELUDE_CLOSURE(GHCziIOBase_BlockedOnDeadMVar_closure);
+PRELUDE_CLOSURE(GHCziIOBase_BlockedIndefinitely_closure);
 PRELUDE_CLOSURE(GHCziIOBase_NonTermination_closure);
+PRELUDE_CLOSURE(GHCziIOBase_NestedAtomically_closure);
 
 PRELUDE_INFO(GHCziBase_Czh_static_info);
 PRELUDE_INFO(GHCziBase_Izh_static_info);
@@ -85,7 +86,9 @@ PRELUDE_INFO(GHCziStable_StablePtr_con_info);
 #define stackOverflow_closure     (&GHCziIOBase_stackOverflow_closure)
 #define heapOverflow_closure      (&GHCziIOBase_heapOverflow_closure)
 #define BlockedOnDeadMVar_closure (&GHCziIOBase_BlockedOnDeadMVar_closure)
+#define BlockedIndefinitely_closure (&GHCziIOBase_BlockedIndefinitely_closure)
 #define NonTermination_closure    (&GHCziIOBase_NonTermination_closure)
+#define NestedAtomically_closure  (&GHCziIOBase_NestedAtomically_closure)
 
 #define Czh_static_info           (&GHCziBase_Czh_static_info)
 #define Fzh_static_info           (&GHCziFloat_Fzh_static_info)