Skip to content
GitLab
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
70541676
Commit
70541676
authored
Apr 21, 2003
by
sof
Browse files
[project @ 2003-04-21 14:45:28 by sof]
drop curious *_debug_opts_prefix tables; no longer used
parent
047dd308
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/RtsFlags.c
View file @
70541676
/* -----------------------------------------------------------------------------
* $Id: RtsFlags.c,v 1.6
7
2003/0
3
/2
5
1
7:26:0
8 sof Exp $
* $Id: RtsFlags.c,v 1.6
8
2003/0
4
/2
1
1
4:45:2
8 sof Exp $
*
* (c) The AQUA Project, Glasgow University, 1994-1997
* (c) The GHC Team, 1998-1999
...
...
@@ -55,25 +55,9 @@ char *rts_argv[MAX_RTS_ARGS];
#define RTS 1
#define PGM 0
char
*
debug_opts_prefix
[]
=
{
"_-"
,
/* scheduler */
"_."
,
/* interpreter */
"_,"
,
/* codegen */
"_;"
,
/* weak */
"_~"
,
/* gccafs */
"_@"
,
/* gc */
"_#"
,
/* block */
"_&"
,
/* sanity */
"_:"
,
/* stable */
"_!"
,
/* prof */
"_="
,
/* gran */
"_="
/* par */
"_*"
/* linker */
};
#if defined(GRAN)
char
*
gran_debug_opts_strs
[]
=
{
static
char
*
gran_debug_opts_strs
[]
=
{
"DEBUG (-bDe, -bD1): event_trace; printing event trace.
\n
"
,
"DEBUG (-bDE, -bD2): event_stats; printing event statistics.
\n
"
,
"DEBUG (-bDb, -bD4): bq; check blocking queues
\n
"
,
...
...
@@ -92,32 +76,13 @@ char *gran_debug_opts_strs[] = {
};
/* one character codes for the available debug options */
char
gran_debug_opts_flags
[]
=
{
static
char
gran_debug_opts_flags
[]
=
{
'e'
,
'E'
,
'b'
,
'G'
,
'q'
,
'f'
,
'r'
,
'F'
,
'u'
,
'S'
,
':'
,
'o'
,
'z'
,
'P'
,
't'
};
/* prefix strings printed with the debug messages of the corresponding type */
char
*
gran_debug_opts_prefix
[]
=
{
""
,
/* event_trace */
""
,
/* event_stats */
"##"
,
/* bq */
"**"
,
/* pack */
"^^"
,
/* checkSparkQ */
"=="
,
/* thunkStealing */
"^^"
,
/* randomSteal */
"+-"
,
/* findWork */
""
,
/* unused */
"++"
,
/* pri */
"::"
,
/* checkLight */
"##"
,
/* sortedQ */
""
,
/* blockOnFetch */
""
,
/* packBuffer */
""
/* blockOnFetch_sanity */
};
#elif defined(PAR)
char
*
par_debug_opts_strs
[]
=
{
static
char
*
par_debug_opts_strs
[]
=
{
"DEBUG (-qDv, -qD1): verbose; be generally verbose with parallel related stuff.
\n
"
,
"DEBUG (-qDq, -qD2): bq; print blocking queues.
\n
"
,
"DEBUG (-qDs, -qD4): schedule; scheduling of parallel threads.
\n
"
,
...
...
@@ -135,27 +100,10 @@ char *par_debug_opts_strs[] = {
};
/* one character codes for the available debug options */
char
par_debug_opts_flags
[]
=
{
static
char
par_debug_opts_flags
[]
=
{
'v'
,
'q'
,
's'
,
'e'
,
'r'
,
'w'
,
'F'
,
'f'
,
'l'
,
'o'
,
'p'
,
'z'
};
/* prefix strings printed with the debug messages of the corresponding type */
char
*
par_debug_opts_prefix
[]
=
{
" "
,
/* verbose */
"##"
,
/* bq */
"--"
,
/* schedule */
"!!"
,
/* free */
"[]"
,
/* resume */
";;"
,
/* weight */
"%%"
,
/* fetch */
//",,", /* ack */
"$$"
,
/* fish */
""
,
/* tables */
"**"
,
/* packet */
"**"
/* pack */
":("
/* paranoia */
};
#endif
/* PAR */
//@node Static function decls, Command-line option parsing routines, Constants
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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