From: Phil Dawes <phil@phildawes.net>
Date: Thu, 27 Aug 2009 18:58:40 +0000 (+0100)
Subject: fixed vm ptr passing to to_value_struct
X-Git-Tag: 0.97~5502^2~2^2~26
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=0470b7d2c590119d4b3c6c1a0755127e5f823f31

fixed vm ptr passing to to_value_struct
---

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