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

fixed vm ptr passing to to_value_struct

db4
Phil Dawes 2009-08-27 19:58:40 +01:00
parent 1b92721660
commit 0470b7d2c5
1 changed files with 2 additions and 2 deletions
basis/cpu/x86/64

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

@ -127,7 +127,7 @@ M:: x86.64 %unbox-large-struct ( n c-type -- )
! Load structure size into param-reg-3 ! Load structure size into param-reg-3
param-reg-3 c-type heap-size MOV param-reg-3 c-type heap-size MOV
! Copy the struct to the C stack ! Copy the struct to the C stack
"to_value_struct" f %alien-invoke ; "to_value_struct" %vm-invoke-4th-arg ;
: load-return-value ( rep -- ) : load-return-value ( rep -- )
[ [ 0 ] dip reg-class-of param-reg ] [ [ 0 ] dip reg-class-of param-reg ]
@ -194,7 +194,7 @@ M: x86.64 %alien-invoke
M: x86.64 %prepare-alien-indirect ( -- ) M: x86.64 %prepare-alien-indirect ( -- )
"unbox_alien" f %alien-invoke "unbox_alien" %vm-invoke-1st-arg
RBP RAX MOV ; RBP RAX MOV ;
M: x86.64 %alien-indirect ( -- ) M: x86.64 %alien-indirect ( -- )