projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-11-17 14:23:30 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
prelude
/
PrimOp.lhs
diff --git
a/ghc/compiler/prelude/PrimOp.lhs
b/ghc/compiler/prelude/PrimOp.lhs
index
a9ac056
..
81c91cc
100644
(file)
--- a/
ghc/compiler/prelude/PrimOp.lhs
+++ b/
ghc/compiler/prelude/PrimOp.lhs
@@
-6,14
+6,11
@@
\begin{code}
module PrimOp (
PrimOp(..), allThePrimOps,
\begin{code}
module PrimOp (
PrimOp(..), allThePrimOps,
- primOpType, primOpSig, primOpArity,
+ primOpType, primOpSig,
primOpTag, maxPrimOpTag, primOpOcc,
primOpTag, maxPrimOpTag, primOpOcc,
- commutableOp,
-
primOpOutOfLine, primOpNeedsWrapper,
primOpOkForSpeculation, primOpIsCheap, primOpIsDupable,
primOpOutOfLine, primOpNeedsWrapper,
primOpOkForSpeculation, primOpIsCheap, primOpIsDupable,
- primOpHasSideEffects,
getPrimOpResultInfo, PrimOpResultInfo(..)
) where
getPrimOpResultInfo, PrimOpResultInfo(..)
) where
@@
-368,14
+365,6
@@
primOpNeedsWrapper :: PrimOp -> Bool
\end{code}
\begin{code}
\end{code}
\begin{code}
-primOpArity :: PrimOp -> Arity
-primOpArity op
- = case (primOpInfo op) of
- Monadic occ ty -> 1
- Dyadic occ ty -> 2
- Compare occ ty -> 2
- GenPrimOp occ tyvars arg_tys res_ty -> length arg_tys
-
primOpType :: PrimOp -> Type -- you may want to use primOpSig instead
primOpType op
= case (primOpInfo op) of
primOpType :: PrimOp -> Type -- you may want to use primOpSig instead
primOpType op
= case (primOpInfo op) of