| … | |
… | |
| 26 | |
26 | |
| 27 | state |
27 | state |
| 28 | |cctx allocated |
28 | |cctx allocated |
| 29 | || resident set size (kb) |
29 | || resident set size (kb) |
| 30 | > ps || | |
30 | > ps || | |
| 31 | pid SS RSS description where |
31 | PID SS RSS Description Where |
| 32 | 11014896 US 835 [main::] [/opt/cf/ext/dm-support.ext:45] |
32 | 11014896 US 835 [main::] [/opt/cf/ext/dm-support.ext:45] |
| 33 | 11015088 -- 2 [coro manager] [/opt/perl/lib/perl5/Coro.pm:170] |
33 | 11015088 -- 2 [coro manager] [/opt/perl/lib/perl5/Coro.pm:170] |
| 34 | 11015408 -- 2 [unblock_sub schedul [/opt/perl/lib/perl5/Coro.pm:548] |
34 | 11015408 -- 2 [unblock_sub schedul [/opt/perl/lib/perl5/Coro.pm:548] |
| 35 | 15607952 -- 2 timeslot manager [/opt/cf/cf.pm:382] |
35 | 15607952 -- 2 timeslot manager [/opt/cf/cf.pm:382] |
| 36 | 18492336 -- 5 player scheduler [/opt/cf/ext/login.ext:501] |
36 | 18492336 -- 5 player scheduler [/opt/cf/ext/login.ext:501] |
| … | |
… | |
| 254 | my ($cmd) = @_; |
254 | my ($cmd) = @_; |
| 255 | |
255 | |
| 256 | $cmd =~ s/\s+$//; |
256 | $cmd =~ s/\s+$//; |
| 257 | |
257 | |
| 258 | if ($cmd =~ /^ps$/) { |
258 | if ($cmd =~ /^ps$/) { |
| 259 | printf "%20s %s%s %4s %4s %-24.24s %s\n", "pid", "S", "S", "RSS", "USES", "description", "where"; |
259 | printf "%20s %s%s %4s %4s %-24.24s %s\n", "PID", "S", "S", "RSS", "USES", "Description", "Where"; |
| 260 | for my $coro (reverse Coro::State::list) { |
260 | for my $coro (reverse Coro::State::list) { |
| 261 | Coro::cede; |
261 | Coro::cede; |
| 262 | my @bt; |
262 | my @bt; |
| 263 | Coro::State::call ($coro, sub { |
263 | Coro::State::call ($coro, sub { |
| 264 | # we try to find *the* definite frame that gives msot useful info |
264 | # we try to find *the* definite frame that gives msot useful info |
