From 4f79c6acaadf4668acab5bd1887e536936510811 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 20 Dec 1999 17:07:05 +0000
Subject: [PATCH] [project @ 1999-12-20 17:07:05 by simonmar] Remove unused
 IntAbsOp

---
 ghc/compiler/prelude/PrimOp.lhs |    5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

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] 
-- 
1.7.10.4