From: sof <unknown>
Date: Fri, 9 Jan 1998 13:33:03 +0000 (+0000)
Subject: [project @ 1998-01-09 13:33:03 by sof]
X-Git-Tag: Approx_2487_patches~1110
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=64d66745a2ca353600b47dd30fcad01533d276db;p=ghc-hetmet.git

[project @ 1998-01-09 13:33:03 by sof]
startPerformIO: push realWorld# token on the B stack now.
---

diff --git a/ghc/runtime/c-as-asm/PerformIO.lhc b/ghc/runtime/c-as-asm/PerformIO.lhc
index 04fd72d..1986035 100644
--- a/ghc/runtime/c-as-asm/PerformIO.lhc
+++ b/ghc/runtime/c-as-asm/PerformIO.lhc
@@ -107,24 +107,24 @@ STGFUN(startPerformIO)
     
     /* first off, check for stk space.. */
 #if defined(CONCURRENT) || !defined(STACK_CHECK_BY_PAGE_FAULT) 
-    STK_CHK(LivenessReg,1/*A*/,1/*B*/, 0, 0, 0/*prim*/, 0/*re-enter*/);
+    STK_CHK(LivenessReg,0/*A*/,2/*B*/, 0, 0, 0/*prim*/, 0/*re-enter*/);
 #else
-    STK_CHK(LivenessReg,1/*A*/,0, 0, 0, 0/*prim*/, 0/*re-enter*/);
+    STK_CHK(LivenessReg,0/*A*/,1, 0, 0, 0/*prim*/, 0/*re-enter*/);
 #endif
 
     /* Put a suitable return address on the B stack */
     RetReg = (StgRetAddr) UNVEC(stopPerformIODirectReturn,vtbl_stopPerformIO);
 
-    /* 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_) realWorldZh_closure;
-
     /* Save away C stack pointer so that we can restore it when we leave
        the Haskell world.
     */
-    SpB[1] = (W_)SAVE_esp;
-    SpB    = SpB + 1;
+    SpB -= BREL(1);
+    *SpB = (W_)SAVE_esp;
+
+    /* Put a World State Token on the B stack */
+    /* This is necessary because we've not unboxed it (to reveal a void) yet */
+    SpB -= BREL(1);
+    *SpB = (W_) realWorldZh_closure;
 
     Node = unstable_Closure; /* Point to the closure for main/errorIO-arg */
     ENT_VIA_NODE();