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

   1 ! Copyright (C) 2009, 2010 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors kernel math namespaces ;
   4 IN: compiler.cfg.stack-frame
   5
   6 TUPLE: stack-frame
   7     { params integer }
   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 } ;
  15
  16 : (stack-frame-size) ( stack-frame -- n )
  17     [ spill-area-base>> ] [ spill-area-size>> ] bi + ;