-- supplies:
-- data PrimOp = ...
-#include "primop-data-decl.hs"
+#include "primop-data-decl.hs-incl"
| CCallOp CCall -- and don't forget to add CCall
\end{code}
-- supplies
-- tagOf_PrimOp :: PrimOp -> FAST_INT
-#include "primop-tag.hs"
+#include "primop-tag.hs-incl"
tagOf_PrimOp op = pprPanic# "tagOf_PrimOp: pattern-match" (ppr op)
\begin{code}
allThePrimOps :: [PrimOp]
allThePrimOps =
-#include "primop-list.hs"
+#include "primop-list.hs-incl"
-- Doesn't include CCall, which is really a family of primops
\end{code}
-- See Demand.StrictnessInfo for discussion of what the results
-- The arity should be the arity of the primop; that's why
-- this function isn't exported.
-#include "primop-strictness.hs"
+#include "primop-strictness.hs-incl"
\end{code}
%************************************************************************
\begin{code}
primOpInfo :: PrimOp -> PrimOpInfo
-#include "primop-primop-info.hs"
+#include "primop-primop-info.hs-incl"
\end{code}
Here are a load of comments from the old primOp info:
\begin{code}
primOpOutOfLine (CCallOp c_call) = ccallMayGC c_call
-#include "primop-out-of-line.hs"
+#include "primop-out-of-line.hs-incl"
\end{code}
\begin{code}
primOpCanFail :: PrimOp -> Bool
-#include "primop-can-fail.hs"
+#include "primop-can-fail.hs-incl"
\end{code}
And some primops have side-effects and so, for example, must not be
\begin{code}
primOpHasSideEffects :: PrimOp -> Bool
primOpHasSideEffects (CCallOp _) = True
-#include "primop-has-side-effects.hs"
+#include "primop-has-side-effects.hs-incl"
\end{code}
Inline primitive operations that perform calls need wrappers to save
\begin{code}
primOpNeedsWrapper :: PrimOp -> Bool
primOpNeedsWrapper (CCallOp _) = True
-#include "primop-needs-wrapper.hs"
+#include "primop-needs-wrapper.hs-incl"
\end{code}
\begin{code}
primOpUsg :: PrimOp -> ([TyVar],[Type],Type)
primOpUsg p@(CCallOp _) = mangle p [] mkM
-#include "primop-usage.hs"
+#include "primop-usage.hs-incl"
-- Things with no Haskell pointers inside: in actuality, usages are
-- irrelevant here (hence it doesn't matter that some of these
\begin{code}
commutableOp :: PrimOp -> Bool
-#include "primop-commutable.hs"
+#include "primop-commutable.hs-incl"
\end{code}
Utils: