1
0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2024-12-30 19:43:19 +02:00
wernermisc/m1/perf/eval.pl

78 lines
1.4 KiB
Perl
Executable File

#!/usr/bin/perl
sub flush
{
if ($nregs) {
print 0+keys %reg, "/", (sort { $b cmp $a } keys %reg)[0],
"\n";
return;
}
for (sort keys %use) {
print "$_ = ".$reg{$_}."\n";
}
print $res;
}
if ($ARGV[0] eq "-r") {
shift @ARGV;
$nregs = 1;
}
while (<>) {
if (/FPVM fragment:/) {
&flush if $i;
undef %tmp;
undef $i;
}
if (/PFPU fragment:/) {
undef $res;
undef %reg;
undef @val;
%use = %tmp;
$i = 0;
}
$tmp{"R$1"} = 1 if /^\d+:.*-> R0(\d+)/;
next unless defined $i;
next unless
/^(\d+):\s+(\S+)\s+(R\d+)?(,(R\d+))?.*?(->\s+(R\d+))?\s*$/;
# 1 2 3 4 5 6 7
($c, $op, $a, $b, $d) = ($1, $2, $3, $5, $7);
undef $e;
$e = $1 if /E=(\d+)>/;
die "($i) $_" if $c != $i;
$reg{$a} = 1 if $nregs && defined $a;
$reg{$b} = 1 if $nregs && defined $b;
print STDERR "$i: concurrent read/write on $a (A)\n"
if defined $d && $a eq $d;
print STDERR "$i: concurrent read/write on $b (B)\n"
if defined $d && $b eq $d;
$a = $reg{$a} if defined $reg{$a};
$b = $reg{$b} if defined $reg{$b};
if ($op eq "IF<R2>") {
$expr = "(IF ".$reg{"R002"}." $a $b)";
$reg{"R002"} = 1 if $nregs;
} elsif ($op eq "VECTOUT") {
$res = "A = $a\nB = $b\n";
} elsif (defined $b) {
$expr = "($op $a $b)";
} elsif (defined $a) {
$expr = "($op $a)";
} else {
$expr = "($op)";
}
$val[$e] = $expr if defined $e;
$reg{$d} = $val[$i] if defined $d;
$i++;
}
&flush;