basis/stuff.factor

   1
   2 : spill-integer-base ( -- n )
   3     stack-frame get spill-counts>> double-float-regs swap at
   4     double-float-regs reg-size * ;
   5
   6 : spill-integer@ ( n -- offset )
   7     cells spill-integer-base + param@ ;
   8
   9 : spill-float@ ( n -- offset )
  10     double-float-regs reg-size * param@ ;
  11
  12 : (stack-frame-size) ( stack-frame -- n )
  13     [
  14         {
  15             [ spill-counts>> [ swap reg-size * ] { } assoc>map sum ]
  16             [ gc-roots>> cells ]
  17             [ params>> ]
  18             [ return>> ]
  19         } cleave
  20     ] sum-outputs ;