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

diff --git a/basis/compiler/cfg/intrinsics/allot/allot.factor b/basis/compiler/cfg/intrinsics/allot/allot.factor
index dd3288cec363564461148858a4da0800676b13ba..ff4c28a4887b0600d185c52d662fbffe00bc191c 100644 (file)
--- 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-<byte-array> ( node -- )