From 7fe3a41ea9b46a42715ca782bb8c28ad48ddb5f5 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 21 May 1990 17:21:42 +0000
Subject: [PATCH] Made CONT and OLD-CONT be registers once again so that we
 don't have to dick with the assembler code.

---
 assembler/rompconst.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/assembler/rompconst.lisp b/assembler/rompconst.lisp
index 26be4e6c6..b653257d2 100644
--- a/assembler/rompconst.lisp
+++ b/assembler/rompconst.lisp
@@ -868,11 +868,12 @@
 (register name 9)		; Name of function we are trying to call
 (register l3 10)		; Boxed Temporary
 (register old-fp 10)		; Fp to return to
+(register old-cont 10)		; Fp to return to (old name)
 (register l4 11)		; Boxed Temporary
 (register args 11)		; Pointer to stack arguments
 (register bs 12)		; Binding Stack Pointer
-(register fp 13)		; Active Frame Pointer (old name)
-(register fp 13)		; Current Fp
+(register fp 13)		; Frame Pointer 
+(register cont 13)		; Current Fp (old name)
 (register af 14)		; Active Function Pointer (old name)
 (register env 14)		; Current constant pool, called function.
 (register pc 15)		; PC, Return PC for misc-ops, and
-- 
GitLab