projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't check SUBTYPEP of ELEMENT-TYPE in ADJUST-ARRAY unnecessarily
[sbcl.git]
/
src
/
runtime
/
safepoint.c
diff --git
a/src/runtime/safepoint.c
b/src/runtime/safepoint.c
index
3faabe5
..
8a34a08
100644
(file)
--- a/
src/runtime/safepoint.c
+++ b/
src/runtime/safepoint.c
@@
-983,6
+983,11
@@
callback_wrapper_trampoline(
if (!th)
lose("callback invoked in non-lisp thread. Sorry, that is not supported yet.");
if (!th)
lose("callback invoked in non-lisp thread. Sorry, that is not supported yet.");
+#ifdef LISP_FEATURE_WIN32
+ /* arg2 is the pointer to a return value, which sits on the stack */
+ th->carried_base_pointer = (os_context_register_t) *(((void**)arg2)-1);
+#endif
+
WITH_GC_AT_SAFEPOINTS_ONLY()
funcall3(SymbolValue(ENTER_ALIEN_CALLBACK, 0), arg0, arg1, arg2);
}
WITH_GC_AT_SAFEPOINTS_ONLY()
funcall3(SymbolValue(ENTER_ALIEN_CALLBACK, 0), arg0, arg1, arg2);
}