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

x86 bootstrap cleanup: renamed arg to arg1

db4
Phil Dawes 2009-09-23 19:45:18 +01:00
parent 84faf2431f
commit a3c84ea278
5 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/cpu/x86/32/bootstrap.factor
View File

@ -11,7 +11,7 @@ IN: bootstrap.x86
: shift-arg ( -- reg ) ECX ; : shift-arg ( -- reg ) ECX ;
: div-arg ( -- reg ) EAX ; : div-arg ( -- reg ) EAX ;
: mod-arg ( -- reg ) EDX ; : mod-arg ( -- reg ) EDX ;
: arg ( -- reg ) EAX ; : arg1 ( -- reg ) EAX ;
: arg2 ( -- reg ) EDX ; : arg2 ( -- reg ) EDX ;
: temp0 ( -- reg ) EAX ; : temp0 ( -- reg ) EAX ;
: temp1 ( -- reg ) EDX ; : temp1 ( -- reg ) EDX ;
@ -29,7 +29,7 @@ IN: bootstrap.x86
! save stack pointer ! save stack pointer
temp0 [] stack-reg MOV temp0 [] stack-reg MOV
! pass vm ptr to primitive ! pass vm ptr to primitive
arg 0 MOV rc-absolute-cell rt-vm jit-rel arg1 0 MOV rc-absolute-cell rt-vm jit-rel
! call the primitive ! call the primitive
0 JMP rc-relative rt-primitive jit-rel 0 JMP rc-relative rt-primitive jit-rel
] jit-primitive jit-define ] jit-primitive jit-define

2
basis/cpu/x86/64/bootstrap.factor
View File

@ -29,7 +29,7 @@ IN: bootstrap.x86
! load XT ! load XT
temp1 0 MOV rc-absolute-cell rt-primitive jit-rel temp1 0 MOV rc-absolute-cell rt-primitive jit-rel
! load vm ptr ! load vm ptr
arg 0 MOV rc-absolute-cell rt-vm jit-rel arg1 0 MOV rc-absolute-cell rt-vm jit-rel
! go ! go
temp1 JMP temp1 JMP
] jit-primitive jit-define ] jit-primitive jit-define

2
basis/cpu/x86/64/unix/bootstrap.factor
View File

@ -5,7 +5,7 @@ cpu.x86.assembler cpu.x86.assembler.operands layouts vocabs parser ;
IN: bootstrap.x86 IN: bootstrap.x86
: stack-frame-size ( -- n ) 4 bootstrap-cells ; : stack-frame-size ( -- n ) 4 bootstrap-cells ;
: arg ( -- reg ) RDI ; : arg1 ( -- reg ) RDI ;
: arg2 ( -- reg ) RSI ; : arg2 ( -- reg ) RSI ;
<< "vocab:cpu/x86/64/bootstrap.factor" parse-file parsed >> << "vocab:cpu/x86/64/bootstrap.factor" parse-file parsed >>

2
basis/cpu/x86/64/winnt/bootstrap.factor
View File

@ -6,7 +6,7 @@ cpu.x86.assembler.operands ;
IN: bootstrap.x86 IN: bootstrap.x86
: stack-frame-size ( -- n ) 8 bootstrap-cells ; : stack-frame-size ( -- n ) 8 bootstrap-cells ;
: arg ( -- reg ) RCX ; : arg1 ( -- reg ) RCX ;
: arg2 ( -- reg ) RDX ; : arg2 ( -- reg ) RDX ;
<< "vocab:cpu/x86/64/bootstrap.factor" parse-file parsed >> << "vocab:cpu/x86/64/bootstrap.factor" parse-file parsed >>

4
basis/cpu/x86/bootstrap.factor
View File

@ -248,13 +248,13 @@ big-endian off
! Quotations and words ! Quotations and words
[ [
! load from stack ! load from stack
arg ds-reg [] MOV arg1 ds-reg [] MOV
! pop stack ! pop stack
ds-reg bootstrap-cell SUB ds-reg bootstrap-cell SUB
! pass vm pointer ! pass vm pointer
arg2 0 MOV rc-absolute-cell rt-vm jit-rel arg2 0 MOV rc-absolute-cell rt-vm jit-rel
! call quotation ! call quotation
arg quot-xt-offset [+] JMP arg1 quot-xt-offset [+] JMP
] \ (call) define-sub-primitive ] \ (call) define-sub-primitive
! Objects ! Objects