X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falpha-assem.S;h=ba97b81117618b1481b4bf796dbef936eb47e68f;hb=959057baab99d4328fc386aee3fcc812f5fcb3ed;hp=f4e21134c10793dfac3b5abd94dc89fe87a849b0;hpb=dfa55a883f94470267b626dae77ce7e7dfac3df6;p=sbcl.git

diff --git a/src/runtime/alpha-assem.S b/src/runtime/alpha-assem.S
index f4e2113..ba97b81 100644
--- a/src/runtime/alpha-assem.S
+++ b/src/runtime/alpha-assem.S
@@ -1,3 +1,14 @@
+/*
+ * This software is part of the SBCL system. See the README file for
+ * more information.
+ *
+ * This software is derived from the CMU CL system, which was
+ * written at Carnegie Mellon University and released into the
+ * public domain. The software is in the public domain and is
+ * provided with absolutely no warranty. See the COPYING and CREDITS
+ * files for more information.
+ */
+	
 #include "validate.h"		
 #include <alpha/regdef.h>
 #include <asm/pal.h> 
@@ -246,7 +257,7 @@ start_of_tramps:
         .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
@@ -300,7 +311,7 @@ function_end_breakpoint_guts:
 
 	.globl	function_end_breakpoint_trap
 function_end_breakpoint_trap:
-	call_pal PAL_gentrap
+	call_pal PAL_bugchk
 	.long	trap_FunctionEndBreakpoint
 	br	zero, function_end_breakpoint_trap