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