|
@@ -104,12 +104,13 @@ while ( ( my $symbol, my $info ) = each %$globals ) {
|
104
|
104
|
}
|
105
|
105
|
}
|
106
|
106
|
|
107
|
|
-# Check for excessively large local symbols
|
|
107
|
+# Check for excessively large local symbols. Text and rodata symbols
|
|
108
|
+# are exempt from this check
|
108
|
109
|
#
|
109
|
110
|
while ( ( my $object, my $symbols ) = each %$symtab ) {
|
110
|
111
|
while ( ( my $symbol, my $info ) = each %$symbols ) {
|
111
|
112
|
if ( ( ! $info->{global} ) &&
|
112
|
|
- ( $info->{type} ne 't' ) &&
|
|
113
|
+ ( ! ( $info->{type} =~ /^(t|r)$/ ) ) &&
|
113
|
114
|
( $info->{size} >= WARNING_SIZE ) ) {
|
114
|
115
|
$problems->{$object}->{large}->{$symbol} = 1;
|
115
|
116
|
}
|