From d88aeb80d962a88827406f89e99b23917a078d60 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 19 Apr 2010 01:38:59 -0500 Subject: [PATCH] cpu.ppc: fix breakage caused by ##compare-imm change --- basis/cpu/ppc/ppc.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor index edeb0d262f..8adae2ae99 100644 --- a/basis/cpu/ppc/ppc.factor +++ b/basis/cpu/ppc/ppc.factor @@ -492,7 +492,7 @@ M: ppc %epilogue ( n -- ) } case ; : (%compare) ( src1 src2 -- ) [ 0 ] dip CMP ; inline -: (%compare-imm) ( src1 src2 -- ) [ 0 ] 2dip CMPI ; inline +: (%compare-imm) ( src1 src2 -- ) [ 0 ] [ ] [ \ f type-number or ] tri* CMPI ; inline : (%compare-float-unordered) ( src1 src2 -- ) [ 0 ] dip FCMPU ; inline : (%compare-float-ordered) ( src1 src2 -- ) [ 0 ] dip FCMPO ; inline