From 3e664735852117e5756472695b194055f5869510 Mon Sep 17 00:00:00 2001
From: "andy@galois.com" <unknown>
Date: Wed, 27 Jun 2007 05:38:08 +0000
Subject: [PATCH] Fixing -fhpc flag to allow -fno-hpc

---
 compiler/main/StaticFlags.hs |    7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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",
-- 
1.7.10.4