From: sof <unknown>
Date: Sun, 19 Oct 1997 21:53:38 +0000 (+0000)
Subject: [project @ 1997-10-19 21:53:38 by sof]
X-Git-Tag: Approx_2487_patches~1350
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2a37dc6126cdbe8c3b1223995860e52958f84f92;p=ghc-hetmet.git

[project @ 1997-10-19 21:53:38 by sof]
Default for uNFOLDING_KEENESS_FACTOR (2.0) added; uNFOLDING_OVERRIDE_THRESHOLD removed
---

diff --git a/ghc/compiler/main/Constants.lhs b/ghc/compiler/main/Constants.lhs
index 154867b..75adfae 100644
--- a/ghc/compiler/main/Constants.lhs
+++ b/ghc/compiler/main/Constants.lhs
@@ -13,13 +13,13 @@
 module Constants (
 	uNFOLDING_USE_THRESHOLD,
 	uNFOLDING_CREATION_THRESHOLD,
---	uNFOLDING_OVERRIDE_THRESHOLD,
 	iNTERFACE_UNFOLD_THRESHOLD,
 	lIBERATE_CASE_THRESHOLD,
 	uNFOLDING_CHEAP_OP_COST,
 	uNFOLDING_DEAR_OP_COST,
 	uNFOLDING_NOREP_LIT_COST,
 	uNFOLDING_CON_DISCOUNT_WEIGHT,
+	uNFOLDING_KEENESS_FACTOR,
 
 	mAX_SPEC_ALL_PTRS,
 	mAX_SPEC_ALL_NONPTRS,
@@ -81,16 +81,16 @@ import Util
 
 All pretty arbitrary:
 \begin{code}
-uNFOLDING_USE_THRESHOLD	      = ( 8 :: Int)
-uNFOLDING_CREATION_THRESHOLD  = (30 :: Int)
+uNFOLDING_USE_THRESHOLD	      = ( 3 :: Int)
+uNFOLDING_CREATION_THRESHOLD  = (30 :: Int)	-- Discounts can be big
 iNTERFACE_UNFOLD_THRESHOLD    = (30 :: Int)
 lIBERATE_CASE_THRESHOLD	      = (10 :: Int)
--- uNFOLDING_OVERRIDE_THRESHOLD  = ( 8 :: Int)
 
 uNFOLDING_CHEAP_OP_COST       = ( 1 :: Int)
 uNFOLDING_DEAR_OP_COST        = ( 4 :: Int)
 uNFOLDING_NOREP_LIT_COST      = ( 20 :: Int)	-- Strings can be pretty big
 uNFOLDING_CON_DISCOUNT_WEIGHT = ( 1 :: Int)
+uNFOLDING_KEENESS_FACTOR      = ( 2.0 :: Float)
 \end{code}
 
 \begin{code}