From: andy@galois.com <unknown>
Date: Wed, 27 Jun 2007 05:38:08 +0000 (+0000)
Subject: Fixing -fhpc flag to allow -fno-hpc
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=3e664735852117e5756472695b194055f5869510

Fixing -fhpc flag to allow -fno-hpc
---

diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs
index 457626c..9e13360 100644
--- a/compiler/main/StaticFlags.hs
+++ b/compiler/main/StaticFlags.hs
@@ -160,10 +160,6 @@ static_flags = [
   ,  ( "dppr-user-length", AnySuffix addOpt )
       -- rest of the debugging flags are dynamic
 
-	--------- Haskell Program Coverage -----------------------------------
-
-  ,  ( "fhpc"           , PassFlag addOpt )
-
 	--------- Profiling --------------------------------------------------
   ,  ( "auto-all"	, NoArg (addOpt "-fauto-sccs-on-all-toplevs") )
   ,  ( "auto"		, NoArg (addOpt "-fauto-sccs-on-exported-toplevs") )
@@ -370,7 +366,8 @@ isStaticFlag f =
 	"fext-core",
 	"fcpr-off",
 	"ferror-spans",
-	"fPIC"
+	"fPIC",
+	"fhpc"
 	]
   || any (flip prefixMatch f) [
 	"fliberate-case-threshold",