From 528e1a4ca9249b610105062f55c3d30755884656 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 16 Aug 1990 16:45:05 +0000
Subject: [PATCH] Added REGISTER-SAVE-PENALTY.

---
 compiler/old-rt/parms.lisp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/compiler/old-rt/parms.lisp b/compiler/old-rt/parms.lisp
index 3e8da5138..1cd2889a5 100644
--- a/compiler/old-rt/parms.lisp
+++ b/compiler/old-rt/parms.lisp
@@ -21,11 +21,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)
 
 
 ;;;; Assembler parameters:
-- 
GitLab