mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-21 11:13:30 +00:00
46 lines
799 B
Perl
Executable File
46 lines
799 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
# $FreeBSD$
|
|
|
|
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 /^\}\;/;
|
|
my ($label, $size) = /ncrcmd\s+(\S+)\s+\[([^]]+)/;
|
|
$size = eval($size);
|
|
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);
|
|
}
|
|
}
|
|
}
|
|
|