From: simonmar <unknown>
Date: Wed, 7 Jul 1999 15:28:19 +0000 (+0000)
Subject: [project @ 1999-07-07 15:28:19 by simonmar]
X-Git-Tag: Approximately_9120_patches~6011
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d8e3e531a15c3d6f4dcbc91a5a9f27824c66d8f4

[project @ 1999-07-07 15:28:19 by simonmar]
Reduce ScrutConDiscount from 3 to 2.
---

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index fa59c92..5d06739 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -420,7 +420,7 @@ opt_SimplPedanticBottoms	= lookUp SLIT("-fpedantic-bottoms")
 opt_UF_HiFileThreshold		= lookup_def_int "-funfolding-interface-threshold" (30::Int)
 opt_UF_CreationThreshold	= lookup_def_int "-funfolding-creation-threshold"  (30::Int)
 opt_UF_UseThreshold		= lookup_def_int "-funfolding-use-threshold"	   (8::Int)	-- Discounts can be big
-opt_UF_ScrutConDiscount		= lookup_def_int "-funfolding-con-discount"	   (3::Int)
+opt_UF_ScrutConDiscount		= lookup_def_int "-funfolding-con-discount"	   (2::Int)
 opt_UF_FunAppDiscount		= lookup_def_int "-funfolding-fun-discount"	   (6::Int)	-- It's great to inline a fn
 opt_UF_PrimArgDiscount		= lookup_def_int "-funfolding-prim-discount"	   (1::Int)
 opt_UF_KeenessFactor		= lookup_def_float "-funfolding-keeness-factor"	   (2.0::Float)