X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FStgCRun.c;h=b1e27249ed2677620ddfa52e90030793bb500064;hb=cd0bb88bca4b8e082e67c455cc17da1b779bb477;hp=7597ff228048f6e4124028ad9f36d0d650104c79;hpb=bfb041829d38b711d7f5f783b1ed944f01c23a9b;p=ghc-hetmet.git

diff --git a/ghc/rts/StgCRun.c b/ghc/rts/StgCRun.c
index 7597ff2..b1e2724 100644
--- a/ghc/rts/StgCRun.c
+++ b/ghc/rts/StgCRun.c
@@ -224,7 +224,7 @@ void StgRunIsImplementedInAssembler(void)
 	/*
 	 * Set BaseReg
 	 */
-	"movq %%rsi,%%rbx\n\t"
+	"movq %%rsi,%%r13\n\t"
 	/*
 	 * grab the function argument from the stack, and jump to it.
 	 */
@@ -234,7 +234,7 @@ void StgRunIsImplementedInAssembler(void)
 	".global " STG_RETURN "\n"
        	STG_RETURN ":\n\t"
 
-	"movq %%r13, %%rax\n\t"   /* Return value in R1  */
+	"movq %%rbx, %%rax\n\t"   /* Return value in R1  */
 
 	/*
 	 * restore callee-saves registers.  (Don't stomp on %%rax!)