mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2024-12-23 01:36:26 +02:00
78 lines
1.4 KiB
Perl
Executable File
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;
|