diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-12-17 10:38:16 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-12-17 10:38:16 +0000 |
| commit | c0279be6f63e5a46a03d4e84f4368161b93fd8a8 (patch) | |
| tree | 84a69a31521a81f3873ae1de5a2ec81cd99f7c92 /rts/Threads.c | |
| parent | da89032a3d07c53370320975f416bdbf2ccb0188 (diff) | |
| download | haskell-c0279be6f63e5a46a03d4e84f4368161b93fd8a8.tar.gz | |
kill some old GRAN/PARALLEL_HASKELL code
Diffstat (limited to 'rts/Threads.c')
| -rw-r--r-- | rts/Threads.c | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/rts/Threads.c b/rts/Threads.c index 8eaa951a2d..4f9560c36c 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -390,21 +390,7 @@ printAllThreads(void) nat i, g; Capability *cap; -# if defined(GRAN) - char time_string[TIME_STR_LEN], node_str[NODE_STR_LEN]; - ullong_format_string(TIME_ON_PROC(CurrentProc), - time_string, rtsFalse/*no commas!*/); - - debugBelch("all threads at [%s]:\n", time_string); -# elif defined(PARALLEL_HASKELL) - char time_string[TIME_STR_LEN], node_str[NODE_STR_LEN]; - ullong_format_string(CURRENT_TIME, - time_string, rtsFalse/*no commas!*/); - - debugBelch("all threads at [%s]:\n", time_string); -# else debugBelch("all threads:\n"); -# endif for (i = 0; i < n_capabilities; i++) { cap = &capabilities[i]; |