From 3c4c05e9158a0db145ecf531f0e88596bca6bdf7 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 3 Nov 2009 23:44:20 -0600 Subject: [PATCH] compiler.cfg.intrinsics.allot: fix inline byte array allocation on 32-bit platforms --- 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 43747f88c9..9804244ecb 100644 --- a/basis/compiler/cfg/intrinsics/allot/allot.factor +++ b/basis/compiler/cfg/intrinsics/allot/allot.factor @@ -62,7 +62,7 @@ IN: compiler.cfg.intrinsics.allot : bytes>cells ( m -- n ) cell align cell /i ; : ^^allot-byte-array ( n -- dst ) - 2 cells + byte-array ^^allot ; + 16 + byte-array ^^allot ; : emit-allot-byte-array ( len -- dst ) ds-drop