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

cpu.x86: remove useless crap from c-to-factor sub-primitive

release
Slava Pestov 2010-03-31 15:19:00 -04:00
parent ce42aea6a4
commit 8f0487f1c3
2 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -91,21 +91,11 @@ IN: bootstrap.x86
jit-load-context jit-load-context
jit-restore-context jit-restore-context
! save C callstack pointer
ctx-reg context-callstack-save-offset [+] ESP MOV
! load Factor callstack pointer
ESP ctx-reg context-callstack-bottom-offset [+] MOV
ESP 4 ADD
jit-call-quot jit-call-quot
jit-load-vm jit-load-vm
jit-save-context jit-save-context
! load C callstack pointer
ESP ctx-reg context-callstack-save-offset [+] MOV
ESP [] vm-reg MOV ESP [] vm-reg MOV
"end_callback" jit-call "end_callback" jit-call
] \ c-to-factor define-sub-primitive ] \ c-to-factor define-sub-primitive

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

@ -82,22 +82,12 @@ IN: bootstrap.x86
jit-restore-context jit-restore-context
! save C callstack pointer
ctx-reg context-callstack-save-offset [+] stack-reg MOV
! load Factor callstack pointer
stack-reg ctx-reg context-callstack-bottom-offset [+] MOV
stack-reg 8 ADD
! call the quotation ! call the quotation
arg1 nv-reg MOV arg1 nv-reg MOV
jit-call-quot jit-call-quot
jit-save-context jit-save-context
! load C callstack pointer
stack-reg ctx-reg context-callstack-save-offset [+] MOV
arg1 vm-reg MOV arg1 vm-reg MOV
"end_callback" jit-call "end_callback" jit-call
] \ c-to-factor define-sub-primitive ] \ c-to-factor define-sub-primitive