Commit 14a17049 authored by simonmar's avatar simonmar
Browse files

[project @ 1999-06-23 10:33:03 by simonmar]

rename -ddump-rdr to -ddump-parsed, and make it work.
parent becac487
......@@ -27,7 +27,7 @@ module CmdLineOpts (
opt_D_dump_foreign,
opt_D_dump_inlinings,
opt_D_dump_occur_anal,
opt_D_dump_rdr,
opt_D_dump_parsed,
opt_D_dump_realC,
opt_D_dump_rn,
opt_D_dump_rules,
......@@ -305,7 +305,7 @@ opt_D_dump_flatC = lookUp SLIT("-ddump-flatC")
opt_D_dump_foreign = lookUp SLIT("-ddump-foreign-stubs")
opt_D_dump_inlinings = lookUp SLIT("-ddump-inlinings")
opt_D_dump_occur_anal = lookUp SLIT("-ddump-occur-anal")
opt_D_dump_rdr = lookUp SLIT("-ddump-rdr")
opt_D_dump_parsed = lookUp SLIT("-ddump-parsed")
opt_D_dump_realC = lookUp SLIT("-ddump-realC")
opt_D_dump_rn = lookUp SLIT("-ddump-rn")
opt_D_dump_simpl = lookUp SLIT("-ddump-simpl")
......
......@@ -87,13 +87,18 @@ doIt (core_cmds, stg_cmds)
= doIfSet opt_Verbose
(hPutStr stderr "Glasgow Haskell Compiler, version " >>
hPutStr stderr compiler_version >>
hPutStr stderr ", for Haskell 98\n") >>
hPutStr stderr ", for Haskell 98\n" >>
hPutStr stderr "\tcompiled by GHC version " >>
hPutStr stderr booter_version >>
hPutStr stderr "\n") >>
-------------------------- Reader ----------------
show_pass "Reader" >>
_scc_ "Reader"
show_pass "Parser" >>
_scc_ "Parser"
parseModule >>= \ (mod_name, rdr_module) ->
dumpIfSet opt_D_dump_parsed "Parser" (ppr rdr_module) >>
dumpIfSet opt_D_source_stats "Source Statistics"
(ppSourceStats False rdr_module) >>
......@@ -358,6 +363,11 @@ compiler_version =
go ls@[x,y] = '.':ls
go (x:xs) = x:go xs
booter_version
= case "\
\ __GLASGOW_HASKELL__" of
' ':n:ns -> n:'.':ns
' ':m -> m
\end{code}
\begin{code}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment