citrun

watch C/C++ source code execute
Log | Files | Refs | LICENSE

commit 4451a4eb86ca2f288e20928ed03b538b32858014
parent 908f34dd1f4179104cb84510ca3b2f547427e38a
Author: kyle <kyle@0x30.net>
Date:   Fri, 25 Nov 2016 23:14:46 -0700

t/shm: move function to its only caller

Diffstat:
Mt/shm.pm | 11-----------
Mtt/write_tus.pl | 8+++++++-
2 files changed, 7 insertions(+), 12 deletions(-)

diff --git a/t/shm.pm b/t/shm.pm @@ -62,17 +62,6 @@ sub execs_for { return \@execs; } -sub print_tus { - my ($self) = @_; - - my $transl_units = $self->{translation_units}; - for (@$transl_units) { - my %tu = %$_; - - print "$tu{comp_file_name} $tu{size}\n"; - } -} - # # Read an exact amount of bytes. # diff --git a/tt/write_tus.pl b/tt/write_tus.pl @@ -9,4 +9,10 @@ open(my $out, '>', 'tu_list.out') or die $!; my $shm = t::shm->new($ARGV[0]); select $out; -$shm->print_tus(); + +my $transl_units = $shm->{translation_units}; +for (@$transl_units) { + my %tu = %$_; + + print "$tu{comp_file_name} $tu{size}\n"; +}