freebsd-dev/sys/pci/locate.pl

46 lines
799 B
Perl
Raw Normal View History

2000-06-27 22:41:12 +00:00
#!/usr/bin/perl -w
2000-05-01 20:32:07 +00:00
# $FreeBSD$
2000-06-27 22:41:12 +00:00
use strict;
if (!defined($ARGV[0])) {
print(
"
Perl script to convert NCR script address into label+offset.
Useful to find the failed NCR instruction ...
usage: $0 <address>
");
exit(1);
}
my $errpos = hex($ARGV[0])/4;
my $ofs=0;
open (INPUT, "cc -E ncr.c 2>/dev/null |");
while ($_ = <INPUT>)
{
last if /^struct script \{/;
}
while ($_ = <INPUT>)
{
last if /^\}\;/;
2000-06-27 22:41:12 +00:00
my ($label, $size) = /ncrcmd\s+(\S+)\s+\[([^]]+)/;
$size = eval($size);
2000-06-27 22:41:12 +00:00
if (defined($label) && $label) {
if ($errpos) {
if ($ofs + $size > $errpos) {
printf ("%4x: %s\n", $ofs * 4, $label);
printf ("%4x: %s + %d\n", $errpos * 4, $label, $errpos - $ofs);
last;
}
$ofs += $size;
} else {
printf ("%4x: %s\n", $ofs * 4, $label);
}
}
}