FreeBSD/Linux Kernel Cross Reference
sys/pci/locate.pl

     #!/usr/bin/perl
     
     $errpos = hex($ARGV[0])/4;
     $ofs=0;
     
     open (INPUT, "cc -E ncr.c 2>/dev/null |");
     
     while ($_ = <INPUT>)
     {
        last if /^struct script \{/;
    }
    
    while ($_ = <INPUT>)
    {
        last if /^\}\;/;
        ($label, $size) = /ncrcmd\s+(\S+)\s+\[([^]]+)/;
        $size = eval($size);
        if ($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);
            }
        }
    }
    

Cache object: db0f060c2a0d1439580553c4a36d19bf