X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FCodeOutput.lhs;h=61b10bcc3821e4bf290e937a4edcc2440840297f;hb=5ddee764beb312933256096d03df7c3ec47ac452;hp=a66a836c67f7e8856a9b523c4867582d1b4b66d2;hpb=fb38b8bab2b531ca7ac4ea28ad5b259a00e3759b;p=ghc-hetmet.git diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs index a66a836..61b10bc 100644 --- a/compiler/main/CodeOutput.lhs +++ b/compiler/main/CodeOutput.lhs @@ -29,6 +29,9 @@ import FastString ( unpackFS ) import Cmm ( Cmm ) import HscTypes import DynFlags + +import StaticFlags ( opt_DoTickyProfiling ) + import ErrUtils ( dumpIfSet_dyn, showPass, ghcExit ) import Outputable import Pretty ( Mode(..), printDoc ) @@ -131,7 +134,7 @@ outputC dflags filenm mod location flat_absC all_headers = c_includes ++ reverse cmdline_includes ++ ffi_decl_headers - + let cc_injects = unlines (map mk_include all_headers) mk_include h_file = case h_file of