projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.1.29:
[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
cf5b970
..
b806ce1
100644
(file)
--- a/
src/runtime/x86-64-assem.S
+++ b/
src/runtime/x86-64-assem.S
@@
-97,7
+97,7
@@
GNAME(call_into_lisp_first_time):
mov THREAD_CONTROL_STACK_START_OFFSET(%rax) ,%rsp
/* don't think too hard about what happens if we get interrupted
* here */
mov THREAD_CONTROL_STACK_START_OFFSET(%rax) ,%rsp
/* don't think too hard about what happens if we get interrupted
* here */
- add $THREAD_CONTROL_STACK_SIZE-8,%rsp
+ add $THREAD_CONTROL_STACK_SIZE-16,%rsp
jmp Lstack
\f
.text
jmp Lstack
\f
.text
@@
-174,8
+174,9
@@
Lcall:
pop %rbx
/* FIXME Restore the NPX state. */
pop %rbx
/* FIXME Restore the NPX state. */
- pop %rbp # c-sp
+
/* return value is already in rax where lisp expects it */
/* return value is already in rax where lisp expects it */
+ leave
ret
.size GNAME(call_into_lisp), . - GNAME(call_into_lisp)
\f
ret
.size GNAME(call_into_lisp), . - GNAME(call_into_lisp)
\f
@@
-333,6
+334,7
@@
GNAME(post_signal_tramp):
popq %rbx
popq %rcx
popq %rax
popq %rbx
popq %rcx
popq %rax
+ popfl
leave
ret
.size GNAME(post_signal_tramp),.-GNAME(post_signal_tramp)
leave
ret
.size GNAME(post_signal_tramp),.-GNAME(post_signal_tramp)