projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0f92da1
)
[project @ 1999-12-20 17:07:05 by simonmar]
author
simonmar
<unknown>
Mon, 20 Dec 1999 17:07:05 +0000
(17:07 +0000)
committer
simonmar
<unknown>
Mon, 20 Dec 1999 17:07:05 +0000
(17:07 +0000)
Remove unused IntAbsOp
ghc/compiler/prelude/PrimOp.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/prelude/PrimOp.lhs
b/ghc/compiler/prelude/PrimOp.lhs
index
54f4b01
..
4aa237f
100644
(file)
--- a/
ghc/compiler/prelude/PrimOp.lhs
+++ b/
ghc/compiler/prelude/PrimOp.lhs
@@
-71,9
+71,8
@@
data PrimOp
| OrdOp | ChrOp
-- Int#-related ops:
| OrdOp | ChrOp
-- Int#-related ops:
- -- IntAbsOp unused?? ADR
| IntAddOp | IntSubOp | IntMulOp | IntQuotOp
| IntAddOp | IntSubOp | IntMulOp | IntQuotOp
- | IntRemOp | IntNegOp | IntAbsOp
+ | IntRemOp | IntNegOp
| ISllOp | ISraOp | ISrlOp -- shift {left,right} {arithmetic,logical}
| IntAddCOp
| IntSubCOp
| ISllOp | ISraOp | ISrlOp -- shift {left,right} {arithmetic,logical}
| IntAddCOp
| IntSubCOp
@@
-357,7
+356,6
@@
tagOf_PrimOp IntQuotOp = ILIT( 42)
tagOf_PrimOp IntGcdOp = ILIT( 43)
tagOf_PrimOp IntRemOp = ILIT( 44)
tagOf_PrimOp IntNegOp = ILIT( 45)
tagOf_PrimOp IntGcdOp = ILIT( 43)
tagOf_PrimOp IntRemOp = ILIT( 44)
tagOf_PrimOp IntNegOp = ILIT( 45)
-tagOf_PrimOp IntAbsOp = ILIT( 46)
tagOf_PrimOp WordQuotOp = ILIT( 47)
tagOf_PrimOp WordRemOp = ILIT( 48)
tagOf_PrimOp AndOp = ILIT( 49)
tagOf_PrimOp WordQuotOp = ILIT( 47)
tagOf_PrimOp WordRemOp = ILIT( 48)
tagOf_PrimOp AndOp = ILIT( 49)
@@
-1032,7
+1030,6
@@
primOpInfo IntRemOp = mkDyadic SLIT("remInt#") intPrimTy
primOpInfo IntGcdOp = mkDyadic SLIT("gcdInt#") intPrimTy
primOpInfo IntNegOp = mkMonadic SLIT("negateInt#") intPrimTy
primOpInfo IntGcdOp = mkDyadic SLIT("gcdInt#") intPrimTy
primOpInfo IntNegOp = mkMonadic SLIT("negateInt#") intPrimTy
-primOpInfo IntAbsOp = mkMonadic SLIT("absInt#") intPrimTy
primOpInfo IntAddCOp =
mkGenPrimOp SLIT("addIntC#") [] [intPrimTy, intPrimTy]
primOpInfo IntAddCOp =
mkGenPrimOp SLIT("addIntC#") [] [intPrimTy, intPrimTy]