From 14ce6e48e6b0495215f563482b88808b781aec78 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 18 Dec 2009 17:23:09 +0000
Subject: [PATCH] fix JIT bug in fl argument checking with CGC or PPC

svn: r17350
---
 src/mzscheme/src/jit.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/mzscheme/src/jit.c b/src/mzscheme/src/jit.c
index b6024052b5..7fdd393122 100644
--- a/src/mzscheme/src/jit.c
+++ b/src/mzscheme/src/jit.c
@@ -4588,6 +4588,8 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
   } else {
     int unbox = jitter->unbox;
 
+    if (unsafe_fl < 0) unsafe_fl = 0;
+
     /* While generating a fixnum op, don't unbox! */
     jitter->unbox = 0;