From 0dab9c7f9dab742f924f56dd02b6d00c2de88795 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 5 May 2010 02:03:53 -0400
Subject: [PATCH] compiler.cfg.intrinsics.allot: <byte-array> intrinsic was
writing past the end of the array and this was causing problems for
scheduling
---
basis/compiler/cfg/intrinsics/allot/allot.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/compiler/cfg/intrinsics/allot/allot.factor b/basis/compiler/cfg/intrinsics/allot/allot.factor
index 31a8a898bc..47f5be962e 100644
--- 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 ;