From ec6f70dd18fca48e2753bf6c912571423e769cc3 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 26 Nov 1990 16:01:56 +0000
Subject: [PATCH] Changed fp to cfp and old-fp to ocfp.

---
 compiler/mips/vm.lisp | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/compiler/mips/vm.lisp b/compiler/mips/vm.lisp
index 8d51611d8..3cde4d412 100644
--- a/compiler/mips/vm.lisp
+++ b/compiler/mips/vm.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.38 1990/11/13 23:00:46 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.39 1990/11/26 16:01:56 wlott Exp $
 ;;;
 ;;; This file contains the VM definition for the MIPS R2000 and the new
 ;;; object format.
@@ -54,12 +54,14 @@
 (defreg cname 14)
 (defreg lexenv 15)
 (defreg nfp 16)
-(defreg old-fp 17)
+(defreg ocfp 17)
+(defconstant old-fp-offset 17) ; for backwards compatibility
 (defreg lra 18)
 (defreg l0 19)
 (defreg null 20)
 (defreg bsp 21)
-(defreg fp 22)
+(defreg cfp 22)
+(defconstant fp-offset 22) ; for backwards compatibility
 (defreg csp 23)
 (defreg l1 24)
 (defreg alloc 25)
@@ -72,7 +74,7 @@
   nl0 nl1 nl2 nl3 nl4 nargs)
 
 (defregset descriptor-regs
-  a0 a1 a2 a3 a4 a5 cname lexenv nfp old-fp lra l0 l1 l2)
+  a0 a1 a2 a3 a4 a5 cname lexenv nfp ocfp lra l0 l1 l2)
 
 (defregset register-arg-offsets
   a0 a1 a2 a3 a4 a5)
@@ -272,8 +274,10 @@
 
 (defregtn bsp any-reg)
 (defregtn csp any-reg)
-(defregtn fp any-reg)
-(defregtn old-fp any-reg)
+(defregtn cfp any-reg)
+(defregtn ocfp any-reg)
+(defregtn fp any-reg) ; for backwards compatibility
+(defregtn old-fp any-reg) ; for backwards compatibility
 (defregtn nsp any-reg)
 (defregtn nfp any-reg)
 
@@ -336,7 +340,8 @@
 (eval-when (compile load eval)
 
 ;;; Offsets of special stack frame locations
-(defconstant old-fp-save-offset 0)
+(defconstant ocfp-save-offset 0)
+(defconstant old-fp-save-offset 0) ; for backwards compatablility.
 (defconstant lra-save-offset 1)
 (defconstant nfp-save-offset 2)
 
-- 
GitLab