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