X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fc-as-asm%2FPerformIO.lhc;fp=ghc%2Fruntime%2Fc-as-asm%2FPerformIO.lhc;h=04fd72dc557b50826d7b0966f99889432e865475;hb=df10403c92440a304198b3096e65d52a1fe482ae;hp=1296c1f4f06d83a37f2c9a2a0a9cc30195770a51;hpb=25a3b2731ed2cf127495f823892e9ec572a7b30f;p=ghc-hetmet.git

diff --git a/ghc/runtime/c-as-asm/PerformIO.lhc b/ghc/runtime/c-as-asm/PerformIO.lhc
index 1296c1f..04fd72d 100644
--- a/ghc/runtime/c-as-asm/PerformIO.lhc
+++ b/ghc/runtime/c-as-asm/PerformIO.lhc
@@ -80,7 +80,7 @@ const W_ vtbl_stopPerformIO[] = {
    has gotten hold of (hopefully via @MakeStablePtr#@).
 */
 P_ unstable_Closure;
-ED_RO_(WorldStateToken_closure);
+ED_RO_(realWorldZh_closure);
 
 STGFUN(startPerformIO)
 {
@@ -118,7 +118,7 @@ STGFUN(startPerformIO)
     /* Put a World State Token on the A stack */
     /* This is necessary because we've not unboxed it (to reveal a void) yet */
     SpA -= AREL(1);
-    *SpA = (P_) WorldStateToken_closure;
+    *SpA = (P_) realWorldZh_closure;
 
     /* Save away C stack pointer so that we can restore it when we leave
        the Haskell world.