From 01ffe7e78f2c0519d8096ea44f4064e11115afd6 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 16 Nov 1990 04:29:15 +0000 Subject: [PATCH] Tuck backend info into *target-backend* instead of *backend*. --- compiler/mips/parms.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp index d5528e912..acfc22828 100644 --- a/compiler/mips/parms.lisp +++ b/compiler/mips/parms.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.80 1990/11/03 15:34:32 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.81 1990/11/16 04:29:15 wlott Exp $ ;;; ;;; This file contains some parameterizations of various VM ;;; attributes for the MIPS. This file is separate from other stuff so @@ -33,14 +33,14 @@ (eval-when (compile eval load) -(setf (backend-name *backend*) "PMAX") -(setf (backend-version *backend*) "DECstation 3100/Mach 0.0") -(setf (backend-fasl-file-type *backend*) "mips-fasl") -(setf (backend-fasl-file-implementation *backend*) +(setf (backend-name *target-backend*) "PMAX") +(setf (backend-version *target-backend*) "DECstation 3100/Mach 0.0") +(setf (backend-fasl-file-type *target-backend*) "mips-fasl") +(setf (backend-fasl-file-implementation *target-backend*) pmax-fasl-file-implementation) -(setf (backend-fasl-file-version *backend*) 1) -(setf (backend-register-save-penalty *backend*) 3) -(setf (backend-byte-order *backend*) :little-endian) +(setf (backend-fasl-file-version *target-backend*) 1) +(setf (backend-register-save-penalty *target-backend*) 3) +(setf (backend-byte-order *target-backend*) :little-endian) ); eval-when -- GitLab