From 86d89f3ff7e14f8f9326a7f0bda0f5f45f943933 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 3 May 2010 22:43:51 -0400 Subject: [PATCH] cpu.ppc: fixing typos in non-optimizing backend --- basis/cpu/ppc/bootstrap.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/cpu/ppc/bootstrap.factor b/basis/cpu/ppc/bootstrap.factor index 5fb303409e..68ebbf9f4f 100644 --- a/basis/cpu/ppc/bootstrap.factor +++ b/basis/cpu/ppc/bootstrap.factor @@ -4,7 +4,7 @@ USING: bootstrap.image.private kernel kernel.private namespaces system cpu.ppc.assembler compiler.units compiler.constants math math.private math.ranges layouts words vocabs slots.private locals locals.backend generic.single.private fry sequences -threads.private ; +threads.private strings.private ; FROM: cpu.ppc.assembler => B ; IN: bootstrap.ppc @@ -502,7 +502,7 @@ CONSTANT: nv-reg 17 3 3 4 LBZX 3 3 tag-bits get SLWI ! store character to stack - ds-reg ds-reg 4 SUB + ds-reg ds-reg 4 SUBI 3 ds-reg 0 STW ] \ string-nth-fast define-sub-primitive