From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 28 Aug 2010 20:56:03 +0000 (+0000)
Subject: Fix SVM machine's conditional floating-point jumps.
X-Git-Tag: 20101212-Gtk~80
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ba85e16e5dec5c6dcfdf95d959f2695e379c9ecf;p=mit-scheme.git

Fix SVM machine's conditional floating-point jumps.

These want to use the float registers, not the word registers.
---

diff --git a/src/microcode/svm1-interp.c b/src/microcode/svm1-interp.c
index d1aa86d06..6ce845408 100644
--- a/src/microcode/svm1-interp.c
+++ b/src/microcode/svm1-interp.c
@@ -686,14 +686,14 @@ DEFINE_INST (cjump_##pl##_##rl##_##rl##_pcr_##sl)			\
 {									\
   DECODE_SVM1_INST_CJUMP_##pu##_##ru##_##ru##_PCR_##su			\
     (source1, source2, offset);						\
-  CJ_PCR (CMP_##pu ((WREG_REF (source1)), (WREG_REF (source2))));	\
+  CJ_PCR (CMP_##pu ((ru##EG_REF (source1)), (ru##EG_REF (source2))));	\
 }
 
 #define DEFINE_CJ_2(pl, pu, rl, ru, z, sl, su)				\
 DEFINE_INST (cjump_##pl##_##rl##_pcr_##sl)				\
 {									\
   DECODE_SVM1_INST_CJUMP_##pu##_##ru##_PCR_##su (source, offset);	\
-  CJ_PCR (CMP_##pu ((WREG_REF (source)), z));				\
+  CJ_PCR (CMP_##pu ((ru##EG_REF (source)), z));				\
 }
 
 #define CJ_PCR(p) COND_OFFSET_PC (p, offset)