factor/basis/compiler/cfg/stack-frame/stack-frame.factor

! Copyright (C) 2009, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel math namespaces ;
IN: compiler.cfg.stack-frame

TUPLE: stack-frame
    { params integer }
    { allot-area-size integer }
    { allot-area-align integer }
    { spill-area-size integer }
    { spill-area-align integer }
    { total-size integer }
    { allot-area-base integer }
    { spill-area-base integer } ;

: (stack-frame-size) ( stack-frame -- n )
    [ spill-area-base>> ] [ spill-area-size>> ] bi + ;