0.pre7.29:

[sbcl.git] / src / runtime / alpha-assem.S

diff --git a/src/runtime/alpha-assem.S b/src/runtime/alpha-assem.S
index f4e2113..ba97b81 100644 (file)
--- 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