cpu.x86: save context before calling new_context() since it can trigger GC (bug repor...

diff --git a/basis/cpu/x86/32/bootstrap.factor b/basis/cpu/x86/32/bootstrap.factor
index fdcf5ca25f4c6e4860960d2cc168fa8f6c127a52..e438bd1c0ff87eae0c724a4dead4315acbd0897e 100644 (file)
--- a/basis/cpu/x86/32/bootstrap.factor
+++ b/basis/cpu/x86/32/bootstrap.factor
@@ -295,6 +295,7 @@ IN: bootstrap.x86
 : jit-start-context ( -- )
     ! Create the new context in return-reg
     jit-load-vm
+    jit-save-context
     ESP [] vm-reg MOV
     "new_context" jit-call
 

diff --git a/basis/cpu/x86/64/bootstrap.factor b/basis/cpu/x86/64/bootstrap.factor
index 308546131a22f1becd77fd6805fcec07b987238a..e8c8d996435bf173476248ccfae0c90ae167befd 100644 (file)
--- a/basis/cpu/x86/64/bootstrap.factor
+++ b/basis/cpu/x86/64/bootstrap.factor
@@ -270,6 +270,7 @@ IN: bootstrap.x86
 
 : jit-start-context ( -- )
     ! Create the new context in return-reg
+    jit-save-context
     arg1 vm-reg MOV
     "new_context" jit-call