From: sof <unknown>
Date: Tue, 3 Mar 1998 17:13:09 +0000 (+0000)
Subject: [project @ 1998-03-03 17:13:09 by sof]
X-Git-Tag: Approx_2487_patches~894
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=961a3778ddd5c04313d189480579a06f62e60dd0;p=ghc-hetmet.git

[project @ 1998-03-03 17:13:09 by sof]
startPerformIO: Only save C stack pointer when
compiling the conc RTS on x86s.
---

diff --git a/ghc/runtime/c-as-asm/PerformIO.lhc b/ghc/runtime/c-as-asm/PerformIO.lhc
index 1986035..35c5c2c9 100644
--- a/ghc/runtime/c-as-asm/PerformIO.lhc
+++ b/ghc/runtime/c-as-asm/PerformIO.lhc
@@ -118,8 +118,10 @@ STGFUN(startPerformIO)
     /* Save away C stack pointer so that we can restore it when we leave
        the Haskell world.
     */
+#if defined(CONCURRENT) && defined(i386_TARGET_ARCH)
     SpB -= BREL(1);
     *SpB = (W_)SAVE_esp;
+#endif
 
     /* Put a World State Token on the B stack */
     /* This is necessary because we've not unboxed it (to reveal a void) yet */