| 1#!/usr/bin/perl |
| 2# $FreeBSD: head/sys/pci/locate.pl 59874 2000-05-01 20:32:07Z peter $ |
| 3 4$errpos = hex($ARGV[0])/4; 5$ofs=0; 6 7open (INPUT, "cc -E ncr.c 2>/dev/null |"); 8 9while ($_ = <INPUT>) 10{ --- 22 unchanged lines hidden --- |
| 1#!/usr/bin/perl |
| 2# $FreeBSD: head/sys/pci/locate.pl 59874 2000-05-01 20:32:07Z peter $ |
| 3 4$errpos = hex($ARGV[0])/4; 5$ofs=0; 6 7open (INPUT, "cc -E ncr.c 2>/dev/null |"); 8 9while ($_ = <INPUT>) 10{ --- 22 unchanged lines hidden --- |