162183Salfred#!/usr/bin/perl -w 259874Speter# $FreeBSD$ 310641Sse 462183Salfreduse strict; 510641Sse 662183Salfredif (!defined($ARGV[0])) { 762183Salfred print( 862183Salfred" 962183SalfredPerl script to convert NCR script address into label+offset. 1062183SalfredUseful to find the failed NCR instruction ... 1162183Salfred 1262183Salfredusage: $0 <address> 1362183Salfred"); 1462183Salfred exit(1); 1562183Salfred} 1662183Salfred 1762183Salfredmy $errpos = hex($ARGV[0])/4; 1862183Salfredmy $ofs=0; 1962183Salfred 2010641Sseopen (INPUT, "cc -E ncr.c 2>/dev/null |"); 2110641Sse 2210641Ssewhile ($_ = <INPUT>) 2310641Sse{ 2410641Sse last if /^struct script \{/; 2510641Sse} 2610641Sse 2710641Ssewhile ($_ = <INPUT>) 2810641Sse{ 2910641Sse last if /^\}\;/; 3062183Salfred my ($label, $size) = /ncrcmd\s+(\S+)\s+\[([^]]+)/; 3110641Sse $size = eval($size); 3262183Salfred if (defined($label) && $label) { 3310641Sse if ($errpos) { 3410641Sse if ($ofs + $size > $errpos) { 3510641Sse printf ("%4x: %s\n", $ofs * 4, $label); 3610641Sse printf ("%4x: %s + %d\n", $errpos * 4, $label, $errpos - $ofs); 3710641Sse last; 3810641Sse } 3910641Sse $ofs += $size; 4010641Sse } else { 4110641Sse printf ("%4x: %s\n", $ofs * 4, $label); 4210641Sse } 4310641Sse } 4410641Sse} 4510641Sse 46