cpu.x86.*: fix %prepare-var-args

EAX EAX XOR over RAX shaves off one byte

diff --git a/basis/cpu/x86/64/64.factor b/basis/cpu/x86/64/64.factor
index 72a98fe181d2d861bcd0604888df58c0ddda6b04..9e2ee5e11d6ac0f05eafc45c2d731e562abfcd3b 100644 (file)
--- a/basis/cpu/x86/64/64.factor
+++ b/basis/cpu/x86/64/64.factor
@@ -112,7 +112,7 @@ M: x86.64 %end-callback ( -- )
     param-reg-0 vm-reg MOV
     "end_callback" f f %c-invoke ;
 
-M: x86.64 %prepare-var-args ( -- ) RAX RAX XOR ;
+M: x86.64 %prepare-var-args ( -- ) EAX EAX XOR ;
 
 M: x86.64 stack-cleanup 3drop 0 ;
 

diff --git a/basis/cpu/x86/64/unix/unix.factor b/basis/cpu/x86/64/unix/unix.factor
index dfd61abfceffaf547614935e085dd576e610dd92..84a34988e0d68ab0f36de77610cd4351c8c91da3 100644 (file)
--- a/basis/cpu/x86/64/unix/unix.factor
+++ b/basis/cpu/x86/64/unix/unix.factor
@@ -44,5 +44,3 @@ M: x86.64 dummy-stack-params? f ;
 M: x86.64 dummy-int-params? f ;
 
 M: x86.64 dummy-fp-params? f ;
-
-M: x86.64 %prepare-var-args RAX RAX XOR ;

diff --git a/basis/cpu/x86/x86-tests.factor b/basis/cpu/x86/x86-tests.factor
index 5e61d3c34c8731c023a8f33762bf9183483bf3eb..56fc27372b5ca17e181f76f76c96c27625a074b8 100644 (file)
--- a/basis/cpu/x86/x86-tests.factor
+++ b/basis/cpu/x86/x86-tests.factor
@@ -2,7 +2,8 @@ USING: compiler.cfg.debugger compiler.cfg.instructions
 compiler.cfg.registers compiler.codegen.gc-maps
 compiler.codegen.relocation cpu.architecture cpu.x86 cpu.x86.assembler
 cpu.x86.assembler.operands cpu.x86.features kernel kernel.private
-layouts make math math.libm namespaces sequences system tools.test ;
+layouts literals make math math.libm namespaces sequences system
+tools.test ;
 IN: cpu.x86.tests
 
 { } [
@@ -79,6 +80,13 @@ cpu x86.64? [
     [ RCX 0 %load-immediate ] B{ } make
 ] unit-test
 
+! %prepare-varargs
+${
+    cpu x86.64? B{ 49 192 } B{ } ?
+} [
+    [ %prepare-var-args ] B{ } make
+] unit-test
+
 ! %prologue
 { t } [
     [ 2 cells %prologue ] B{ } make