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

Trim USING:

db4
Slava Pestov 2008-10-20 20:46:47 -05:00
parent 0cc0a41e57
commit df498c21a3
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
basis/compiler/cfg/intrinsics/intrinsics.factor
View File

@ -1,18 +1,17 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: qualified kernel words sequences layouts namespaces USING: qualified words sequences kernel combinators
accessors fry arrays byte-arrays locals math math.order cpu.architecture
combinators alien classes.algebra cpu.architecture
compiler.tree.propagation.info
compiler.cfg.hats compiler.cfg.hats
compiler.cfg.stacks
compiler.cfg.registers
compiler.cfg.instructions compiler.cfg.instructions
compiler.cfg.intrinsics.alien compiler.cfg.intrinsics.alien
compiler.cfg.intrinsics.allot compiler.cfg.intrinsics.allot
compiler.cfg.intrinsics.fixnum compiler.cfg.intrinsics.fixnum
compiler.cfg.intrinsics.float compiler.cfg.intrinsics.float
compiler.cfg.intrinsics.slots ; compiler.cfg.intrinsics.slots ;
QUALIFIED: kernel
QUALIFIED: arrays
QUALIFIED: byte-arrays
QUALIFIED: kernel.private QUALIFIED: kernel.private
QUALIFIED: slots.private QUALIFIED: slots.private
QUALIFIED: classes.tuple.private QUALIFIED: classes.tuple.private
@ -36,15 +35,15 @@ IN: compiler.cfg.intrinsics
math.private:fixnum> math.private:fixnum>
math.private:bignum>fixnum math.private:bignum>fixnum
math.private:fixnum>bignum math.private:fixnum>bignum
eq? kernel:eq?
slots.private:slot slots.private:slot
slots.private:set-slot slots.private:set-slot
classes.tuple.private:<tuple-boa> classes.tuple.private:<tuple-boa>
<array> arrays:<array>
<byte-array> byte-arrays:<byte-array>
math.private:<complex> math.private:<complex>
math.private:<ratio> math.private:<ratio>
<wrapper> kernel:<wrapper>
alien.accessors:alien-unsigned-1 alien.accessors:alien-unsigned-1
alien.accessors:set-alien-unsigned-1 alien.accessors:set-alien-unsigned-1
alien.accessors:alien-signed-1 alien.accessors:alien-signed-1
@ -94,7 +93,7 @@ IN: compiler.cfg.intrinsics
{ \ math.private:fixnum<= [ cc<= emit-fixnum-comparison ] } { \ math.private:fixnum<= [ cc<= emit-fixnum-comparison ] }
{ \ math.private:fixnum>= [ cc>= emit-fixnum-comparison ] } { \ math.private:fixnum>= [ cc>= emit-fixnum-comparison ] }
{ \ math.private:fixnum> [ cc> emit-fixnum-comparison ] } { \ math.private:fixnum> [ cc> emit-fixnum-comparison ] }
{ \ eq? [ cc= emit-fixnum-comparison ] } { \ kernel:eq? [ cc= emit-fixnum-comparison ] }
{ \ math.private:bignum>fixnum [ drop emit-bignum>fixnum ] } { \ math.private:bignum>fixnum [ drop emit-bignum>fixnum ] }
{ \ math.private:fixnum>bignum [ drop emit-fixnum>bignum ] } { \ math.private:fixnum>bignum [ drop emit-fixnum>bignum ] }
{ \ math.private:float+ [ drop [ ^^add-float ] emit-float-op ] } { \ math.private:float+ [ drop [ ^^add-float ] emit-float-op ] }
@ -111,11 +110,11 @@ IN: compiler.cfg.intrinsics
{ \ slots.private:slot [ emit-slot ] } { \ slots.private:slot [ emit-slot ] }
{ \ slots.private:set-slot [ emit-set-slot ] } { \ slots.private:set-slot [ emit-set-slot ] }
{ \ classes.tuple.private:<tuple-boa> [ emit-<tuple-boa> ] } { \ classes.tuple.private:<tuple-boa> [ emit-<tuple-boa> ] }
{ \ <array> [ emit-<array> ] } { \ arrays:<array> [ emit-<array> ] }
{ \ <byte-array> [ emit-<byte-array> ] } { \ byte-arrays:<byte-array> [ emit-<byte-array> ] }
{ \ math.private:<complex> [ emit-simple-allot ] } { \ math.private:<complex> [ emit-simple-allot ] }
{ \ math.private:<ratio> [ emit-simple-allot ] } { \ math.private:<ratio> [ emit-simple-allot ] }
{ \ <wrapper> [ emit-simple-allot ] } { \ kernel:<wrapper> [ emit-simple-allot ] }
{ \ alien.accessors:alien-unsigned-1 [ 1 emit-alien-unsigned-getter ] } { \ alien.accessors:alien-unsigned-1 [ 1 emit-alien-unsigned-getter ] }
{ \ alien.accessors:set-alien-unsigned-1 [ 1 emit-alien-integer-setter ] } { \ alien.accessors:set-alien-unsigned-1 [ 1 emit-alien-integer-setter ] }
{ \ alien.accessors:alien-signed-1 [ 1 emit-alien-signed-getter ] } { \ alien.accessors:alien-signed-1 [ 1 emit-alien-signed-getter ] }