From 6087cf64c0f0792598ec639a7635bc94e1bffda6 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 3 Feb 2012 16:40:24 -0700 Subject: [PATCH] svm: IMPORT_REGS should restore dynamic-link. The i386's interface_to_scheme restores this register from the CC_STACK_ENV pushed by comutil_interrupt_dlink via compiler_interrupt_common. comp_interrupt_restart has popped the CC_STACK_ENV into the value register and interface_to_scheme takes it from there. --- src/microcode/svm1-interp.c | 1 + 1 file changed, 1 insertion(+) diff --git a/src/microcode/svm1-interp.c b/src/microcode/svm1-interp.c index a6433b618..28a1cf7cb 100644 --- a/src/microcode/svm1-interp.c +++ b/src/microcode/svm1-interp.c @@ -187,6 +187,7 @@ initialize_svm1 (void) WREG_SET (SVM1_REG_STACK_POINTER, ((word_t)stack_pointer)); \ WREG_SET (SVM1_REG_FREE_POINTER, ((word_t)Free)); \ WREG_SET (SVM1_REG_VALUE, GET_VAL); \ + WREG_SET (SVM1_REG_DYNAMIC_LINK, BYTE_ADDR(OBJECT_ADDRESS(GET_VAL))); \ } while (0) #define EXPORT_REGS() do \ -- 2.25.1