From 695bb48100f185027aafb5b04cb26518222c780c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 28 Nov 2008 15:36:37 +0000
Subject: [PATCH] fix JIT-inlined set-mc{ad}r! error reporting for PPC

svn: r12633
---
 src/mzscheme/src/jit.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/jit.c b/src/mzscheme/src/jit.c
index 127dd82e39..371de44920 100644
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@@ -6558,7 +6558,7 @@ static int do_generate_common(mz_jit_state *jitter, void *_data)
       bad_set_mcdr_code = code;
       break;
     }
-    mz_prolog(JIT_R1);
+    mz_prolog(JIT_R2);
     jit_subi_p(JIT_RUNSTACK, JIT_RUNSTACK, WORDS_TO_BYTES(2));
     CHECK_RUNSTACK_OVERFLOW();
     jit_str_p(JIT_RUNSTACK, JIT_R0);