-Deriving Ix is what we really want! ToDo
-(Chk around before deleting...)
-\begin{code}
-tagOf_PrimOp CharGtOp = (ILIT(1) :: FAST_INT)
-tagOf_PrimOp CharGeOp = ILIT( 2)
-tagOf_PrimOp CharEqOp = ILIT( 3)
-tagOf_PrimOp CharNeOp = ILIT( 4)
-tagOf_PrimOp CharLtOp = ILIT( 5)
-tagOf_PrimOp CharLeOp = ILIT( 6)
-tagOf_PrimOp IntGtOp = ILIT( 7)
-tagOf_PrimOp IntGeOp = ILIT( 8)
-tagOf_PrimOp IntEqOp = ILIT( 9)
-tagOf_PrimOp IntNeOp = ILIT( 10)
-tagOf_PrimOp IntLtOp = ILIT( 11)
-tagOf_PrimOp IntLeOp = ILIT( 12)
-tagOf_PrimOp WordGtOp = ILIT( 13)
-tagOf_PrimOp WordGeOp = ILIT( 14)
-tagOf_PrimOp WordEqOp = ILIT( 15)
-tagOf_PrimOp WordNeOp = ILIT( 16)
-tagOf_PrimOp WordLtOp = ILIT( 17)
-tagOf_PrimOp WordLeOp = ILIT( 18)
-tagOf_PrimOp AddrGtOp = ILIT( 19)
-tagOf_PrimOp AddrGeOp = ILIT( 20)
-tagOf_PrimOp AddrEqOp = ILIT( 21)
-tagOf_PrimOp AddrNeOp = ILIT( 22)
-tagOf_PrimOp AddrLtOp = ILIT( 23)
-tagOf_PrimOp AddrLeOp = ILIT( 24)
-tagOf_PrimOp FloatGtOp = ILIT( 25)
-tagOf_PrimOp FloatGeOp = ILIT( 26)
-tagOf_PrimOp FloatEqOp = ILIT( 27)
-tagOf_PrimOp FloatNeOp = ILIT( 28)
-tagOf_PrimOp FloatLtOp = ILIT( 29)
-tagOf_PrimOp FloatLeOp = ILIT( 30)
-tagOf_PrimOp DoubleGtOp = ILIT( 31)
-tagOf_PrimOp DoubleGeOp = ILIT( 32)
-tagOf_PrimOp DoubleEqOp = ILIT( 33)
-tagOf_PrimOp DoubleNeOp = ILIT( 34)
-tagOf_PrimOp DoubleLtOp = ILIT( 35)
-tagOf_PrimOp DoubleLeOp = ILIT( 36)
-tagOf_PrimOp OrdOp = ILIT( 37)
-tagOf_PrimOp ChrOp = ILIT( 38)
-tagOf_PrimOp IntAddOp = ILIT( 39)
-tagOf_PrimOp IntSubOp = ILIT( 40)
-tagOf_PrimOp IntMulOp = ILIT( 41)
-tagOf_PrimOp IntQuotOp = ILIT( 42)
-tagOf_PrimOp IntRemOp = ILIT( 44)
-tagOf_PrimOp IntNegOp = ILIT( 45)
-tagOf_PrimOp IntAbsOp = ILIT( 47)
-tagOf_PrimOp WordQuotOp = ILIT( 48)
-tagOf_PrimOp WordRemOp = ILIT( 49)
-tagOf_PrimOp AndOp = ILIT( 50)
-tagOf_PrimOp OrOp = ILIT( 51)
-tagOf_PrimOp NotOp = ILIT( 52)
-tagOf_PrimOp XorOp = ILIT( 53)
-tagOf_PrimOp SllOp = ILIT( 54)
-tagOf_PrimOp SraOp = ILIT( 55)
-tagOf_PrimOp SrlOp = ILIT( 56)
-tagOf_PrimOp ISllOp = ILIT( 57)
-tagOf_PrimOp ISraOp = ILIT( 58)
-tagOf_PrimOp ISrlOp = ILIT( 59)
-tagOf_PrimOp Int2WordOp = ILIT( 60)
-tagOf_PrimOp Word2IntOp = ILIT( 61)
-tagOf_PrimOp Int2AddrOp = ILIT( 62)
-tagOf_PrimOp Addr2IntOp = ILIT( 63)
-tagOf_PrimOp FloatAddOp = ILIT( 64)
-tagOf_PrimOp FloatSubOp = ILIT( 65)
-tagOf_PrimOp FloatMulOp = ILIT( 66)
-tagOf_PrimOp FloatDivOp = ILIT( 67)
-tagOf_PrimOp FloatNegOp = ILIT( 68)
-tagOf_PrimOp Float2IntOp = ILIT( 69)
-tagOf_PrimOp Int2FloatOp = ILIT( 70)
-tagOf_PrimOp FloatExpOp = ILIT( 71)
-tagOf_PrimOp FloatLogOp = ILIT( 72)
-tagOf_PrimOp FloatSqrtOp = ILIT( 73)
-tagOf_PrimOp FloatSinOp = ILIT( 74)
-tagOf_PrimOp FloatCosOp = ILIT( 75)
-tagOf_PrimOp FloatTanOp = ILIT( 76)
-tagOf_PrimOp FloatAsinOp = ILIT( 77)
-tagOf_PrimOp FloatAcosOp = ILIT( 78)
-tagOf_PrimOp FloatAtanOp = ILIT( 79)
-tagOf_PrimOp FloatSinhOp = ILIT( 80)
-tagOf_PrimOp FloatCoshOp = ILIT( 81)
-tagOf_PrimOp FloatTanhOp = ILIT( 82)
-tagOf_PrimOp FloatPowerOp = ILIT( 83)
-tagOf_PrimOp DoubleAddOp = ILIT( 84)
-tagOf_PrimOp DoubleSubOp = ILIT( 85)
-tagOf_PrimOp DoubleMulOp = ILIT( 86)
-tagOf_PrimOp DoubleDivOp = ILIT( 87)
-tagOf_PrimOp DoubleNegOp = ILIT( 88)
-tagOf_PrimOp Double2IntOp = ILIT( 89)
-tagOf_PrimOp Int2DoubleOp = ILIT( 90)
-tagOf_PrimOp Double2FloatOp = ILIT( 91)
-tagOf_PrimOp Float2DoubleOp = ILIT( 92)
-tagOf_PrimOp DoubleExpOp = ILIT( 93)
-tagOf_PrimOp DoubleLogOp = ILIT( 94)
-tagOf_PrimOp DoubleSqrtOp = ILIT( 95)
-tagOf_PrimOp DoubleSinOp = ILIT( 96)
-tagOf_PrimOp DoubleCosOp = ILIT( 97)
-tagOf_PrimOp DoubleTanOp = ILIT( 98)
-tagOf_PrimOp DoubleAsinOp = ILIT( 99)
-tagOf_PrimOp DoubleAcosOp = ILIT(100)
-tagOf_PrimOp DoubleAtanOp = ILIT(101)
-tagOf_PrimOp DoubleSinhOp = ILIT(102)
-tagOf_PrimOp DoubleCoshOp = ILIT(103)
-tagOf_PrimOp DoubleTanhOp = ILIT(104)
-tagOf_PrimOp DoublePowerOp = ILIT(105)
-tagOf_PrimOp IntegerAddOp = ILIT(106)
-tagOf_PrimOp IntegerSubOp = ILIT(107)
-tagOf_PrimOp IntegerMulOp = ILIT(108)
-tagOf_PrimOp IntegerQuotRemOp = ILIT(109)
-tagOf_PrimOp IntegerDivModOp = ILIT(110)
-tagOf_PrimOp IntegerNegOp = ILIT(111)
-tagOf_PrimOp IntegerCmpOp = ILIT(112)
-tagOf_PrimOp Integer2IntOp = ILIT(113)
-tagOf_PrimOp Integer2WordOp = ILIT(114)
-tagOf_PrimOp Int2IntegerOp = ILIT(115)
-tagOf_PrimOp Word2IntegerOp = ILIT(116)
-tagOf_PrimOp Addr2IntegerOp = ILIT(117)
-tagOf_PrimOp FloatEncodeOp = ILIT(118)
-tagOf_PrimOp FloatDecodeOp = ILIT(119)
-tagOf_PrimOp DoubleEncodeOp = ILIT(120)
-tagOf_PrimOp DoubleDecodeOp = ILIT(121)
-tagOf_PrimOp NewArrayOp = ILIT(122)
-tagOf_PrimOp (NewByteArrayOp CharRep) = ILIT(123)
-tagOf_PrimOp (NewByteArrayOp IntRep) = ILIT(124)
-tagOf_PrimOp (NewByteArrayOp WordRep) = ILIT(125)
-tagOf_PrimOp (NewByteArrayOp AddrRep) = ILIT(126)
-tagOf_PrimOp (NewByteArrayOp FloatRep) = ILIT(127)
-tagOf_PrimOp (NewByteArrayOp DoubleRep) = ILIT(128)
-tagOf_PrimOp SameMutableArrayOp = ILIT(129)
-tagOf_PrimOp SameMutableByteArrayOp = ILIT(130)
-tagOf_PrimOp ReadArrayOp = ILIT(131)
-tagOf_PrimOp WriteArrayOp = ILIT(132)
-tagOf_PrimOp IndexArrayOp = ILIT(133)
-tagOf_PrimOp (ReadByteArrayOp CharRep) = ILIT(134)
-tagOf_PrimOp (ReadByteArrayOp IntRep) = ILIT(135)
-tagOf_PrimOp (ReadByteArrayOp WordRep) = ILIT(136)
-tagOf_PrimOp (ReadByteArrayOp AddrRep) = ILIT(137)
-tagOf_PrimOp (ReadByteArrayOp FloatRep) = ILIT(138)
-tagOf_PrimOp (ReadByteArrayOp DoubleRep) = ILIT(139)
-tagOf_PrimOp (WriteByteArrayOp CharRep) = ILIT(140)
-tagOf_PrimOp (WriteByteArrayOp IntRep) = ILIT(141)
-tagOf_PrimOp (WriteByteArrayOp WordRep) = ILIT(142)
-tagOf_PrimOp (WriteByteArrayOp AddrRep) = ILIT(143)
-tagOf_PrimOp (WriteByteArrayOp FloatRep) = ILIT(144)
-tagOf_PrimOp (WriteByteArrayOp DoubleRep) = ILIT(145)
-tagOf_PrimOp (IndexByteArrayOp CharRep) = ILIT(146)
-tagOf_PrimOp (IndexByteArrayOp IntRep) = ILIT(147)
-tagOf_PrimOp (IndexByteArrayOp WordRep) = ILIT(148)
-tagOf_PrimOp (IndexByteArrayOp AddrRep) = ILIT(149)
-tagOf_PrimOp (IndexByteArrayOp FloatRep) = ILIT(150)
-tagOf_PrimOp (IndexByteArrayOp DoubleRep) = ILIT(151)
-tagOf_PrimOp (IndexOffAddrOp CharRep) = ILIT(152)
-tagOf_PrimOp (IndexOffAddrOp IntRep) = ILIT(153)
-tagOf_PrimOp (IndexOffAddrOp WordRep) = ILIT(154)
-tagOf_PrimOp (IndexOffAddrOp AddrRep) = ILIT(155)
-tagOf_PrimOp (IndexOffAddrOp FloatRep) = ILIT(156)
-tagOf_PrimOp (IndexOffAddrOp DoubleRep) = ILIT(157)
-tagOf_PrimOp (IndexOffForeignObjOp CharRep) = ILIT(158)
-tagOf_PrimOp (IndexOffForeignObjOp IntRep) = ILIT(159)
-tagOf_PrimOp (IndexOffForeignObjOp WordRep) = ILIT(160)
-tagOf_PrimOp (IndexOffForeignObjOp AddrRep) = ILIT(161)
-tagOf_PrimOp (IndexOffForeignObjOp FloatRep) = ILIT(162)
-tagOf_PrimOp (IndexOffForeignObjOp DoubleRep) = ILIT(163)
-tagOf_PrimOp UnsafeFreezeArrayOp = ILIT(164)
-tagOf_PrimOp UnsafeFreezeByteArrayOp = ILIT(165)
-tagOf_PrimOp SizeofByteArrayOp = ILIT(166)
-tagOf_PrimOp SizeofMutableByteArrayOp = ILIT(167)
-tagOf_PrimOp NewSynchVarOp = ILIT(168)
-tagOf_PrimOp TakeMVarOp = ILIT(169)
-tagOf_PrimOp PutMVarOp = ILIT(170)
-tagOf_PrimOp ReadIVarOp = ILIT(171)
-tagOf_PrimOp WriteIVarOp = ILIT(172)
-tagOf_PrimOp MakeForeignObjOp = ILIT(173)
-tagOf_PrimOp WriteForeignObjOp = ILIT(174)
-tagOf_PrimOp MakeStablePtrOp = ILIT(175)
-tagOf_PrimOp DeRefStablePtrOp = ILIT(176)
-tagOf_PrimOp (CCallOp _ _ _ _ _) = ILIT(177)
-tagOf_PrimOp ErrorIOPrimOp = ILIT(178)
-tagOf_PrimOp ReallyUnsafePtrEqualityOp = ILIT(179)
-tagOf_PrimOp SeqOp = ILIT(180)
-tagOf_PrimOp ParOp = ILIT(181)
-tagOf_PrimOp ForkOp = ILIT(182)
-tagOf_PrimOp DelayOp = ILIT(183)
-tagOf_PrimOp WaitReadOp = ILIT(184)
-tagOf_PrimOp WaitWriteOp = ILIT(185)
-tagOf_PrimOp ParGlobalOp = ILIT(186)
-tagOf_PrimOp ParLocalOp = ILIT(187)
-tagOf_PrimOp ParAtOp = ILIT(188)
-tagOf_PrimOp ParAtAbsOp = ILIT(189)
-tagOf_PrimOp ParAtRelOp = ILIT(190)
-tagOf_PrimOp ParAtForNowOp = ILIT(191)
-tagOf_PrimOp CopyableOp = ILIT(192)
-tagOf_PrimOp NoFollowOp = ILIT(193)
-tagOf_PrimOp SameMVarOp = ILIT(194)
-
-tagOf_PrimOp _ = panic# "tagOf_PrimOp: pattern-match"