X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falpha-assem.S;h=ed5074fc74a2ef123ee7cd2b39ac3fb16776db3e;hb=7f0f521aa3f6b45259c5dfd5f7f11adcd1a7cac6;hp=c636fe31df839db2f9ea54101be86c1ad32449a8;hpb=6fb6e66f531dfb6140ec3e0cc8f84f6ecd1927ca;p=sbcl.git

diff --git a/src/runtime/alpha-assem.S b/src/runtime/alpha-assem.S
index c636fe3..ed5074f 100644
--- 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:	
 
-	.long	type_ReturnPcHeader
+	.long	RETURN_PC_HEADER_WIDETAG
 
 	/* execution resumes here*/
 	mov	reg_OCFP,reg_CSP
@@ -260,7 +260,7 @@ undefined_tramp_offset:
 	call_pal PAL_bugchk
 	.long    trap_Error
         .byte    4                         /* what are these numbers? */
-        .byte    23
+        .byte    UNDEFINED_FUN_ERROR
         .byte    254
         .byte    (0xe0 + sc_DescriptorReg)
         .byte    2
@@ -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)
-        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
 
@@ -296,7 +296,7 @@ end_of_tramps:
 	.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