diff --git a/ldb/mips-assem.s b/ldb/mips-assem.s index ce1eb47046c4e4bbac6f13988ad4c1348c62e6a9..27f05a5f1665d354895b391caa34b833f0832bd2 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 335e622e73fc88164c0be32c256dcf018ddda4e2..014ccedbd2db04a5ed15375761a2c8ae964a07ea 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