steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Oops

db4
Slava Pestov 2009-08-05 01:15:06 -05:00
parent eb0ecb68cd
commit 50fd4f17c3
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
basis/stuff.factor
View File

@ -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 ;