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