diff --git a/ldb/breakpoint.c b/ldb/breakpoint.c index 2470451c77cbe24496ded1ca26a94b3b3f9749dd..611e36e7534bae359eb5aac6b21a6909f513e383 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); }