X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrelude.h;h=5b4a8c070875442c50849933b5c125347397a9cf;hb=c883f6969ad957637649f3af1a2b6977555bdd32;hp=613993b3e756766850eb8cd2d03fe480ad44438c;hpb=94e06463420582cc2d336b39a297e82af39e4cc4;p=ghc-hetmet.git

diff --git a/ghc/rts/Prelude.h b/ghc/rts/Prelude.h
index 613993b..5b4a8c0 100644
--- a/ghc/rts/Prelude.h
+++ b/ghc/rts/Prelude.h
@@ -38,6 +38,7 @@ 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_INFO(GHCziBase_Czh_static_info);
@@ -84,6 +85,7 @@ 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 Czh_static_info           (&GHCziBase_Czh_static_info)