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

cpu.x86: better code without locals

locals-and-roots
Björn Lindqvist 2016-04-22 12:59:21 +02:00
parent 92a85ebe86
commit 00fdb837fa
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/cpu/x86/x86.factor
View File

@ -602,11 +602,11 @@ M:: x86 %dispatch ( src temp -- )
[ (align-code) ] [ (align-code) ]
bi ; bi ;
M:: x86 %spill ( src rep dst -- ) M: x86 %spill ( src rep dst -- )
dst src rep %copy ; -rot %copy ;
M:: x86 %reload ( dst rep src -- ) M: x86 %reload ( dst rep src -- )
dst src rep %copy ; swap %copy ;
M:: x86 %local-allot ( dst size align offset -- ) M:: x86 %local-allot ( dst size align offset -- )
dst offset local-allot-offset special-offset stack@ LEA ; dst offset local-allot-offset special-offset stack@ LEA ;
@ -656,8 +656,12 @@ M:: x86 %alien-assembly ( reg-inputs
reg-outputs [ first3 %load-reg-param ] each reg-outputs [ first3 %load-reg-param ] each
dead-outputs [ first2 %discard-reg-param ] each ; dead-outputs [ first2 %discard-reg-param ] each ;
M: x86 %alien-invoke ( reg-inputs stack-inputs reg-outputs dead-outputs cleanup stack-size symbols dll gc-map -- ) M: x86 %alien-invoke ( reg-inputs stack-inputs
'[ _ _ _ %c-invoke ] %alien-assembly ; reg-outputs dead-outputs
cleanup
stack-size
symbols dll gc-map -- )
'[ _ _ _ %c-invoke ] %alien-assembly ;
M:: x86 %alien-indirect ( src reg-inputs stack-inputs reg-outputs dead-outputs cleanup stack-size gc-map -- ) M:: x86 %alien-indirect ( src reg-inputs stack-inputs reg-outputs dead-outputs cleanup stack-size gc-map -- )
reg-inputs stack-inputs reg-outputs dead-outputs cleanup stack-size [ reg-inputs stack-inputs reg-outputs dead-outputs cleanup stack-size [