X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FStaticFlags.hs;h=2398c20086cdb11652a321aead6b960df88a0030;hp=206055420b66b0d586f874fba27cc9ada30dc447;hb=e6243a818496aad82b6f47511d3bd9bc800f747d;hpb=176fa33f17dd78355cc572e006d2ab26898e2c69

diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs
index 2060554..2398c20 100644
--- a/compiler/main/StaticFlags.hs
+++ b/compiler/main/StaticFlags.hs
@@ -74,6 +74,7 @@ module StaticFlags (
 	opt_EmitExternalCore,
 	v_Ld_inputs,
 	tablesNextToCode,
+        opt_StubDeadValues,
 
     -- For the parser
     addOpt, removeOpt, addWay, findBuildTag, v_opt_C_ready
@@ -242,6 +243,8 @@ opt_HistorySize :: Int
 opt_HistorySize			= lookup_def_int "-fhistory-size" 20
 opt_OmitBlackHoling :: Bool
 opt_OmitBlackHoling		= lookUp  (fsLit "-dno-black-holing")
+opt_StubDeadValues  :: Bool
+opt_StubDeadValues		= lookUp  (fsLit "-dstub-dead-values")
 
 -- Simplifier switches
 opt_SimplNoPreInlining :: Bool