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

cpu.ppc: really fix bool type

db4
Slava Pestov 2009-05-10 19:10:20 -05:00
parent 9986f6e23e
commit 05e0171dea
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,11 +2,11 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs sequences kernel combinators make math 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.c-types literals cpu.architecture cpu.ppc.assembler alien alien.accessors alien.c-types literals cpu.architecture
cpu.ppc.assembler.backend literals compiler.cfg.registers cpu.ppc.assembler cpu.ppc.assembler.backend literals compiler.cfg.registers
compiler.cfg.instructions compiler.constants compiler.codegen compiler.cfg.instructions compiler.constants compiler.codegen
compiler.codegen.fixup compiler.cfg.intrinsics compiler.codegen.fixup compiler.cfg.intrinsics
compiler.cfg.stack-frame ; compiler.cfg.stack-frame compiler.units ;
IN: cpu.ppc IN: cpu.ppc
! PowerPC register assignments: ! PowerPC register assignments:
@ -714,9 +714,13 @@ USE: vocabs.loader
"complex-double" c-type t >>return-in-registers? drop "complex-double" c-type t >>return-in-registers? drop
"bool" c-type [
4 >>size <c-type>
4 >>align [ alien-unsigned-4 c-bool> ] >>getter
[ alien-unsigned-1 c-bool> ] >>getter [ [ >c-bool ] 2dip set-alien-unsigned-4 ] >>setter
[ [ >c-bool ] 2dip set-alien-unsigned-1 ] >>setter 4 >>size
drop 4 >>align
"box_boolean" >>boxer
"to_boolean" >>unboxer
"bool" define-primitive-type
] with-compilation-unit