Commit daa4d184 authored by panne's avatar panne
Browse files

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

Nuked dead code
parent a6a97070
...@@ -4308,20 +4308,4 @@ printMutableList(generation *gen) ...@@ -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 */
...@@ -33,7 +33,6 @@ int fixed_hs = sizeof(StgHeader), itbl_sz = sizeofW(StgInfoTable), ...@@ -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 ); static void printStdObjPayload( StgClosure *obj );
#ifdef USING_LIBBFD #ifdef USING_LIBBFD
static void reset_table ( int size ); static void reset_table ( int size );
...@@ -113,13 +112,6 @@ printThunkPayload( StgThunk *obj ) ...@@ -113,13 +112,6 @@ printThunkPayload( StgThunk *obj )
debugBelch(")\n"); debugBelch(")\n");
} }
static void
printStdObject( StgClosure *obj, char* tag )
{
printStdObjHdr( obj, tag );
printStdObjPayload( obj );
}
static void static void
printThunkObject( StgThunk *obj, char* tag ) printThunkObject( StgThunk *obj, char* tag )
{ {
...@@ -146,9 +138,6 @@ printClosure( StgClosure *obj ) ...@@ -146,9 +138,6 @@ printClosure( StgClosure *obj )
case CONSTR_STATIC: case CONSTR_STATIC:
case CONSTR_NOCAF_STATIC: case CONSTR_NOCAF_STATIC:
{ {
/* We can't use printStdObject because we want to print the
* tag as well.
*/
StgWord i, j; StgWord i, j;
#ifdef PROFILING #ifdef PROFILING
debugBelch("%s(", info->prof.closure_desc); debugBelch("%s(", info->prof.closure_desc);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment