projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use safepoints for INTERRUPT-THREAD
[sbcl.git]
/
src
/
runtime
/
x86-64-assem.S
diff --git
a/src/runtime/x86-64-assem.S
b/src/runtime/x86-64-assem.S
index
1fb7b00
..
bc41986
100644
(file)
--- a/
src/runtime/x86-64-assem.S
+++ b/
src/runtime/x86-64-assem.S
@@
-38,10
+38,12
@@
#define align_8byte 8
#define align_16byte 16
#define align_32byte 32
#define align_8byte 8
#define align_16byte 16
#define align_32byte 32
+#define align_page 32768
#else
#define align_4byte 2
#define align_8byte 3
#define align_16byte 4
#else
#define align_4byte 2
#define align_8byte 3
#define align_16byte 4
+#define align_page 15
#endif
/*
#endif
/*
@@
-275,6
+277,9
@@
GNAME(undefined_tramp):
ret
SIZE(GNAME(undefined_tramp))
ret
SIZE(GNAME(undefined_tramp))
+/* KLUDGE: FIND-ESCAPED-FRAME (SYS:SRC;CODE;DEBUG-INT.LISP) needs
+ * to know the name of the function immediately following the
+ * undefined-function trampoline. */
.text
.align align_16byte,0x90
.text
.align align_16byte,0x90
@@
-532,4
+537,10
@@
ascs_finished:
ret
SIZE(GNAME(arch_scrub_control_stack))
\f
ret
SIZE(GNAME(arch_scrub_control_stack))
\f
+ .globl GNAME(gc_safepoint_page)
+ .data
+ .align align_page
+GNAME(gc_safepoint_page):
+ .fill 32768
+
\f
END()
END()