ldl reg_A5,20(reg_CFP)
/* This call will 'return' into the LRA page below */
- lda reg_LRA,call_into_lisp_LRA_page+type_OtherPointer
+ lda reg_LRA,call_into_lisp_LRA_page+OTHER_POINTER_LOWTAG
/* Indirect the closure */
- ldl reg_CODE,CLOSURE_FUNCTION_OFFSET(reg_LEXENV)
- addl reg_CODE,6*4-type_FunctionPointer,reg_LIP
+ ldl reg_CODE, CLOSURE_FUN_OFFSET(reg_LEXENV)
+ addl reg_CODE,6*4-FUN_POINTER_LOWTAG, reg_LIP
/* And into lisp we go. */
jsr reg_ZERO,(reg_LIP)
.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
addq reg_CFP, 32, reg_CSP
stl reg_OCFP, 0(reg_CFP)
subl reg_LIP, reg_CODE, reg_L1
- addl reg_L1, type_OtherPointer, reg_L1
+ addl reg_L1, OTHER_POINTER_LOWTAG, reg_L1
stl reg_L1, 4(reg_CFP)
stl reg_CODE, 8(reg_CFP)
stl reg_NULL, 12(reg_CFP)
/* can you see anything here which touches LRA? I can't ...*/
ldl reg_CODE, 8(reg_CFP)
ldl reg_NL0, 4(reg_CFP)
- subq reg_NL0, type_OtherPointer, reg_NL0
+ subq reg_NL0, OTHER_POINTER_LOWTAG, reg_NL0
addq reg_CODE, reg_NL0, reg_NL0
mov reg_CFP, reg_CSP
.ent undefined_tramp_offset
undefined_tramp = /* ### undefined_tramp_offset-call_into_lisp_LRA*/ 0x140+call_into_lisp_LRA_page
undefined_tramp_offset:
- bpt
+ call_pal PAL_bugchk
.long trap_Error
.byte 4 /* what are these numbers? */
.byte 23
.ent closure_tramp_offset
closure_tramp = /* ### */ 0x150 + call_into_lisp_LRA_page
closure_tramp_offset:
- ldl reg_LEXENV, FDEFN_FUNCTION_OFFSET(reg_FDEFN)
- ldl reg_L0, CLOSURE_FUNCTION_OFFSET(reg_LEXENV)
- addl reg_L0, FUNCTION_CODE_OFFSET, reg_LIP
+ ldl reg_LEXENV, FDEFN_FUN_OFFSET(reg_FDEFN)
+ ldl reg_L0, CLOSURE_FUN_OFFSET(reg_LEXENV)
+ addl reg_L0, SIMPLE_FUN_CODE_OFFSET, reg_LIP
jmp reg_ZERO,(reg_LIP)
.end closure_tramp
/*
- * Function-end breakpoint magic.
+ * fun-end breakpoint magic.
*/
.text
.align 2
.set noreorder
- .globl function_end_breakpoint_guts
-function_end_breakpoint_guts:
- .long type_ReturnPcHeader
- br zero, function_end_breakpoint_trap
+ .globl fun_end_breakpoint_guts
+fun_end_breakpoint_guts:
+ .long RETURN_PC_HEADER_WIDETAG
+ br zero, fun_end_breakpoint_trap
nop
mov reg_CSP, reg_OCFP
addl reg_CSP, 4, reg_CSP
mov reg_NULL, reg_A5
1:
- .globl function_end_breakpoint_trap
-function_end_breakpoint_trap:
- call_pal PAL_gentrap
- .long trap_FunctionEndBreakpoint
- br zero, function_end_breakpoint_trap
+ .globl fun_end_breakpoint_trap
+fun_end_breakpoint_trap:
+ call_pal PAL_bugchk
+ .long trap_FunEndBreakpoint
+ br zero, fun_end_breakpoint_trap
- .globl function_end_breakpoint_end
-function_end_breakpoint_end:
+ .globl fun_end_breakpoint_end
+fun_end_breakpoint_end: