compiler.cfg.intrinsics.allot: fix inline byte array allocation on 32-bit platforms

2009-11-03 23:44:20 -06:00 · 2009-11-03 23:44:20 -06:00 · 3c4c05e915
parent e1c365e69a
commit 3c4c05e915
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
@ -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