1
1

find_common_syms: update for OS X symbol naming

OS X tends to prefix its symbols with "_".
Этот коммит содержится в:
Jeff Squyres 2016-01-20 16:18:17 -05:00
родитель 9b8d769e41
Коммит 655b4be97c

Просмотреть файл

@ -128,7 +128,7 @@ sub is_whitelisted {
my $line = shift; my $line = shift;
foreach my $wl_sym (@sym_whitelist) { foreach my $wl_sym (@sym_whitelist) {
if ($line =~ m/\b\Q$wl_sym\E\b/) { if ($line =~ m/\b_?\Q$wl_sym\E\b/) {
return 1; return 1;
} }
} }
@ -136,7 +136,7 @@ sub is_whitelisted {
# Look for symbol names ending in one or more underscores and assume they # Look for symbol names ending in one or more underscores and assume they
# are "Fortran-shaped". This won't match the hex output from most nm's and # are "Fortran-shaped". This won't match the hex output from most nm's and
# shouldn't match the single characters that indicate symbol type. # shouldn't match the single characters that indicate symbol type.
if ($line =~ m/\b[A-Za-z_]+[A-Za-z0-9_]*_+\b/) { if ($line =~ m/\b_?[A-Za-z_]+[A-Za-z0-9_]*_+\b/) {
return 1; return 1;
} }