From 961a3778ddd5c04313d189480579a06f62e60dd0 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 3 Mar 1998 17:13:09 +0000
Subject: [PATCH] [project @ 1998-03-03 17:13:09 by sof] startPerformIO: Only
save C stack pointer when compiling the conc RTS on x86s.
---
ghc/runtime/c-as-asm/PerformIO.lhc | 2 ++
1 file changed, 2 insertions(+)
diff --git a/ghc/runtime/c-as-asm/PerformIO.lhc b/ghc/runtime/c-as-asm/PerformIO.lhc
index 198603559fdd..35c5c2c94d19 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 */
--
GitLab