derek/gem5
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor tracediff bug fixes.

Browse Source
This commit is contained in:
Steve Reinhardt
2008-11-17 11:22:16 -08:00
parent 47789cc974
commit 3701794d33
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
util/tracediff
View File

@@ -87,8 +87,11 @@ if (@ARGV < 1) {
foreach $arg (@ARGV) { foreach $arg (@ARGV) {
$a1 = $a2 = ''; $a1 = $a2 = '';
@subargs = split('#', $arg, -1); @subargs = split('#', $arg);
foreach $subarg (@subargs) { foreach $subarg (@subargs) {
if ($subarg eq '') {
next;
}
@pair = split('\|', $subarg, -1); # -1 enables null trailing fields @pair = split('\|', $subarg, -1); # -1 enables null trailing fields
if (@pair == 1) { if (@pair == 1) {
$a1 .= $subarg; $a1 .= $subarg;
@@ -97,7 +100,7 @@ foreach $arg (@ARGV) {
$a1 .= $pair[0]; $a1 .= $pair[0];
$a2 .= $pair[1]; $a2 .= $pair[1];
} else { } else {
print 'Parse error: too many |s in ', $arg, '\n'; print 'Parse error: too many |s in ', $arg, "\n";
exit(1); exit(1);
} }
} }