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)
}
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 */
......@@ -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 );
......@@ -113,13 +112,6 @@ printThunkPayload( StgThunk *obj )
debugBelch(")\n");
}
static void
printStdObject( StgClosure *obj, char* tag )
{
printStdObjHdr( obj, tag );
printStdObjPayload( obj );
}
static void
printThunkObject( StgThunk *obj, char* 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);
......
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