From: sof <unknown>
Date: Thu, 30 Oct 1997 22:29:59 +0000 (+0000)
Subject: [project @ 1997-10-30 22:29:59 by sof]
X-Git-Tag: Approx_2487_patches~1325
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e32aef4475d55d0f49857f48e715fd4714dd1d48;p=ghc-hetmet.git

[project @ 1997-10-30 22:29:59 by sof]
ErrorIO_innards: push realWorld# on B stack (cf. startStgWorld)
---

diff --git a/ghc/runtime/main/StgStartup.lhc b/ghc/runtime/main/StgStartup.lhc
index 61d963b..30b29a8 100644
--- a/ghc/runtime/main/StgStartup.lhc
+++ b/ghc/runtime/main/StgStartup.lhc
@@ -355,10 +355,13 @@ STGFUN(ErrorIO_innards)
 
     /* Finish stack setup as if for a top-level task and enter the error node */
 
+    /* Put an IoWorld token on the B stack */
+    SpB -= BREL(1);
+    *SpB = (P_) realWorldZh_closure;
+/*
     SpA = SuA - AREL(1);
-
     *SpA = (P_) realWorldZh_closure;
-
+*/
     STKO_LINK(StkOReg) = PrelBase_Z91Z93_closure;
     STKO_RETURN(StkOReg) = NULL;