source: xtideuniversalbios/tags/v2.0.0_beta_3/Tools/unused.pl @ 515

Last change on this file since 515 was 489, checked in by gregli@…, 11 years ago

Added version string to initial title banner, for cases where there is not a boot menu (just hotkeys, or no hotkeys). Also ifdef'd out some unused code.

File size: 2.5 KB
Line 
1#
2# Looks for unused entry points, to aid in discovering dead code that can be removed
3#
4# Usage: unused.pl listing unused.asm
5#       
6# where: listing is the normal listing from assembly
7#        unused.asm is assembled with the -E nasm flag
8#
9# Annotations can be placed in the source to eliminate false positives:
10#   a) if a label can be fallen into, place "; fall through to <label>" above the label
11#   b) "; unused entrypoint ok" can be placed on the same line with the label
12#   c) "; jump table entrypoint" can be placed on the same line with the label
13#
14#
15# XTIDE Universal BIOS and Associated Tools
16# Copyright (C) 2009-2010 by Tomi Tilli, 2011-2012 by XTIDE Universal BIOS Team.
17#
18# This program is free software; you can redistribute it and/or modify
19# it under the terms of the GNU General Public License as published by
20# the Free Software Foundation; either version 2 of the License, or
21# (at your option) any later version.
22#
23# This program is distributed in the hope that it will be useful,
24# but WITHOUT ANY WARRANTY; without even the implied warranty of
25# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
26# GNU General Public License for more details.     
27# Visit http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
28#
29
30print "::".$ARGV[0]."::".$ARGV[1]."::\n";
31
32open( LST, "<", $ARGV[0] ) || die "cannot open listing: ".$ARGV[0];
33open( UNUSED, "<", $ARGV[1] ) || die "cannot open unused.asm: ".$ARGV[1];
34
35while(<LST>)
36{
37    if( /fall\s+(-?through\s+)?(to\s+)?([a-z0-9_]+)/i )
38    {
39        $ok{ $3 } = 1;
40    }
41    if( /unused\s+entrypoint\s+ok/i && /^\s*\d+\s+\<\d\>\s([a-z0-9_]+)\:/i )
42    {
43        $ok{ $1 } = 1;
44    }
45    if( /jump\s*table\s+entrypoint/i && /^\s*\d+\s+\<\d\>\s([a-z0-9_]+)\:/i )
46    {
47        $ok{ $1 } = 1;
48    }
49}
50
51while(<UNUSED>)
52{
53    if( /^([a-z0-9_]+\:)?\s+db\s+(.*)$/i || 
54        /^([a-z0-9_]+\:)?\s+dw\s+(.*)$/i || 
55        /^([a-z0-9_]+\:)?\s+mov\s+(.*)$/i ||
56        /^([a-z0-9_]+\:)?\s+call\s+(.*)$/i || 
57        /^([a-z0-9_]+\:)?\s+push\s+(.*)$/i || 
58        /^([a-z0-9_]+\:)?\s+j[a-z]?[a-z]?[a-z]?[a-z]?[a-z]?\s+(.*)$/i ||
59        /^([a-z0-9_]+)?\s+equ\s+(.*)$/i )
60    {
61        $rem = $2;
62        @words = split( /([a-z0-9_]+)/i, $_ );
63        for( $t = 0; $t <= $#words; $t++ )
64        {
65            $jumptable{ $words[$t] } = 1;
66        }
67    }
68    if( !(/^g_sz/) && /^([a-z0-9_]+)\:/i )
69    {
70        push( @definition, $1 );
71    }
72}
73
74$results = 0;
75for( $t = 0; $t <= $#definition; $t++ )
76{
77    $d = $definition[$t];
78    if( !$ok{$d} && !$jumptable{$d} )
79    {
80        print $definition[$t]."\n";
81        $results++;
82    }
83}
84
85print ">>>> Unused Count: ".$results."\n";
Note: See TracBrowser for help on using the repository browser.