diff options
| author | Edward Z. Yang <ezyang@mit.edu> | 2013-09-13 22:11:12 -0700 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@mit.edu> | 2013-09-15 23:53:10 -0700 |
| commit | ea8317406e32ee8b91896439fe0810f3601d61ca (patch) | |
| tree | 85e4af1181246262fcc7417e19fb8cfa35bc989c /compiler/main/DriverPipeline.hs | |
| parent | 769bfc7332a89e8f022e3c1b9f5ba3a2a13f88c6 (diff) | |
| download | haskell-ea8317406e32ee8b91896439fe0810f3601d61ca.tar.gz | |
Distinguish between hs-main cases when giving rtsopts advice.
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
Diffstat (limited to 'compiler/main/DriverPipeline.hs')
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index a6567c8c39..048896c009 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -1634,6 +1634,7 @@ mkExtraObjToLinkIntoBinary dflags = do Nothing -> empty Just opts -> ptext (sLit " __conf.rts_opts= ") <> text (show opts) <> semi, + ptext (sLit " __conf.rts_hs_main = rtsTrue;"), ptext (sLit " return hs_main(argc, argv, &ZCMain_main_closure,__conf);"), char '}', char '\n' -- final newline, to keep gcc happy |