From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 21 Mar 2010 16:35:19 +0000 (-0400)
Subject: Fix unary predicate assembly hooks for flonums on x86-64.
X-Git-Tag: 20100708-Gtk~82
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ffa31927bb5a3798e77665af3ec6f0c6c2b50bb6;p=mit-scheme.git

Fix unary predicate assembly hooks for flonums on x86-64.
---

diff --git a/src/microcode/cmpauxmd/x86-64.m4 b/src/microcode/cmpauxmd/x86-64.m4
index 5b76c3390..ee9fae39d 100644
--- a/src/microcode/cmpauxmd/x86-64.m4
+++ b/src/microcode/cmpauxmd/x86-64.m4
@@ -642,7 +642,7 @@ asm_generic_$1_flo:
 	OP(and,q)	TW(rmask,REG(rdx))
 	movsd		TW(QOF(FLONUM_DATA_OFFSET,REG(rdx)),REG(xmm0))
 	ucomisd		TW(ABS(EVR(flonum_zero)),REG(xmm0))
-	$3	asm_generic_return_sharp_t
+	$4	asm_generic_return_sharp_t
 	jmp	asm_generic_return_sharp_f
 
 asm_generic_$1_fix:
@@ -819,11 +819,11 @@ asm_generic_divide_fail:
 define_unary_operation(decrement,22,sub,subsd)
 define_unary_operation(increment,26,add,addsd)
 
-# define_unary_predicate(name,index,jcc)
-# define_unary_predicate(  $1,   $2, $3)
-define_unary_predicate(negative,2a,jl)
-define_unary_predicate(positive,2c,jg)
-define_unary_predicate(zero,2d,je)
+# define_unary_predicate(name,index,fxjcc,fljcc)
+# define_unary_predicate(  $1,   $2,    $3,  $4)
+define_unary_predicate(negative,2a,jl,jb)
+define_unary_predicate(positive,2c,jg,ja)
+define_unary_predicate(zero,2d,je,je)
 
 # define_binary_operation(name,index,fxop,flop)
 # define_binary_operation(  $1,   $2,  $3,  $4)