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

Primitives now pass vm ptr on 64bit x86

db4
Phil Dawes 2009-08-25 06:59:26 +01:00
parent 0bc7c0c1d0
commit be1b079eb5
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,6 +21,9 @@ IN: bootstrap.x86
: rex-length ( -- n ) 1 ; : rex-length ( -- n ) 1 ;
[ [
! HACK: stash vm pointer above the ds stack
temp0 0 MOV rc-absolute-cell rt-vm jit-rel
ds-reg bootstrap-cell [+] temp0 MOV
! load stack_chain ! load stack_chain
temp0 0 MOV rc-absolute-cell rt-stack-chain jit-rel temp0 0 MOV rc-absolute-cell rt-stack-chain jit-rel
temp0 temp0 [] MOV temp0 temp0 [] MOV

1
vm/primitives.hpp
View File

@ -13,6 +13,7 @@ namespace factor
extern const primitive_type primitives[]; extern const primitive_type primitives[];
#define PRIMITIVE_OVERFLOW_GETVM() vm #define PRIMITIVE_OVERFLOW_GETVM() vm
#define VM_PTR vm #define VM_PTR vm
#define ASSERTVM() #define ASSERTVM()
} }