1#!/usr/bin/perl
2
3$errpos = hex($ARGV[0])/4;
4$ofs=0;
5
6open (INPUT, "cc -E ncr.c 2>/dev/null |");
7
8while ($_ = <INPUT>)
9{
--- 22 unchanged lines hidden ---
2
3$errpos = hex($ARGV[0])/4;
4$ofs=0;
5
6open (INPUT, "cc -E ncr.c 2>/dev/null |");
7
8while ($_ = <INPUT>)
9{
--- 22 unchanged lines hidden ---