diff options
| author | Sergei Trofimovich <slyfox@gentoo.org> | 2017-04-16 17:20:54 +0100 |
|---|---|---|
| committer | Sergei Trofimovich <slyfox@gentoo.org> | 2017-04-16 17:23:46 +0100 |
| commit | 5fd75d737decbca787a9d6d92785a6525001d5f2 (patch) | |
| tree | 710c84faefc9f6a2d23875a9ac9e2f5e286ffe6b /compiler/cmm/PprC.hs | |
| parent | 295f97f74dcfc22067b6550f3cbb361c982d5042 (diff) | |
| download | haskell-5fd75d737decbca787a9d6d92785a6525001d5f2.tar.gz | |
UNREG: remove dead code around -split-objs
Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
Diffstat (limited to 'compiler/cmm/PprC.hs')
| -rw-r--r-- | compiler/cmm/PprC.hs | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index aa21174109..56de94079f 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -62,17 +62,13 @@ import Data.Array.ST -- -------------------------------------------------------------------------- -- Top level -pprCs :: DynFlags -> [RawCmmGroup] -> SDoc -pprCs dflags cmms - = pprCode CStyle (vcat $ map (\c -> split_marker $$ pprC c) cmms) - where - split_marker - | gopt Opt_SplitObjs dflags = text "__STG_SPLIT_MARKER" - | otherwise = empty +pprCs :: [RawCmmGroup] -> SDoc +pprCs cmms + = pprCode CStyle (vcat $ map pprC cmms) writeCs :: DynFlags -> Handle -> [RawCmmGroup] -> IO () writeCs dflags handle cmms - = printForC dflags handle (pprCs dflags cmms) + = printForC dflags handle (pprCs cmms) -- -------------------------------------------------------------------------- -- Now do some real work |