2
0
mirror of https://github.com/xcat2/xNBA.git synced 2024-11-22 17:41:55 +00:00

Allow read-only symbols to be large

This commit is contained in:
Michael Brown 2005-05-03 12:34:52 +00:00
parent 24c0498cbc
commit cc73bba7ba

View File

@ -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;
}