X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FAbsCSyn.lhs;h=3c8a470aae2f4eb2233f979ba0ff9370fe7daf2f;hb=553e90d9a32ee1b1809430f260c401cc4169c6c7;hp=2b8a0e4fec74f08adb8d04dc062a4243b0a391f6;hpb=7a236a564b90cd060612e1e979ce7d552da61fa1;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/AbsCSyn.lhs b/ghc/compiler/absCSyn/AbsCSyn.lhs
index 2b8a0e4..3c8a470 100644
--- a/ghc/compiler/absCSyn/AbsCSyn.lhs
+++ b/ghc/compiler/absCSyn/AbsCSyn.lhs
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-% $Id: AbsCSyn.lhs,v 1.52 2003/05/14 09:13:52 simonmar Exp $
+% $Id: AbsCSyn.lhs,v 1.56 2003/11/17 14:47:53 simonmar Exp $
 %
 \section[AbstractC]{Abstract C: the last stop before machine code}
 
@@ -14,27 +14,7 @@ From @AbstractC@, one may convert to real C (for portability) or to
 raw assembler/machine code.
 
 \begin{code}
-module AbsCSyn {- (
-	-- export everything
-	AbstractC(..),
-	C_SRT(..)
-	CStmtMacro(..),
-	CExprMacro(..),
-	CAddrMode(..),
-	ReturnInfo(..),
-	mkAbstractCs, mkAbsCStmts, mkAlgAltsCSwitch,
-	mkIntCLit,
-	mkAbsCStmtList,
-	mkCCostCentre,
-
-	-- RegRelatives
-	RegRelative(..),
-
-	-- registers
-	MagicId(..), node, infoptr,
-	isVolatileReg,
-	CostRes(Cost)
-    )-} where
+module AbsCSyn where	-- export everything
 
 #include "HsVersions.h"
 
@@ -60,8 +40,6 @@ import FastString
 @AbstractC@ is a list of Abstract~C statements, but the data structure
 is tree-ish, for easier and more efficient putting-together.
 \begin{code}
-absCNop = AbsCNop
-
 data AbstractC
   = AbsCNop
   | AbsCStmts		AbstractC AbstractC
@@ -383,7 +361,6 @@ data CExprMacro
   = ENTRY_CODE
   | ARG_TAG				-- stack argument tagging
   | GET_TAG				-- get current constructor tag
-  | UPD_FRAME_UPDATEE
   | CCS_HDR
   | BYTE_ARR_CTS		-- used when passing a ByteArray# to a ccall
   | PTRS_ARR_CTS		-- similarly for an Array#
@@ -482,9 +459,6 @@ type HeapOffset = Int			-- ToDo: remove
 
 type VirtualHeapOffset	= HeapOffset
 type VirtualSpOffset	= Int
-
-type HpRelOffset	= HeapOffset
-type SpRelOffset	= Int
 \end{code}
 
 %************************************************************************