projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-11-07 15:21:38 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
simplCore
/
FloatIn.lhs
diff --git
a/ghc/compiler/simplCore/FloatIn.lhs
b/ghc/compiler/simplCore/FloatIn.lhs
index
72ca33c
..
796cddf
100644
(file)
--- a/
ghc/compiler/simplCore/FloatIn.lhs
+++ b/
ghc/compiler/simplCore/FloatIn.lhs
@@
-215,11
+215,6
@@
fiExpr to_drop (_, AnnNote InlineMe expr)
fiExpr to_drop (_, AnnNote note@(Coerce _ _) expr)
= -- Just float in past coercion
Note note (fiExpr to_drop expr)
fiExpr to_drop (_, AnnNote note@(Coerce _ _) expr)
= -- Just float in past coercion
Note note (fiExpr to_drop expr)
-
-fiExpr to_drop (_, AnnNote note@(TermUsg _) expr)
- = -- Float in past term usage annotation
- -- (for now; not sure if this is correct: KSW 1999-05)
- Note note (fiExpr to_drop expr)
\end{code}
For @Lets@, the possible ``drop points'' for the \tr{to_drop}
\end{code}
For @Lets@, the possible ``drop points'' for the \tr{to_drop}