Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
daa4d184
Commit
daa4d184
authored
Apr 24, 2005
by
panne
Browse files
[project @ 2005-04-24 20:17:28 by panne]
Nuked dead code
parent
a6a97070
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/rts/GC.c
View file @
daa4d184
...
...
@@ -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 */
ghc/rts/Printer.c
View file @
daa4d184
...
...
@@ -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
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment