test/regression/check-pragmas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl

$sect = 'none';

while(<>) {
    if (/^	(\.(text|data|sdata|sbss|sdata2))/) {
        $sect = $1;
    }
    if (/^	(\.section.*)/) {
        $sect = $1;
    }
    if (/([A-Za-z_][A-Za-z0-9_]*):/) {
        printf ("%32s: %s\n", $1, $sect);
    }
    if (/([A-Za-z_][A-Za-z0-9_]*)\)?\@sda/) {
        printf ("%32s: short reference\n", $1);
    }
}