diff --git a/basis/stuff.factor b/basis/stuff.factor deleted file mode 100644 index 2e5fa2dfae..0000000000 --- a/basis/stuff.factor +++ /dev/null @@ -1,20 +0,0 @@ - -: spill-integer-base ( -- n ) - stack-frame get spill-counts>> double-float-regs swap at - double-float-regs reg-size * ; - -: spill-integer@ ( n -- offset ) - cells spill-integer-base + param@ ; - -: spill-float@ ( n -- offset ) - double-float-regs reg-size * param@ ; - -: (stack-frame-size) ( stack-frame -- n ) - [ - { - [ spill-counts>> [ swap reg-size * ] { } assoc>map sum ] - [ gc-roots>> cells ] - [ params>> ] - [ return>> ] - } cleave - ] sum-outputs ; \ No newline at end of file