diff options
| author | Richard Levitte <levitte@openssl.org> | 2019-11-04 10:31:04 +0100 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2019-11-05 22:44:21 +0100 |
| commit | a4aab7871939d3661557fd843e0d411bbaa78bc6 (patch) | |
| tree | 7c4a4431a943902c545c98c012bc47bd807f256e /util/perl | |
| parent | OpenSSL::Ordinals: add a renumber() function, to assign unassigned symbols (diff) | |
| download | openssl-a4aab7871939d3661557fd843e0d411bbaa78bc6.tar.xz openssl-a4aab7871939d3661557fd843e0d411bbaa78bc6.zip | |
OpenSSL::Ordinals: when validating, collect statistics on unassigned syms
If a script wants to display how many symbols have assigned numbers
and how many don't, this gives them those numbers.
Reviewed-by: Matt Caswell <matt@openssl.org>
Reviewed-by: Paul Dale <paul.dale@oracle.com>
(Merged from https://github.com/openssl/openssl/pull/10348)
Diffstat (limited to 'util/perl')
| -rw-r--r-- | util/perl/OpenSSL/Ordinals.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/util/perl/OpenSSL/Ordinals.pm b/util/perl/OpenSSL/Ordinals.pm index 411cdc9d60..c3cfc98e71 100644 --- a/util/perl/OpenSSL/Ordinals.pm +++ b/util/perl/OpenSSL/Ordinals.pm @@ -662,6 +662,11 @@ sub validate { && @{$self->{contents}->[$i] // []})) { $self->{stats}->{new}++; } + if ($i <= $self->{maxassigned}) { + $self->{stats}->{assigned}++; + } else { + $self->{stats}->{unassigned}++; + } next if ($i > $self->{loaded_maxnum}); my @loaded_strings = |