From: simonmar <unknown>
Date: Mon, 20 Dec 1999 17:07:05 +0000 (+0000)
Subject: [project @ 1999-12-20 17:07:05 by simonmar]
X-Git-Tag: Approximately_9120_patches~5367
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4f79c6acaadf4668acab5bd1887e536936510811;p=ghc-hetmet.git

[project @ 1999-12-20 17:07:05 by simonmar]
Remove unused IntAbsOp
---

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index 54f4b01..4aa237f 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -71,9 +71,8 @@ data PrimOp
     | OrdOp | ChrOp
 
     -- Int#-related ops:
-   -- IntAbsOp unused?? ADR
     | IntAddOp | IntSubOp | IntMulOp | IntQuotOp
-    | IntRemOp | IntNegOp | IntAbsOp
+    | IntRemOp | IntNegOp
     | 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 IntAbsOp			      = ILIT( 46)
 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 IntAbsOp  = mkMonadic SLIT("absInt#")    intPrimTy
 
 primOpInfo IntAddCOp = 
 	mkGenPrimOp SLIT("addIntC#")  [] [intPrimTy, intPrimTy]