Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-7.2

http://hackage.haskell.org/trac/ghc/changeset/94460b29806741fb482c6dae364dc49347a0be22

>---------------------------------------------------------------

commit 94460b29806741fb482c6dae364dc49347a0be22
Author: Simon Marlow <[email protected]>
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"



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to