From d8e3e531a15c3d6f4dcbc91a5a9f27824c66d8f4 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 7 Jul 1999 15:28:19 +0000
Subject: [PATCH] [project @ 1999-07-07 15:28:19 by simonmar] Reduce
ScrutConDiscount from 3 to 2.
---
ghc/compiler/main/CmdLineOpts.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index fa59c9251592..5d0673912d96 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)
--
GitLab