X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FGC.c;h=41ca61db0f2d222ee53f5a5e1720b978b317f240;hb=daa4d18454157f664a0ff333bb592bb0bd6b4edc;hp=a4f0c178292ba1c5e2ea80b6178b5603a57e4ff5;hpb=a6a97070b86949e6db86b669a9e8d39f88492d26;p=ghc-hetmet.git

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 */