Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tobias Decking
GHC
Commits
c425356c
Commit
c425356c
authored
Sep 08, 2009
by
Simon Marlow
Browse files
Fix warnings on 64-bit platforms; fixes validate on x86-64
parent
db0309b6
Changes
1
Hide whitespace changes
Inline
Side-by-side
rts/Trace.c
View file @
c425356c
...
...
@@ -112,40 +112,41 @@ static void traceSchedEvent_stderr (Capability *cap, EventTypeNum tag,
tracePreface
();
switch
(
tag
)
{
case
EVENT_CREATE_THREAD
:
// (cap, thread)
debugBelch
(
"cap %d: created thread %ld
\n
"
,
cap
->
no
,
tso
->
id
);
debugBelch
(
"cap %d: created thread %lu
\n
"
,
cap
->
no
,
(
lnat
)
tso
->
id
);
break
;
case
EVENT_RUN_THREAD
:
// (cap, thread)
debugBelch
(
"cap %d: running thread %l
d
(%s)
\n
"
,
cap
->
no
,
tso
->
id
,
what_next_strs
[
tso
->
what_next
]);
debugBelch
(
"cap %d: running thread %l
u
(%s)
\n
"
,
cap
->
no
,
(
lnat
)
tso
->
id
,
what_next_strs
[
tso
->
what_next
]);
break
;
case
EVENT_THREAD_RUNNABLE
:
// (cap, thread)
debugBelch
(
"cap %d: thread %l
d
appended to run queue
\n
"
,
cap
->
no
,
tso
->
id
);
debugBelch
(
"cap %d: thread %l
u
appended to run queue
\n
"
,
cap
->
no
,
(
lnat
)
tso
->
id
);
break
;
case
EVENT_RUN_SPARK
:
// (cap, thread)
debugBelch
(
"cap %d: thread %l
d
running a spark
\n
"
,
cap
->
no
,
tso
->
id
);
debugBelch
(
"cap %d: thread %l
u
running a spark
\n
"
,
cap
->
no
,
(
lnat
)
tso
->
id
);
break
;
case
EVENT_CREATE_SPARK_THREAD
:
// (cap, spark_thread)
debugBelch
(
"cap %d: creating spark thread %l
d
\n
"
,
debugBelch
(
"cap %d: creating spark thread %l
u
\n
"
,
cap
->
no
,
(
long
)
other
);
break
;
case
EVENT_MIGRATE_THREAD
:
// (cap, thread, new_cap)
debugBelch
(
"cap %d: thread %l
d
migrating to cap %d
\n
"
,
cap
->
no
,
tso
->
id
,
(
int
)
other
);
debugBelch
(
"cap %d: thread %l
u
migrating to cap %d
\n
"
,
cap
->
no
,
(
lnat
)
tso
->
id
,
(
int
)
other
);
break
;
case
EVENT_STEAL_SPARK
:
// (cap, thread, victim_cap)
debugBelch
(
"cap %d: thread %l
d
stealing a spark from cap %d
\n
"
,
cap
->
no
,
tso
->
id
,
(
int
)
other
);
debugBelch
(
"cap %d: thread %l
u
stealing a spark from cap %d
\n
"
,
cap
->
no
,
(
lnat
)
tso
->
id
,
(
int
)
other
);
break
;
case
EVENT_THREAD_WAKEUP
:
// (cap, thread, other_cap)
debugBelch
(
"cap %d: waking up thread %l
d
on cap %d
\n
"
,
cap
->
no
,
tso
->
id
,
(
int
)
other
);
debugBelch
(
"cap %d: waking up thread %l
u
on cap %d
\n
"
,
cap
->
no
,
(
lnat
)
tso
->
id
,
(
int
)
other
);
break
;
case
EVENT_STOP_THREAD
:
// (cap, thread, status)
debugBelch
(
"cap %d: thread %l
d
stopped (%s)
\n
"
,
cap
->
no
,
tso
->
id
,
thread_stop_reasons
[
other
]);
debugBelch
(
"cap %d: thread %l
u
stopped (%s)
\n
"
,
cap
->
no
,
(
lnat
)
tso
->
id
,
thread_stop_reasons
[
other
]);
break
;
case
EVENT_SHUTDOWN
:
// (cap)
debugBelch
(
"cap %d: shutting down
\n
"
,
cap
->
no
);
...
...
@@ -163,7 +164,8 @@ static void traceSchedEvent_stderr (Capability *cap, EventTypeNum tag,
debugBelch
(
"cap %d: finished GC
\n
"
,
cap
->
no
);
break
;
default:
debugBelch
(
"cap %2d: thread %ld: event %d
\n\n
"
,
cap
->
no
,
tso
->
id
,
tag
);
debugBelch
(
"cap %2d: thread %lu: event %d
\n\n
"
,
cap
->
no
,
(
lnat
)
tso
->
id
,
tag
);
break
;
}
...
...
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