Lines Matching refs:pid

48     my ($pid, $call, $args, $result, $time, $time_spent);
53     $pid = $1;
67 	$unfinished{$pid} = $_;
72 	unless (exists $unfinished{$pid}) {
76 	$_ = $unfinished{$pid} . $_;
77 	delete $unfinished{$pid};
88 	handle_killed($pid, $time);
107     handle_trace($pid, $call, $args, $result, $time);
226     my ($pid, $call, $args, $result, $time) = @_;
227     my $pid_fqname = $pid . "-" . $time;
229     if (defined $time and not defined $running_fqname{$pid}) {
231 	$running_fqname{$pid} = $pid_fqname;
234     $pid_fqname = $running_fqname{$pid};
263 …$pr{$running_fqname{$pid}}{end} = $time if defined $time and not defined $pr{$running_fqname{$pid}…
264 	delete $running_fqname{$pid};
269     my ($pid, $time) = @_;
270     $pr{$pid}{end} = $time if defined $time and not defined $pr{$pid}{end};
274     my ($pid) = @_;
275     my $seq = $pr{$pid}{seq};
290     my ($pid) = @_;
291     my $seq = $pr{$pid}{seq};
302     my ($pid, $lead) = @_;
304     my @seq = @{$pr{$pid}{seq}};
307     if (not defined first_exec($pid)) {
311     if (defined $pr{$pid}{start} and defined $pr{$pid}{end}) {
312 	$elapsed = $pr{$pid}{end} - $pr{$pid}{start};
326 		print "$lead [$elapsed] $pid @$argv\n";
329 		print "$lead $pid @$argv\n";