From: panne <unknown>
Date: Sun, 24 Apr 2005 20:17:28 +0000 (+0000)
Subject: [project @ 2005-04-24 20:17:28 by panne]
X-Git-Tag: Initial_conversion_from_CVS_complete~682
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=daa4d18454157f664a0ff333bb592bb0bd6b4edc

[project @ 2005-04-24 20:17:28 by panne]
Nuked dead code
---

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index a4f0c17..41ca61d 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -4308,20 +4308,4 @@ printMutableList(generation *gen)
     }
     debugBelch("\n");
 }
-
-STATIC_INLINE rtsBool
-maybeLarge(StgClosure *closure)
-{
-  StgInfoTable *info = get_itbl(closure);
-
-  /* closure types that may be found on the new_large_objects list; 
-     see scavenge_large */
-  return (info->type == MUT_ARR_PTRS ||
-	  info->type == MUT_ARR_PTRS_FROZEN ||
-	  info->type == MUT_ARR_PTRS_FROZEN0 ||
-	  info->type == TSO ||
-	  info->type == ARR_WORDS);
-}
-
-  
 #endif /* DEBUG */
diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index ef474f3..134dce4 100644
--- a/ghc/rts/Printer.c
+++ b/ghc/rts/Printer.c
@@ -33,7 +33,6 @@ int fixed_hs = sizeof(StgHeader), itbl_sz = sizeofW(StgInfoTable),
  * local function decls
  * ------------------------------------------------------------------------*/
 
-static void    printStdObject( StgClosure *obj, char* tag );
 static void    printStdObjPayload( StgClosure *obj );
 #ifdef USING_LIBBFD
 static void    reset_table   ( int size );
@@ -114,13 +113,6 @@ printThunkPayload( StgThunk *obj )
 }
 
 static void
-printStdObject( StgClosure *obj, char* tag )
-{
-    printStdObjHdr( obj, tag );
-    printStdObjPayload( obj );
-}
-
-static void
 printThunkObject( StgThunk *obj, char* tag )
 {
     printStdObjHdr( (StgClosure *)obj, tag );
@@ -146,9 +138,6 @@ printClosure( StgClosure *obj )
     case CONSTR_STATIC:
     case CONSTR_NOCAF_STATIC:
         {
-            /* We can't use printStdObject because we want to print the
-             * tag as well.
-	     */
             StgWord i, j;
 #ifdef PROFILING
 	    debugBelch("%s(", info->prof.closure_desc);