fixed vm ptr passing to box_value_struct

diff --git a/basis/cpu/x86/64/64.factor b/basis/cpu/x86/64/64.factor
index 925de44c23409d7ef5b7fd1b5ccc3947e524b50b..498a502fcac63ab487fe80b9e9cbd008d4f2361b 100644 (file)
--- a/basis/cpu/x86/64/64.factor
+++ b/basis/cpu/x86/64/64.factor
@@ -165,7 +165,7 @@ M: x86.64 %box-large-struct ( n c-type -- )
     ! Compute destination address
     param-reg-1 swap struct-return@ LEA
     ! Copy the struct from the C stack
-    "box_value_struct" f %alien-invoke ;
+    "box_value_struct" %vm-invoke-3rd-arg ;
 
 M: x86.64 %prepare-box-struct ( -- )
     ! Compute target address for value struct return