From bc92a537ba9c55aecd5aa1596058ed6da38fda6d Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Mon, 18 May 1998 12:38:20 +0000
Subject: [PATCH] [project @ 1998-05-18 12:38:20 by simonm] bump:
uNFOLDING_USE_THRESHOLD to 8 uNFOLDING_CON_DISCOUNT_WEIGHT to 3
---
ghc/compiler/main/Constants.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/main/Constants.lhs b/ghc/compiler/main/Constants.lhs
index 96a01b7dd1b0..435de8aebffe 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}
--
GitLab