mirror/freebsd
1
0
Fork 0
mirror of https://git.FreeBSD.org/src.git synced 2025-01-10 14:02:43 +00:00
Code Issues Releases Activity

Perl script to convert NCR script address into label+offset.

Browse Source 
Useful to find the failed NCR instruction ...
This commit is contained in:
Stefan Eßer 1995-09-08 19:37:11 +00:00
parent ff3498c91e
commit 5e5da2da5d
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=10641
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
sys/pci/locate.pl Executable file
View File

@ -0,0 +1,31 @@
#!/usr/local/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);
}
}
}