compiler.cfg.intrinsics.allot: <byte-array> intrinsic was writing past the end of the array and this was causing problems for scheduling

2010-05-05 02:03:53 -04:00 · 2010-05-05 02:03:53 -04:00 · 0dab9c7f9d
parent e763c74096
commit 0dab9c7f9d
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/cfg/intrinsics/allot/allot.factor
+++ b/basis/compiler/cfg/intrinsics/allot/allot.factor
@ -78,5 +78,5 @@ IN: compiler.cfg.intrinsics.allot
        :> len
        0 ^^load-literal :> elt
        len emit-allot-byte-array :> reg
-        len reg elt byte-array store-initial-element
+        len cell align cell /i reg elt byte-array store-initial-element
    ] [ drop node emit-primitive ] if ;