From d8e3e531a15c3d6f4dcbc91a5a9f27824c66d8f4 Mon Sep 17 00:00:00 2001 From: simonmar 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 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) -- 1.7.10.4