From c9ffef812e9ffa1b731a1113e2d19dbb3f8c3397 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 13 Jun 1991 10:35:54 +0000
Subject: [PATCH] In the single value entry point in the function-end
 breakpoint template, set up OCFP and CSP like they would be in the mv case.

---
 ldb/mips-assem.s  | 4 +++-
 ldb/sparc-assem.s | 2 ++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/ldb/mips-assem.s b/ldb/mips-assem.s
index ce1eb4704..27f05a5f1 100644
--- a/ldb/mips-assem.s
+++ b/ldb/mips-assem.s
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/mips-assem.s,v 1.12 1991/05/29 12:14:21 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/mips-assem.s,v 1.13 1991/06/13 10:35:54 wlott Exp $ */
 #include <machine/regdef.h>
 
 #include "lisp.h"
@@ -336,6 +336,8 @@ function_end_breakpoint_guts:
 	.word	type_ReturnPcHeader
 	beq	zero, zero, 1f
 	nop
+	move	OCFP, CSP
+	addu	CSP, 4
 	li	NARGS, 4
 	move	A1, NULLREG
 	move	A2, NULLREG
diff --git a/ldb/sparc-assem.s b/ldb/sparc-assem.s
index 335e622e7..014ccedbd 100644
--- a/ldb/sparc-assem.s
+++ b/ldb/sparc-assem.s
@@ -269,6 +269,8 @@ _function_end_breakpoint_guts:
 	.word	type_ReturnPcHeader
 	b	1f
 	nop
+	mov	CSP, OCFP
+	add	4, CSP, CSP
 	mov	4, NARGS
 	mov	NULLREG, A1
 	mov	NULLREG, A2
-- 
GitLab