From: simonm <unknown>
Date: Mon, 18 May 1998 12:38:20 +0000 (+0000)
Subject: [project @ 1998-05-18 12:38:20 by simonm]
X-Git-Tag: Approx_2487_patches~683
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bc92a537ba9c55aecd5aa1596058ed6da38fda6d;p=ghc-hetmet.git

[project @ 1998-05-18 12:38:20 by simonm]
bump:	uNFOLDING_USE_THRESHOLD  	to 8
	uNFOLDING_CON_DISCOUNT_WEIGHT  	to 3
---

diff --git a/ghc/compiler/main/Constants.lhs b/ghc/compiler/main/Constants.lhs
index 96a01b7..435de8a 100644
--- a/ghc/compiler/main/Constants.lhs
+++ b/ghc/compiler/main/Constants.lhs
@@ -78,7 +78,7 @@ import Util
 
 All pretty arbitrary:
 \begin{code}
-uNFOLDING_USE_THRESHOLD	      = ( 3 :: Int)
+uNFOLDING_USE_THRESHOLD	      = ( 8 :: Int)
 uNFOLDING_CREATION_THRESHOLD  = (30 :: Int)	-- Discounts can be big
 iNTERFACE_UNFOLD_THRESHOLD    = (30 :: Int)
 lIBERATE_CASE_THRESHOLD	      = (10 :: Int)
@@ -86,7 +86,7 @@ lIBERATE_CASE_THRESHOLD	      = (10 :: 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_CON_DISCOUNT_WEIGHT = ( 3 :: Int)
 uNFOLDING_KEENESS_FACTOR      = ( 2.0 :: Float)
 \end{code}