steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cpu.ppc: fix small typos

db4
Slava Pestov 2009-07-31 17:57:15 -05:00
parent dd2dc2bb24
commit 957a5b7b9b
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/cpu/ppc/ppc.factor
View File

@ -4,10 +4,10 @@ USING: accessors assocs sequences kernel combinators make math
math.order math.ranges system namespaces locals layouts words math.order math.ranges system namespaces locals layouts words
alien alien.accessors alien.c-types literals cpu.architecture alien alien.accessors alien.c-types literals cpu.architecture
cpu.ppc.assembler cpu.ppc.assembler.backend compiler.cfg.registers cpu.ppc.assembler cpu.ppc.assembler.backend compiler.cfg.registers
compiler.cfg.instructions compiler.constants compiler.codegen compiler.cfg.instructions compiler.cfg.comparisons
compiler.codegen.fixup compiler.cfg.intrinsics compiler.codegen.fixup compiler.cfg.intrinsics
compiler.cfg.stack-frame compiler.cfg.build-stack-frame compiler.cfg.stack-frame compiler.cfg.build-stack-frame
compiler.units ; compiler.units compiler.constants compiler.codegen ;
FROM: cpu.ppc.assembler => B ; FROM: cpu.ppc.assembler => B ;
IN: cpu.ppc IN: cpu.ppc
@ -180,7 +180,7 @@ M: ppc %xor XOR ;
M: ppc %xor-imm XORI ; M: ppc %xor-imm XORI ;
M: ppc %shl SLW ; M: ppc %shl SLW ;
M: ppc %shl-imm swapd SLWI ; M: ppc %shl-imm swapd SLWI ;
M: ppc %shr-imm SRW ; M: ppc %shr SRW ;
M: ppc %shr-imm swapd SRWI ; M: ppc %shr-imm swapd SRWI ;
M: ppc %sar SRAW ; M: ppc %sar SRAW ;
M: ppc %sar-imm SRAWI ; M: ppc %sar-imm SRAWI ;
@ -190,7 +190,7 @@ M: ppc %not NOT ;
0 0 LI 0 0 LI
0 MTXER 0 MTXER
dst src2 src1 insn call dst src2 src1 insn call
label BNO ; inline label BO ; inline
M: ppc %fixnum-add ( label dst src1 src2 -- ) M: ppc %fixnum-add ( label dst src1 src2 -- )
[ ADDO. ] overflow-template ; [ ADDO. ] overflow-template ;
@ -198,7 +198,7 @@ M: ppc %fixnum-add ( label dst src1 src2 -- )
M: ppc %fixnum-sub ( label dst src1 src2 -- ) M: ppc %fixnum-sub ( label dst src1 src2 -- )
[ SUBFO. ] overflow-template ; [ SUBFO. ] overflow-template ;
M:: ppc %fixnum-mul ( label dst src1 src2 -- ) M: ppc %fixnum-mul ( label dst src1 src2 -- )
[ MULLWO. ] overflow-template ; [ MULLWO. ] overflow-template ;
: bignum@ ( n -- offset ) cells bignum tag-number - ; inline : bignum@ ( n -- offset ) cells bignum tag-number - ; inline
@ -417,8 +417,7 @@ M:: ppc %call-gc ( gc-root-count -- )
%prepare-alien-invoke %prepare-alien-invoke
3 1 gc-root-base param@ ADDI 3 1 gc-root-base param@ ADDI
gc-root-count 4 LI gc-root-count 4 LI
"inline_gc" f %alien-invoke "inline_gc" f %alien-invoke ;
"end" resolve-label ;
M: ppc %prologue ( n -- ) M: ppc %prologue ( n -- )
0 11 LOAD32 rc-absolute-ppc-2/2 rel-this 0 11 LOAD32 rc-absolute-ppc-2/2 rel-this