瀏覽代碼

Allow read-only symbols to be large

tags/v0.9.3
Michael Brown 20 年之前
父節點
當前提交
cc73bba7ba
共有 1 個檔案被更改,包括 3 行新增2 行删除
  1. 3
    2
      src/util/symcheck.pl

+ 3
- 2
src/util/symcheck.pl 查看文件

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
 while ( ( my $object, my $symbols ) = each %$symtab ) {
110
 while ( ( my $object, my $symbols ) = each %$symtab ) {
110
   while ( ( my $symbol, my $info ) = each %$symbols ) {
111
   while ( ( my $symbol, my $info ) = each %$symbols ) {
111
     if ( ( ! $info->{global} ) &&
112
     if ( ( ! $info->{global} ) &&
112
-	 ( $info->{type} ne 't' ) &&
113
+	 ( ! ( $info->{type} =~ /^(t|r)$/ ) ) &&
113
 	 ( $info->{size} >= WARNING_SIZE ) ) {
114
 	 ( $info->{size} >= WARNING_SIZE ) ) {
114
       $problems->{$object}->{large}->{$symbol} = 1;
115
       $problems->{$object}->{large}->{$symbol} = 1;
115
     }
116
     }

Loading…
取消
儲存