2 # $FreeBSD: src/sys/pci/locate.pl,v 1.2.2.1 2000/08/03 01:09:11 peter Exp $
4 $errpos = hex($ARGV[0])/4;
7 open (INPUT, "cc -E ncr.c 2>/dev/null |");
11 last if /^struct script \{/;
17 ($label, $size) = /ncrcmd\s+(\S+)\s+\[([^]]+)/;
21 if ($ofs + $size > $errpos) {
22 printf ("%4x: %s\n", $ofs * 4, $label);
23 printf ("%4x: %s + %d\n", $errpos * 4, $label, $errpos - $ofs);
28 printf ("%4x: %s\n", $ofs * 4, $label);