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