system/freebsd-src
system/freebsd-src
1
0
Fork 0
mirror of https://github.com/freebsd/freebsd-src synced 2024-09-20 16:54:02 +00:00
Code Issues Packages Projects Releases Wiki Activity

use warnings

Browse source 
use strict
add 'usage'
This commit is contained in:
Alfred Perlstein 2000-06-27 22:41:12 +00:00
parent 70cb8de9ba
commit ff56ceb1da
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=62183
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);