From e32aef4475d55d0f49857f48e715fd4714dd1d48 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 30 Oct 1997 22:29:59 +0000
Subject: [PATCH] [project @ 1997-10-30 22:29:59 by sof] ErrorIO_innards: push
realWorld# on B stack (cf. startStgWorld)
---
ghc/runtime/main/StgStartup.lhc | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/ghc/runtime/main/StgStartup.lhc b/ghc/runtime/main/StgStartup.lhc
index 61d963bc0a6c..30b29a854904 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;
--
GitLab