[project @ 1997-05-19 00:12:10 by sof]

[ghc-hetmet.git] / ghc / compiler / basicTypes / PragmaInfo.lhs

diff --git a/ghc/compiler/basicTypes/PragmaInfo.lhs b/ghc/compiler/basicTypes/PragmaInfo.lhs
index b1bf499..d7f514a 100644 (file)
--- a/ghc/compiler/basicTypes/PragmaInfo.lhs
+++ b/ghc/compiler/basicTypes/PragmaInfo.lhs
@@ -14,5 +14,11 @@ IMP_Ubiq()
 \begin{code}
 data PragmaInfo
   = NoPragmaInfo
+
   | IWantToBeINLINEd
+
+  | IMustNotBeINLINEd  -- Used by the simplifier to prevent looping
+                       -- on recursive definitions
+
+  | IMustBeINLINEd     -- Absolutely must inline; used for PrimOps only
 \end{code}