Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
373978e7
Commit
373978e7
authored
Mar 13, 2010
by
Ian Lynagh
Browse files
Rename a variable
parent
929d1669
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main/DriverPipeline.hs
View file @
373978e7
...
...
@@ -1423,7 +1423,7 @@ linkBinary dflags o_files dep_packages = do
let
no_hs_main
=
dopt
Opt_NoHsMain
dflags
let
main_lib
|
no_hs_main
=
[]
|
otherwise
=
[
"-lHSrtsmain"
]
rtsEnabled
Lib
<-
if
dopt
Opt_RtsOptsEnabled
dflags
rtsEnabled
Obj
<-
if
dopt
Opt_RtsOptsEnabled
dflags
then
do
fn
<-
mkExtraCObj
dflags
[
"#include
\"
Rts.h
\"
"
,
"const rtsBool rtsOptsEnabled = rtsTrue;"
]
...
...
@@ -1503,7 +1503,7 @@ linkBinary dflags o_files dep_packages = do
#
endif
++
pkg_lib_path_opts
++
main_lib
++
rtsEnabled
Lib
++
rtsEnabled
Obj
++
pkg_link_opts
#
ifdef
darwin_TARGET_OS
++
pkg_framework_path_opts
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment