1 ! Copyright (C) 2009, 2010 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors kernel math namespaces ;
4 IN: compiler.cfg.stack-frame
8 { allot-area-size integer }
9 { allot-area-align integer }
10 { spill-area-size integer }
11 { spill-area-align integer }
12 { total-size integer }
13 { allot-area-base integer }
14 { spill-area-base integer } ;
16 : (stack-frame-size) ( stack-frame -- n )
17 [ spill-area-base>> ] [ spill-area-size>> ] bi + ;