diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-24 20:26:52 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-24 20:41:06 +0100 |
| commit | 229e9fc585b3003f2c26cbcf39f71a87514cd43d (patch) | |
| tree | 8214619d18d6d4024dee307435ff9e46d4ee5dbb /compiler/codeGen/StgCmm.hs | |
| parent | 4b18cc53a81634951cc72aa5c3e2123688b6f512 (diff) | |
| download | haskell-229e9fc585b3003f2c26cbcf39f71a87514cd43d.tar.gz | |
Make -fscc-profiling a dynamic flag
All the flags that 'ways' imply are now dynamic
Diffstat (limited to 'compiler/codeGen/StgCmm.hs')
| -rw-r--r-- | compiler/codeGen/StgCmm.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs index dae0ad05ab..70892eeb5e 100644 --- a/compiler/codeGen/StgCmm.hs +++ b/compiler/codeGen/StgCmm.hs @@ -224,15 +224,16 @@ cgDataCon :: DataCon -> FCode () -- Generate the entry code, info tables, and (for niladic constructor) -- the static closure, for a constructor. cgDataCon data_con - = do { let + = do { dflags <- getDynFlags + ; let (tot_wds, -- #ptr_wds + #nonptr_wds ptr_wds, -- #ptr_wds - arg_things) = mkVirtConstrOffsets arg_reps + arg_things) = mkVirtConstrOffsets dflags arg_reps nonptr_wds = tot_wds - ptr_wds - sta_info_tbl = mkDataConInfoTable data_con True ptr_wds nonptr_wds - dyn_info_tbl = mkDataConInfoTable data_con False ptr_wds nonptr_wds + sta_info_tbl = mkDataConInfoTable dflags data_con True ptr_wds nonptr_wds + dyn_info_tbl = mkDataConInfoTable dflags data_con False ptr_wds nonptr_wds emit_info info_tbl ticky_code = emitClosureAndInfoTable info_tbl NativeDirectCall [] |