From 248cb69220aca39e718415ca62c5d212f13d5fc6 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 13 Jun 1991 12:42:24 +0000
Subject: [PATCH] The return convention has the LRA in CODE, not LRA.

---
 ldb/breakpoint.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ldb/breakpoint.c b/ldb/breakpoint.c
index 2470451c7..611e36e75 100644
--- a/ldb/breakpoint.c
+++ b/ldb/breakpoint.c
@@ -130,7 +130,7 @@ struct sigcontext *scp;
 
     lra = codeptr->constants[REAL_LRA_SLOT];
     if (codeptr->constants[KNOWN_RETURN_P_SLOT] == NIL)
-	scp->sc_regs[LRA] = lra;
+	scp->sc_regs[CODE] = lra;
     scp->sc_pc = lra - type_OtherPointer+sizeof(lispobj);
 }
 
-- 
GitLab