Allow read-only symbols to be large
authorMichael Brown <mcb30@etherboot.org>
Tue, 3 May 2005 12:34:52 +0000 (12:34 +0000)
committerMichael Brown <mcb30@etherboot.org>
Tue, 3 May 2005 12:34:52 +0000 (12:34 +0000)
src/util/symcheck.pl

index df37a25..6373658 100755 (executable)
@@ -104,12 +104,13 @@ while ( ( my $symbol, my $info ) = each %$globals ) {
   }
 }
 
-# Check for excessively large local symbols
+# Check for excessively large local symbols.  Text and rodata symbols
+# are exempt from this check
 #
 while ( ( my $object, my $symbols ) = each %$symtab ) {
   while ( ( my $symbol, my $info ) = each %$symbols ) {
     if ( ( ! $info->{global} ) &&
-        ( $info->{type} ne 't' ) &&
+        ( ! ( $info->{type} =~ /^(t|r)$/ ) ) &&
         ( $info->{size} >= WARNING_SIZE ) ) {
       $problems->{$object}->{large}->{$symbol} = 1;
     }