From 1b589c1529ae677fd6da82929cd242619705e001 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 23 Oct 2012 11:38:23 -0700
Subject: [PATCH] fix a JIT problem with inline stuct allocation

---
 src/racket/src/jitinline.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/racket/src/jitinline.c b/src/racket/src/jitinline.c
index f0bb3ccbab..e835bc0e3b 100644
--- a/src/racket/src/jitinline.c
+++ b/src/racket/src/jitinline.c
@@ -728,6 +728,7 @@ int scheme_generate_struct_alloc(mz_jit_state *jitter, int num_args,
 #ifdef CAN_INLINE_ALLOC
     int i;
     jit_movr_p(JIT_R0, JIT_R2);
+    jit_movi_p(JIT_R1, 0); /* clear register that might get saved as a pointer */
     inline_struct_alloc(jitter, num_args, inline_slow);
     /* allocation result is in V1 */
     jit_stxi_p((intptr_t)&((Scheme_Structure *)0x0)->stype + OBJHEAD_SIZE, JIT_V1, JIT_R0);