diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-05-25 19:07:51 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-05-25 20:47:26 +0100 |
| commit | a5f5a70c41b4bce2715bf5d478171fbaf060cddf (patch) | |
| tree | e9be157af01bcb2c9a4ac51e01d3b9c71c0d4307 /compiler/codeGen | |
| parent | ea3a9edda14f952042fa262abd37cc4fa0c1dd6d (diff) | |
| download | haskell-sdoc.tar.gz | |
More DynFlags + SDocsdoc
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/CgInfoTbls.hs | 2 | ||||
| -rw-r--r-- | compiler/codeGen/ClosureInfo.lhs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/CgInfoTbls.hs b/compiler/codeGen/CgInfoTbls.hs index e04079d666..db1d809fb7 100644 --- a/compiler/codeGen/CgInfoTbls.hs +++ b/compiler/codeGen/CgInfoTbls.hs @@ -211,7 +211,7 @@ mkStackLayout = do [(offset - frame_sp - retAddrSizeW, b) | (offset, b) <- binds] - WARN( not (all (\bind -> fst bind >= 0) rel_binds), + WARN( dflags, not (all (\bind -> fst bind >= 0) rel_binds), ppr binds $$ ppr rel_binds $$ ppr frame_size $$ ppr real_sp $$ ppr frame_sp ) return $ stack_layout rel_binds frame_size diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs index d2c63b3be3..3b6c5491be 100644 --- a/compiler/codeGen/ClosureInfo.lhs +++ b/compiler/codeGen/ClosureInfo.lhs @@ -636,7 +636,7 @@ getCallMethod _ _ _ (LFUnknown True) _ getCallMethod _ name _ (LFUnknown False) n_args | n_args > 0 - = WARN( True, ppr name <+> ppr n_args ) + = WARN( dflags, True, ppr name <+> ppr n_args ) SlowCall -- Note [Unsafe coerce complications] | otherwise |