From 32ab6ca8d8cd3b8d4c5dc8b08f5a0b22389c963e Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 5 May 2010 13:23:00 -0400 Subject: [PATCH] compiler.cfg.intrinsics: may as well use cell-size stores instead of 32-bit stores when initializing byte arrays --- basis/compiler/cfg/intrinsics/allot/allot.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/compiler/cfg/intrinsics/allot/allot.factor b/basis/compiler/cfg/intrinsics/allot/allot.factor index dd3288cec3..ff4c28a488 100644 --- a/basis/compiler/cfg/intrinsics/allot/allot.factor +++ b/basis/compiler/cfg/intrinsics/allot/allot.factor @@ -77,8 +77,8 @@ IN: compiler.cfg.intrinsics.allot :: zero-byte-array ( len reg -- ) 0 ^^load-literal :> elt reg ^^tagged>integer :> reg - len 3 + 4 /i iota [ - [ elt reg ] dip 4 * byte-array-offset + int-rep uint ##store-memory-imm + len cell align cell /i iota [ + [ elt reg ] dip cells byte-array-offset + int-rep f ##store-memory-imm ] each ; :: emit- ( node -- )