X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fhppa-assem.S;h=97ada0c9bae521eb7e99bb317248013094d653c5;hb=0ed4db4a998679b83cdf7978b2c67470dec70b49;hp=25cb29d4bfea27e69dabc587daccf4a20e4e2eb6;hpb=26987375eb9dae6e9b15084e317a04a6509dd05f;p=sbcl.git

diff --git a/src/runtime/hppa-assem.S b/src/runtime/hppa-assem.S
index 25cb29d..97ada0c 100644
--- a/src/runtime/hppa-assem.S
+++ b/src/runtime/hppa-assem.S
@@ -436,10 +436,15 @@ SingleStepTraps:
 	there's a break 0,0 in the new version here!!!
 */
 
+/*
+ * For an explanation of the magic involved in function-end
+ * breakpoints, see the implementation in ppc-assem.S.
+ */
+
 	.align	8
 	.export fun_end_breakpoint_guts
 fun_end_breakpoint_guts:
-	.word	RETURN_PC_HEADER_WIDETAG
+	.word	RETURN_PC_HEADER_WIDETAG + 0x800
 	/* multiple value return point -- just jump to trap. */
 	b,n	fun_end_breakpoint_trap
 	/* single value return point -- convert to multiple w/ n=1 */