X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgCon.lhs;h=47ac572ddfecd88761a39cb4e251122d76e12a9f;hb=98688c6e8fd33f31c51218cf93cbf03fe3a5e73d;hp=6752a3b79bb6980734f89eb720d7fca571748652;hpb=79c93a8a30aaaa6bd940c0677d6f3c57eb727fa2;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgCon.lhs b/ghc/compiler/codeGen/CgCon.lhs
index 6752a3b..47ac572 100644
--- a/ghc/compiler/codeGen/CgCon.lhs
+++ b/ghc/compiler/codeGen/CgCon.lhs
@@ -26,30 +26,27 @@ import CgBindery	( getArgAmodes, bindNewToNode,
 			  idInfoToAmode, stableAmodeIdInfo,
 			  heapIdInfo, CgIdInfo, bindNewToStack
 			)
-import CgStackery	( mkVirtStkOffsets, freeStackSlots, updateFrameSize )
-import CgUsages		( getRealSp, getVirtSp, setRealAndVirtualSp,
-			  getSpRelOffset )
+import CgStackery	( mkVirtStkOffsets, freeStackSlots )
+import CgUsages		( getRealSp, getVirtSp, setRealAndVirtualSp )
 import CgRetConv	( assignRegs )
-import Constants	( mAX_INTLIKE, mIN_INTLIKE, mAX_CHARLIKE, mIN_CHARLIKE,
-			  mIN_UPD_SIZE )
+import Constants	( mAX_INTLIKE, mIN_INTLIKE, mAX_CHARLIKE, mIN_CHARLIKE )
 import CgHeapery	( allocDynClosure )
 import CgTailCall	( performReturn, mkStaticAlgReturnCode,
 			  returnUnboxedTuple )
 import CLabel		( mkClosureLabel )
 import ClosureInfo	( mkConLFInfo, mkLFArgument, layOutDynConstr, 
-			  layOutStaticConstr, closureSize, mkStaticClosure
+			  layOutStaticConstr, mkStaticClosure
 			)
 import CostCentre	( currentOrSubsumedCCS, dontCareCCS, CostCentreStack,
 			  currentCCS )
 import DataCon		( DataCon, dataConTag, 
-			  isUnboxedTupleCon, isNullaryDataCon, dataConWorkId, 
+			  isUnboxedTupleCon, dataConWorkId, 
 			  dataConName, dataConRepArity
 			)
 import Id		( Id, idName, idPrimRep, isDeadBinder )
 import Literal		( Literal(..) )
 import PrelInfo		( maybeCharLikeCon, maybeIntLikeCon )
 import PrimRep		( PrimRep(..), isFollowableRep )
-import Unique		( Uniquable(..) )
 import Util
 import Outputable