diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-01-28 10:36:39 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-01-28 10:36:39 +0000 |
| commit | 463bbe95172eba825434b7a706040708797c08af (patch) | |
| tree | 3e49781d4240f205caf07255d4721ad527ddff0e /compiler/cmm/CmmStackLayout.hs | |
| parent | 889c084e943779e76d19f2ef5e970ff655f511eb (diff) | |
| download | haskell-463bbe95172eba825434b7a706040708797c08af.tar.gz | |
Fix warnings
Diffstat (limited to 'compiler/cmm/CmmStackLayout.hs')
| -rw-r--r-- | compiler/cmm/CmmStackLayout.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/compiler/cmm/CmmStackLayout.hs b/compiler/cmm/CmmStackLayout.hs index 4756bbd152..01543c444e 100644 --- a/compiler/cmm/CmmStackLayout.hs +++ b/compiler/cmm/CmmStackLayout.hs @@ -5,6 +5,12 @@ -- Todo: remove {-# OPTIONS_GHC -fno-warn-warnings-deprecations #-} +{-# OPTIONS_GHC -fno-warn-incomplete-patterns #-} +#if __GLASGOW_HASKELL__ >= 701 +-- GHC 7.0.1 improved incomplete pattern warnings with GADTs +{-# OPTIONS_GHC -fwarn-incomplete-patterns #-} +#endif + module CmmStackLayout ( SlotEnv, liveSlotAnal, liveSlotTransfers, removeLiveSlotDefs , layout, manifestSP, igraph, areaBuilder @@ -123,6 +129,7 @@ liveSlotTransfers :: BwdTransfer CmmNode SubAreaSet liveSlotTransfers = mkBTransfer3 frt mid lst where frt :: CmmNode C O -> SubAreaSet -> SubAreaSet frt (CmmEntry l) f = Map.delete (CallArea (Young l)) f + mid :: CmmNode O O -> SubAreaSet -> SubAreaSet mid n f = foldSlotsUsed addSlot (removeLiveSlotDefs f n) n lst :: CmmNode O C -> FactBase SubAreaSet -> SubAreaSet |