From 3a49601be4ed68d59ca9a81589e3cb627ae268d7 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 17 Nov 2003 14:42:47 +0000
Subject: [PATCH] [project @ 2003-11-17 14:41:58 by simonmar] GC dead code.

---
 ghc/compiler/codeGen/CgStackery.lhs |    9 +++------
 ghc/compiler/rename/RnTypes.lhs     |    9 ++-------
 2 files changed, 5 insertions(+), 13 deletions(-)

diff --git a/ghc/compiler/codeGen/CgStackery.lhs b/ghc/compiler/codeGen/CgStackery.lhs
index 12b96a8..4b1b414 100644
--- a/ghc/compiler/codeGen/CgStackery.lhs
+++ b/ghc/compiler/codeGen/CgStackery.lhs
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-% $Id: CgStackery.lhs,v 1.23 2002/12/11 15:36:27 simonmar Exp $
+% $Id: CgStackery.lhs,v 1.24 2003/11/17 14:42:47 simonmar Exp $
 %
 \section[CgStackery]{Stack management functions}
 
@@ -10,11 +10,11 @@ Stack-twiddling operations, which are pretty low-down and grimy.
 
 \begin{code}
 module CgStackery (
-	allocStack, allocPrimStack, allocStackTop, deAllocStackTop,
+	allocPrimStack, allocStackTop, deAllocStackTop,
 	adjustStackHW, getFinalStackHW, 
 	setStackFrame, getStackFrame,
 	mkVirtStkOffsets, mkStkAmodes,
-	freeStackSlots, dataStackSlots, addFreeSlots,
+	freeStackSlots, dataStackSlots,
 	updateFrameSize,
 	constructSlowCall, slowArgs,
     ) where
@@ -169,9 +169,6 @@ traceSlowCall amodes and_then
 Allocate a virtual offset for something.
 
 \begin{code}
-allocStack :: FCode VirtualSpOffset
-allocStack = allocPrimStack 1
-
 allocPrimStack :: Int -> FCode VirtualSpOffset
 allocPrimStack size = do
 	((virt_sp, frame, free_stk, real_sp, hw_sp),h_usage) <- getUsage
diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs
index 227cce5..cc0f0f3 100644
--- a/ghc/compiler/rename/RnTypes.lhs
+++ b/ghc/compiler/rename/RnTypes.lhs
@@ -5,8 +5,8 @@
 
 \begin{code}
 module RnTypes ( rnHsType, rnContext, 
-		 rnHsSigType, rnHsTypeFVs, rnHsSigTypeFVs, 
-		 rnPat, rnPats, rnPatsAndThen,	-- Here because it's not part 
+		 rnHsSigType, rnHsTypeFVs,
+		 rnPat, rnPatsAndThen,	-- Here because it's not part 
 		 rnOverLit, litFVs,		-- of any mutual recursion	
 		 precParseErr, sectionPrecErr, dupFieldErr, patSigErr, checkTupSize
   ) where
@@ -57,11 +57,6 @@ rnHsTypeFVs doc_str ty
   = rnHsType doc_str ty		`thenM` \ ty' ->
     returnM (ty', extractHsTyNames ty')
 
-rnHsSigTypeFVs :: SDoc -> RdrNameHsType -> RnM (RenamedHsType, FreeVars)
-rnHsSigTypeFVs doc_str ty
-  = rnHsSigType doc_str ty	`thenM` \ ty' ->
-    returnM (ty', extractHsTyNames ty')
-
 rnHsSigType :: SDoc -> RdrNameHsType -> RnM RenamedHsType
 	-- rnHsSigType is used for source-language type signatures,
 	-- which use *implicit* universal quantification.
-- 
1.7.10.4