From 9be1f42fe9b34d9a4b1bdcd4c594f4b57fc8a7de Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Tue, 8 Sep 2009 21:44:11 -0500 Subject: [PATCH] typos in cpu.ppc --- basis/cpu/ppc/ppc.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor index 62dbe715b4..cdb1fbd21a 100644 --- a/basis/cpu/ppc/ppc.factor +++ b/basis/cpu/ppc/ppc.factor @@ -564,11 +564,11 @@ M: ppc %compare-imm-branch [ (%compare-imm) ] 2dip %branch ; branch2 [ label branch2 execute( label -- ) ] when ; inline M:: ppc %compare-float-ordered-branch ( label src1 src2 cc -- ) - cc src1 src2 \ (%compare-float-ordered) \ (%compare-float) :> branch2 :> branch1 + src1 src2 cc \ (%compare-float-ordered) (%compare-float) :> branch2 :> branch1 label branch1 branch2 (%branch) ; M:: ppc %compare-float-unordered-branch ( label src1 src2 cc -- ) - cc src1 src2 \ (%compare-float-unordered) \ (%compare-float) :> branch2 :> branch1 + cc src1 src2 \ (%compare-float-unordered) (%compare-float) :> branch2 :> branch1 label branch1 branch2 (%branch) ; : load-from-frame ( dst n rep -- )