From 2543ebd5a8f8db5984869353d76df5bcf0555e5a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 9 Mar 2006 20:14:41 +0000
Subject: [PATCH] fix runstack global register on arithmtic slow path

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

diff --git a/src/mzscheme/src/jit.c b/src/mzscheme/src/jit.c
index 11a1abc0b4..5961b6b875 100644
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@@ -3804,6 +3804,7 @@ static int do_generate_common(mz_jit_state *jitter, void *_data)
 	jit_str_p(JIT_RUNSTACK, JIT_R0);
       }
       jit_movi_i(JIT_R1, argc);
+      JIT_UPDATE_THREAD_RSPTR();
       mz_prepare(2);
       jit_pusharg_p(JIT_RUNSTACK);
       jit_pusharg_p(JIT_R1);