[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..35c5c2c 100644 (file)
--- 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 */