From 3effaf6c3e2f4da7a8808b190074d492b62b2f7e Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 4 Sep 1997 20:07:57 +0000
Subject: [PATCH] [project @ 1997-09-04 20:07:57 by sof] new function:
inlineUnconditionally
---
ghc/compiler/simplCore/BinderInfo.lhs | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/ghc/compiler/simplCore/BinderInfo.lhs b/ghc/compiler/simplCore/BinderInfo.lhs
index 869bc1a6652a..75155a6b745d 100644
--- a/ghc/compiler/simplCore/BinderInfo.lhs
+++ b/ghc/compiler/simplCore/BinderInfo.lhs
@@ -21,7 +21,7 @@ module BinderInfo (
getBinderInfoArity,
setBinderInfoArityToZero,
- isFun, isDupDanger -- for Simon Marlow deforestation
+ inlineUnconditionally, isFun, isDupDanger -- for Simon Marlow deforestation
) where
IMP_Ubiq(){-uitous-}
@@ -117,8 +117,6 @@ isDupDanger _ = False
definitely be inlined.
\begin{code}
-{- NOT USED
-
inlineUnconditionally :: Bool -> BinderInfo -> Bool
--inlineUnconditionally ok_to_dup DeadCode = True
@@ -129,7 +127,6 @@ inlineUnconditionally ok_to_dup (OneOcc FunOcc NoDupDanger NotInsideSCC n_alt_oc
-- damage, e.g., limit to M alternatives.
inlineUnconditionally _ _ = False
--}
\end{code}
--
GitLab