wernermisc/m1/perf/eval.pl

#!/usr/bin/perl


sub flush
{
	for (sort keys %use) {
		print "$_ = ".$reg{$_}."\n";
	}
	print $res;
}


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;

	$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)";
	} 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;