, narrow8WordLit, narrow16WordLit, narrow32WordLit
, char2IntLit, int2CharLit
, float2IntLit, int2FloatLit, double2IntLit, int2DoubleLit
- , nullAddrLit, float2DoubleLit, double2FloatLit
+ , float2DoubleLit, double2FloatLit
)
import PrimOp ( PrimOp(..), primOpOcc )
import TysWiredIn ( trueDataConId, falseDataConId )
-- ToDo: something for integer-shift ops?
-- NotOp
- primop_rule AddrNullOp = one_rule nullAddrRule
primop_rule SeqOp = one_rule seqRule
primop_rule TagToEnumOp = one_rule tagToEnumRule
primop_rule DataToTagOp = one_rule dataToTagRule
mkDoubleVal d = Lit (convFloating (MachDouble d))
\end{code}
-\begin{code}
-nullAddrRule _ = Just(Lit nullAddrLit)
-\end{code}
-
%************************************************************************
%* *