X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fsparc-assem.S;h=6c2af48150f22110fe47e0b8a4afb6bafa20c794;hb=f7faed97898dd0e94a18b0d1fca03aaa0fe24ab0;hp=ac6342dce8e29a2ad51480fbd77b08c11f10489f;hpb=39e19255f69cbba8668b4b7ffa58532ab6309375;p=sbcl.git

diff --git a/src/runtime/sparc-assem.S b/src/runtime/sparc-assem.S
index ac6342d..6c2af48 100644
--- a/src/runtime/sparc-assem.S
+++ b/src/runtime/sparc-assem.S
@@ -265,11 +265,16 @@ funcallable_instance_tramp = . + 1
  * Function-end breakpoint magic.
  */
 
+/*
+ * For an explanation of the magic involved in function-end
+ * breakpoints, see the implementation in ppc-assem.S.
+ */
+
 	.text
 	.align	8
 	.global	fun_end_breakpoint_guts
 fun_end_breakpoint_guts:
-	.word	RETURN_PC_HEADER_WIDETAG
+	.word	RETURN_PC_HEADER_WIDETAG + 0x800
 	b	1f
 	nop
 	mov	reg_CSP, reg_OCFP