From 035ab04b678905f60717dcd55c178855587f561a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 30 Sep 2011 07:55:33 -0600
Subject: [PATCH] PPC JIT fix

---
 src/racket/src/jitcommon.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/jitcommon.c b/src/racket/src/jitcommon.c
index 54f8b42052..53b2dd61e9 100644
--- a/src/racket/src/jitcommon.c
+++ b/src/racket/src/jitcommon.c
@@ -1953,7 +1953,7 @@ static int common5(mz_jit_state *jitter, void *_data)
     JIT_UPDATE_THREAD_RSPTR();
 
 #ifdef DIRECT_FPR_ACCESS
-    jit_movr_d(JIT_FP0, JIT_FP2);
+    jit_movr_d(JIT_FPR0, JIT_FPR2);
 #endif
 
     scheme_generate_alloc_double(jitter, 1);