moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-11-12 04:25:08 -05:00
Code Issues Releases Wiki Activity

singleuse.pl: support new API functions, fix curl_dbg_ handling

Browse Source
This commit is contained in:
Daniel Stenberg 2020-01-23 08:59:22 +01:00
parent 920af1a664
commit d265a7d36b
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
scripts/singleuse.pl
View File

@ -6,7 +6,7 @@
# | (__| |_| | _ <| |___ # | (__| |_| | _ <| |___
# \___|\___/|_| \_\_____| # \___|\___/|_| \_\_____|
# #
# Copyright (C) 2019, Daniel Stenberg, <daniel@haxx.se>, et al. # Copyright (C) 2019 - 2020, Daniel Stenberg, <daniel@haxx.se>, et al.
# #
# This software is licensed as described in the file COPYING, which # This software is licensed as described in the file COPYING, which
# you should have received as part of this distribution. The terms # you should have received as part of this distribution. The terms
@ -116,9 +116,11 @@ my %api = (
'curl_multi_socket' => 'API', 'curl_multi_socket' => 'API',
'curl_multi_socket_action' => 'API', 'curl_multi_socket_action' => 'API',
'curl_multi_socket_all' => 'API', 'curl_multi_socket_all' => 'API',
'curl_multi_poll' => 'API',
'curl_multi_strerror' => 'API', 'curl_multi_strerror' => 'API',
'curl_multi_timeout' => 'API', 'curl_multi_timeout' => 'API',
'curl_multi_wait' => 'API', 'curl_multi_wait' => 'API',
'curl_multi_wakeup' => 'API',
'curl_mvaprintf' => 'API', 'curl_mvaprintf' => 'API',
'curl_mvfprintf' => 'API', 'curl_mvfprintf' => 'API',
'curl_mvprintf' => 'API', 'curl_mvprintf' => 'API',
@ -179,16 +181,16 @@ for(sort keys %exist) {
#printf "%s is defined in %s, used by: %s\n", $_, $exist{$_}, $uses{$_}; #printf "%s is defined in %s, used by: %s\n", $_, $exist{$_}, $uses{$_};
if(!$uses{$_}) { if(!$uses{$_}) {
# this is a symbol with no "global" user # this is a symbol with no "global" user
if($_ =~ /^curl_/) { if($_ =~ /^curl_dbg_/) {
# we ignore the memdebug symbols
}
elsif($_ =~ /^curl_/) {
if(!$api{$_}) { if(!$api{$_}) {
# not present in the API, or for debug-builds # not present in the API, or for debug-builds
print STDERR "Bad curl-prefix: $_\n"; print STDERR "Bad curl-prefix: $_\n";
$err++; $err++;
} }
} }
elsif($_ =~ /^curl_dbg_/) {
# we ignore the memdebug symbols
}
elsif($wl{$_}) { elsif($wl{$_}) {
#print "$_ is WL\n"; #print "$_ is WL\n";
} }
@ -201,8 +203,11 @@ for(sort keys %exist) {
# global prefix, make sure it is "blessed" # global prefix, make sure it is "blessed"
if(!$api{$_}) { if(!$api{$_}) {
# not present in the API, or for debug-builds # not present in the API, or for debug-builds
print STDERR "Bad curl-prefix $_\n"; if($_ !~ /^curl_dbg_/) {
$err++; # ignore the memdebug symbols
print STDERR "Bad curl-prefix $_\n";
$err++;
}
} }
} }
} }