dllexport symbols in cpu-x86.*.S

diff --git a/vm/cpu-x86.32.S b/vm/cpu-x86.32.S
index 6233b4a14f22812af88ac9829fe9db9a650a0576..0e144c5a110434e1bcfe1b46c8508574e0e8ef41 100644 (file)
--- a/vm/cpu-x86.32.S
+++ b/vm/cpu-x86.32.S
@@ -44,3 +44,6 @@ DEF(void,set_callstack,(F_STACK_FRAME *to, F_STACK_FRAME *from, CELL length, voi
        ret                                /* return _with new stack_ */
 
 #include "cpu-x86.S"
+
+.section .drectve
+.ascii " -export:set_callstack"

diff --git a/vm/cpu-x86.64.S b/vm/cpu-x86.64.S
index 4e8faa18de1903baa7028dd538cd3090e3c0ebec..55792cc20514309a69475ca1e04f4153cf4a7645 100644 (file)
--- a/vm/cpu-x86.64.S
+++ b/vm/cpu-x86.64.S
@@ -36,3 +36,6 @@ DEF(void,set_callstack,(F_STACK_FRAME *to, F_STACK_FRAME *from, CELL length, voi
        ret                                /* return _with new stack_ */
 
 #include "cpu-x86.S"
+
+.section .drectve
+.ascii " -export:set_callstack"

diff --git a/vm/cpu-x86.S b/vm/cpu-x86.S
index 7c9ab4e2cc150d4d0b070da15f87fac624fbd585..6096f034f042e38f4cdbb198a6715126147a080f 100644 (file)
--- a/vm/cpu-x86.S
+++ b/vm/cpu-x86.S
@@ -63,3 +63,12 @@ DEF(FASTCALL void,lazy_jit_compile,(CELL quot)):
        pop XT_REG
        pop XT_REG
         JUMP_QUOT                    /* Call the quotation */
+
+.section .drectve
+.ascii " -export:c_to_factor"
+.ascii " -export:undefined"
+.ascii " -export:docol_profiling"
+.ascii " -export:primitive_call"
+.ascii " -export:primitive_execute"
+.ascii " -export:throw_impl"
+.ascii " -export:lazy_jit_compile"