cpu.x86: c-to-factor needs to deal with the fact that vm-reg might have been clobbered

diff --git a/basis/cpu/x86/32/bootstrap.factor b/basis/cpu/x86/32/bootstrap.factor
index 8a5e43da31f7e25dea581a082333c4e124d3ac10..2798677c2c22389b55bc35c384e8eb2be0238a78 100644 (file)
--- a/basis/cpu/x86/32/bootstrap.factor
+++ b/basis/cpu/x86/32/bootstrap.factor
@@ -76,6 +76,7 @@ IN: bootstrap.x86
     ! call the quotation
     EAX quot-xt-offset [+] CALL
     ! save ds, rs registers
+    jit-load-vm
     jit-save-context
 ] \ c-to-factor define-sub-primitive
 

diff --git a/basis/cpu/x86/64/bootstrap.factor b/basis/cpu/x86/64/bootstrap.factor
index 2d0296e15911c6401cdf387608571992a5edbf38..f47eb7eb70c6c4e5c50cebe3df7c598fd0a65abf 100644 (file)
--- a/basis/cpu/x86/64/bootstrap.factor
+++ b/basis/cpu/x86/64/bootstrap.factor
@@ -74,6 +74,7 @@ IN: bootstrap.x86
     ctx-reg context-callstack-bottom-offset [+] safe-reg MOV
     ! call the quotation
     arg1 quot-xt-offset [+] CALL
+    jit-load-vm
     jit-save-context
 ] \ c-to-factor define-sub-primitive