d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use warnings

Browse Source 
use strict
add 'usage'
This commit is contained in:
alfred 2000-06-27 22:41:12 +00:00
parent 6887475162
commit ea961c73cb
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
sys/pci/locate.pl
View File

@ -1,8 +1,21 @@
#!/usr/bin/perl
#!/usr/bin/perl -w
# $FreeBSD$
$errpos = hex($ARGV[0])/4;
$ofs=0;
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 |");
@ -14,9 +27,9 @@ while ($_ = <INPUT>)
while ($_ = <INPUT>)
{
last if /^\}\;/;
($label, $size) = /ncrcmd\s+(\S+)\s+\[([^]]+)/;
my ($label, $size) = /ncrcmd\s+(\S+)\s+\[([^]]+)/;
$size = eval($size);
if ($label) {
if (defined($label) && $label) {
if ($errpos) {
if ($ofs + $size > $errpos) {
printf ("%4x: %s\n", $ofs * 4, $label);