From 4af6d3552e757ea8e4e8f3483a9c61bb3909077d Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 6 Sep 1990 17:46:11 +0000
Subject: [PATCH] Nuked most-positive-cost and added register-save-penalty.

---
 compiler/mips/parms.lisp | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp
index a1661c835..bf201c71b 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.67 1990/08/15 02:51:40 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.68 1990/09/06 17:46:11 wlott Exp $
 ;;;
 ;;;    This file contains some parameterizations of various VM
 ;;; attributes for the MIPS.  This file is separate from other stuff so 
@@ -29,13 +29,10 @@
 ;;;
 (defconstant sc-number-limit 32)
 
-;;; The inclusive upper bound on a cost.  We want to write cost frobbing
-;;; code so that it is portable, but works on fixnums.  This constant
-;;; should be defined so that adding two costs cannot result in fixnum
-;;; overflow.
+;;; The number of references that a TN must have to offset the overhead of
+;;; saving the TN across a call.
 ;;;
-(defconstant most-positive-cost (1- (expt 2 20)))
-
+(defconstant register-save-penalty 3)
 
 
 ;;;; Machine Architecture parameters:
-- 
GitLab