Quellcode durchsuchen

Allow read-only symbols to be large

tags/v0.9.3
Michael Brown vor 19 Jahren
Ursprung
Commit
cc73bba7ba
1 geänderte Dateien mit 3 neuen und 2 gelöschten Zeilen
  1. 3
    2
      src/util/symcheck.pl

+ 3
- 2
src/util/symcheck.pl Datei anzeigen

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

Laden…
Abbrechen
Speichern