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

compiler.cfg.intrinsics: may as well use cell-size stores instead of 32-bit stores when initializing byte arrays

db4
Slava Pestov 2010-05-05 13:23:00 -04:00
parent 07092df20b
commit 32ab6ca8d8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/cfg/intrinsics/allot/allot.factor
View File

@ -77,8 +77,8 @@ IN: compiler.cfg.intrinsics.allot
:: zero-byte-array ( len reg -- ) :: zero-byte-array ( len reg -- )
0 ^^load-literal :> elt 0 ^^load-literal :> elt
reg ^^tagged>integer :> reg reg ^^tagged>integer :> reg
len 3 + 4 /i iota [ len cell align cell /i iota [
[ elt reg ] dip 4 * byte-array-offset + int-rep uint ##store-memory-imm [ elt reg ] dip cells byte-array-offset + int-rep f ##store-memory-imm
] each ; ] each ;
:: emit-<byte-array> ( node -- ) :: emit-<byte-array> ( node -- )