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