projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a6a9707
)
[project @ 2005-04-24 20:17:28 by panne]
author
panne
<unknown>
Sun, 24 Apr 2005 20:17:28 +0000
(20:17 +0000)
committer
panne
<unknown>
Sun, 24 Apr 2005 20:17:28 +0000
(20:17 +0000)
Nuked dead code
ghc/rts/GC.c
patch
|
blob
|
history
ghc/rts/Printer.c
patch
|
blob
|
history
diff --git
a/ghc/rts/GC.c
b/ghc/rts/GC.c
index
a4f0c17
..
41ca61d
100644
(file)
--- a/
ghc/rts/GC.c
+++ b/
ghc/rts/GC.c
@@
-4308,20
+4308,4
@@
printMutableList(generation *gen)
}
debugBelch("\n");
}
}
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 */
#endif /* DEBUG */
diff --git
a/ghc/rts/Printer.c
b/ghc/rts/Printer.c
index
ef474f3
..
134dce4
100644
(file)
--- 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
* ------------------------------------------------------------------------*/
* local function decls
* ------------------------------------------------------------------------*/
-static void printStdObject( StgClosure *obj, char* tag );
static void printStdObjPayload( StgClosure *obj );
#ifdef USING_LIBBFD
static void reset_table ( int size );
static void printStdObjPayload( StgClosure *obj );
#ifdef USING_LIBBFD
static void reset_table ( int size );
@@
-114,13
+113,6
@@
printThunkPayload( StgThunk *obj )
}
static void
}
static void
-printStdObject( StgClosure *obj, char* tag )
-{
- printStdObjHdr( obj, tag );
- printStdObjPayload( obj );
-}
-
-static void
printThunkObject( StgThunk *obj, char* tag )
{
printStdObjHdr( (StgClosure *)obj, tag );
printThunkObject( StgThunk *obj, char* tag )
{
printStdObjHdr( (StgClosure *)obj, tag );
@@
-146,9
+138,6
@@
printClosure( StgClosure *obj )
case CONSTR_STATIC:
case CONSTR_NOCAF_STATIC:
{
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);
StgWord i, j;
#ifdef PROFILING
debugBelch("%s(", info->prof.closure_desc);