projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.109:
[sbcl.git]
/
src
/
runtime
/
alpha-assem.S
diff --git
a/src/runtime/alpha-assem.S
b/src/runtime/alpha-assem.S
index
c636fe3
..
3fd27e6
100644
(file)
--- a/
src/runtime/alpha-assem.S
+++ b/
src/runtime/alpha-assem.S
@@
-100,7
+100,7
@@
call_into_lisp:
.globl call_into_lisp_LRA
call_into_lisp_LRA:
.globl call_into_lisp_LRA
call_into_lisp_LRA:
- .long type_ReturnPcHeader
+ .long RETURN_PC_HEADER_WIDETAG
/* execution resumes here*/
mov reg_OCFP,reg_CSP
/* execution resumes here*/
mov reg_OCFP,reg_CSP
@@
-278,7
+278,7
@@
closure_tramp = /* ### */ 0x150 + call_into_lisp_LRA_page
closure_tramp_offset:
ldl reg_LEXENV, FDEFN_FUN_OFFSET(reg_FDEFN)
ldl reg_L0, CLOSURE_FUN_OFFSET(reg_LEXENV)
closure_tramp_offset:
ldl reg_LEXENV, FDEFN_FUN_OFFSET(reg_FDEFN)
ldl reg_L0, CLOSURE_FUN_OFFSET(reg_LEXENV)
- addl reg_L0, FUN_CODE_OFFSET, reg_LIP
+ addl reg_L0, SIMPLE_FUN_CODE_OFFSET, reg_LIP
jmp reg_ZERO,(reg_LIP)
.end closure_tramp
jmp reg_ZERO,(reg_LIP)
.end closure_tramp
@@
-296,7
+296,7
@@
end_of_tramps:
.set noreorder
.globl fun_end_breakpoint_guts
fun_end_breakpoint_guts:
.set noreorder
.globl fun_end_breakpoint_guts
fun_end_breakpoint_guts:
- .long type_ReturnPcHeader
+ .long RETURN_PC_HEADER_WIDETAG
br zero, fun_end_breakpoint_trap
nop
mov reg_CSP, reg_OCFP
br zero, fun_end_breakpoint_trap
nop
mov reg_CSP, reg_OCFP