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

unix.factor: Use count

master
kusumotonorio 2020-01-20 18:53:26 +09:00
parent 56c6e3058b
commit aba3d66849
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/cpu/x86/64/unix/unix.factor
View File

@ -31,15 +31,8 @@ M: x86.64 reserved-stack-space 0 ;
f f 3array f f 3array
] map :> reps ] map :> reps
int-reg-reps get float-reg-reps get and [ int-reg-reps get float-reg-reps get and [
0 :> int-mems! reps [ first int-rep? ] count :> int-mems
0 :> float-mems! reps length int-mems - :> float-mems
reps [
first int-rep? [
int-mems 1 + int-mems!
] [
float-mems 1 + float-mems!
] if
] each
int-reg-reps get int-mems + 6 > int-reg-reps get int-mems + 6 >
float-reg-reps get float-mems + 8 > or [ float-reg-reps get float-mems + 8 > or [
reps [ first t f 3array ] map reps [ first t f 3array ] map