diff options
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph/SpillClean.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/SpillClean.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs b/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs index 6d7b377d68..79dbf63a66 100644 --- a/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs +++ b/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE CPP #-} -- | Clean out unneeded spill\/reload instructions. -- @@ -393,9 +394,11 @@ cleanBackward' liveSlotsOnEntry reloadedBy noReloads acc (li : instrs) cleanBackward liveSlotsOnEntry noReloads' (li : acc) instrs +#if __GLASGOW_HASKELL__ <= 810 -- some other instruction | otherwise = cleanBackward liveSlotsOnEntry noReloads (li : acc) instrs +#endif -- | Combine the associations from all the inward control flow edges. @@ -611,4 +614,3 @@ closeAssoc a assoc intersectAssoc :: Assoc a -> Assoc a -> Assoc a intersectAssoc a b = intersectUFM_C (intersectUniqSets) a b - |