Oops

2009-08-05 01:15:06 -05:00 · 2009-08-05 01:15:06 -05:00 · 50fd4f17c3
parent eb0ecb68cd
commit 50fd4f17c3
1 changed files with 0 additions and 20 deletions
--- a/basis/stuff.factor
+++ b/basis/stuff.factor
@ -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 ;