2 # $FreeBSD: src/sys/pci/locate.pl,v 1.2.2.1 2000/08/03 01:09:11 peter Exp $
3 # $DragonFly: src/sys/bus/pci/Attic/locate.pl,v 1.2 2003/06/17 04:28:57 dillon Exp $
5 $errpos = hex($ARGV[0])/4;
8 open (INPUT, "cc -E ncr.c 2>/dev/null |");
12 last if /^struct script \{/;
18 ($label, $size) = /ncrcmd\s+(\S+)\s+\[([^]]+)/;
22 if ($ofs + $size > $errpos) {
23 printf ("%4x: %s\n", $ofs * 4, $label);
24 printf ("%4x: %s + %d\n", $errpos * 4, $label, $errpos - $ofs);
29 printf ("%4x: %s\n", $ofs * 4, $label);