From f44b39926869cd9b9a33f06ee807f7c664fd20c8 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Fri, 5 Dec 2008 10:03:53 +0000 Subject: [PATCH] Remove INLINE pragmas on recursive functions INLINE pragmas on recursive functions are ignored; and this is checked in my upcoming patch for inlinings. --- compiler/cmm/ZipDataflow.hs | 5 ----- compiler/nativeGen/MachRegs.lhs | 1 - 2 files changed, 6 deletions(-) diff --git a/compiler/cmm/ZipDataflow.hs b/compiler/cmm/ZipDataflow.hs index 9b18c77..883de76 100644 --- a/compiler/cmm/ZipDataflow.hs +++ b/compiler/cmm/ZipDataflow.hs @@ -485,7 +485,6 @@ fwd_pure_anal name env transfers in_fact g = type Fuel = OptimizationFuel -{-# INLINE forward_sol #-} forward_sol :: forall m l a . (DebugNodes m l, LastNode l, Outputable a) @@ -601,8 +600,6 @@ mk_set_or_save is_local (LastOutFacts l) = mapM_ set_or_save_one l - -{-# INLINE forward_rew #-} forward_rew :: forall m l a . (DebugNodes m l, LastNode l, Outputable a) @@ -748,7 +745,6 @@ rewrite_b_agraph depth start_facts name lattice transfers rewrites exit_fact g = -{-# INLINE backward_sol #-} backward_sol :: forall m l a . (DebugNodes m l, LastNode l, Outputable a) @@ -867,7 +863,6 @@ bwd_pure_anal name env transfers g exit_fact = {- ================================================================ -} -{-# INLINE backward_rew #-} backward_rew :: forall m l a . (DebugNodes m l, LastNode l, Outputable a) diff --git a/compiler/nativeGen/MachRegs.lhs b/compiler/nativeGen/MachRegs.lhs index 5267e5b..9699a11 100644 --- a/compiler/nativeGen/MachRegs.lhs +++ b/compiler/nativeGen/MachRegs.lhs @@ -616,7 +616,6 @@ trivColorable :: RegClass -> UniqSet Reg -> UniqSet Reg -> Bool trivColorable classN conflicts exclusions = {-# SCC "trivColorable" #-} let - {-# INLINE isSqueesed #-} isSqueesed cI cF ufm = case ufm of NodeUFM _ _ left right -- 1.7.10.4