[commit: ghc] master: oops, fix the x86 version of the code in here. I validated on the (7a4063e)
Simon Marlow
marlowsd at gmail.com
Mon Jun 27 16:46:31 CEST 2011
Repository : ssh://darcs.haskell.org//srv/darcs/ghc
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/7a4063e9797735da6c490b559c1e89b7d52e4614
>---------------------------------------------------------------
commit 7a4063e9797735da6c490b559c1e89b7d52e4614
Author: Simon Marlow <marlowsd at gmail.com>
Date: Mon Jun 27 15:46:13 2011 +0100
oops, fix the x86 version of the code in here. I validated on the
wrong platform by mistake.
>---------------------------------------------------------------
rts/StgCRun.c | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/rts/StgCRun.c b/rts/StgCRun.c
index a5a4e93..54ac041 100644
--- a/rts/StgCRun.c
+++ b/rts/StgCRun.c
@@ -177,7 +177,7 @@ StgRunIsImplementedInAssembler(void)
* restore callee-saves registers. (Don't stomp on %%eax!)
*/
"movl %%esp, %%edx\n\t"
- "addl %0, %%edx\n\t"
+ "addl %0-16, %%edx\n\t"
"movl 0(%%edx),%%ebx\n\t" /* restore the registers saved above */
"movl 4(%%edx),%%esi\n\t"
"movl 8(%%edx),%%edi\n\t"
More information about the Cvs-ghc
mailing list