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

compiler.cfg.intrinsics: fix doc and make tests work on 32bit

db4
Björn Lindqvist 2015-12-01 13:43:45 +01:00
parent 43f2592d1b
commit a35895f222
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/compiler/cfg/intrinsics/slots/slots-docs.factor
View File

@ -1,6 +1,6 @@
USING: classes classes.builtin compiler.tree USING: classes classes.builtin compiler.cfg.instructions compiler.tree
compiler.tree.propagation.info help.markup help.syntax layouts math compiler.tree.propagation.info help.markup help.syntax kernel layouts
slots.private ; math slots.private ;
IN: compiler.cfg.intrinsics.slots IN: compiler.cfg.intrinsics.slots
HELP: class-tag HELP: class-tag
@ -15,13 +15,13 @@ HELP: class-tag
} ; } ;
HELP: immediate-slot-offset? HELP: immediate-slot-offset?
{ $values { "value-info" value-info-state } { "?" "true or false" } } { $values { "object" object } { "?" "true or false" } }
{ $description { $description
{ $link t } " if the value info is a literal " { $link fixnum } " that is small enough to fit into a machine register." } { $link t } " if the object is a " { $link fixnum } " that is small enough to fit into a machine register. It is used to determine whether immediate versions of the instructions " { $link ##set-slot } " and " { $link ##set-slot-imm } " can be emitted." }
{ $examples { $examples
{ $example { $example
"USING: compiler.cfg.intrinsics.slots compiler.tree.propagation.info prettyprint ;" "USING: compiler.cfg.intrinsics.slots compiler.tree.propagation.info prettyprint ;"
"33 <literal-info> immediate-slot-offset? ." "33 immediate-slot-offset? ."
"t" "t"
} }
} ; } ;

8
basis/compiler/cfg/intrinsics/slots/slots-tests.factor
View File

@ -1,7 +1,7 @@
USING: accessors arrays compiler.cfg compiler.cfg.instructions USING: accessors arrays compiler.cfg compiler.cfg.instructions
compiler.cfg.intrinsics.slots compiler.test compiler.tree compiler.cfg.intrinsics.slots compiler.test compiler.tree
compiler.tree.propagation.info kernel make math math.intervals compiler.tree.propagation.info kernel layouts literals make math
namespaces sequences slots.private tools.test ; math.intervals namespaces sequences slots.private tools.test ;
IN: compiler.cfg.intrinsics.slots.tests IN: compiler.cfg.intrinsics.slots.tests
: call-node-1 ( -- node ) : call-node-1 ( -- node )
@ -121,13 +121,13 @@ IN: compiler.cfg.intrinsics.slots.tests
{ src 1 } { src 1 }
{ obj 2 } { obj 2 }
{ slot 3 } { slot 3 }
{ scale 3 } { scale $[ cell log2 ] }
{ tag 2 } { tag 2 }
} }
T{ ##write-barrier T{ ##write-barrier
{ src 2 } { src 2 }
{ slot 3 } { slot 3 }
{ scale 3 } { scale $[ cell log2 ] }
{ tag 2 } { tag 2 }
{ temp1 4 } { temp1 4 }
{ temp2 5 } { temp2 5 }