util/mkdef.pl: prepare for DEPRECATEDIN_X

This is in preparation for new versioning scheme, where the
recommendation is to start deprecations at major version boundary.

Reviewed-by: Tim Hudson <tjh@openssl.org>
Reviewed-by: Matthias St. Pierre <Matthias.St.Pierre@ncp-e.com>
Reviewed-by: Matt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/7724)

1 files changed, 6 insertions, 3 deletions

diff --git a/util/perl/OpenSSL/ParseC.pm b/util/perl/OpenSSL/ParseC.pm
index ba2427ccfa..81472ef5eb 100644
--- a/util/perl/OpenSSL/ParseC.pm
+++ b/util/perl/OpenSSL/ParseC.pm
@@ -72,11 +72,14 @@ my @opensslcpphandlers = (
           if ($op ne '<' && $op ne '>=') {
               die "Error: unacceptable operator $op: $_[0]\n";
           }
-          my ($one, $major, $minor) =
+          my ($major, $minor, $edit) =
               ( ($v >> 28) & 0xf,
                 ($v >> 20) & 0xff,
                 ($v >> 12) & 0xff );
-          my $t = "DEPRECATEDIN_${one}_${major}_${minor}";
+          my $t = "DEPRECATEDIN_" .
+              ($major <= 1
+               ? "${major}_${minor}_${edit}"
+               : "${major}");
           my $cond = $op eq '<' ? 'ifndef' : 'ifdef';
           return (<<"EOF");
 #$cond $t
@@ -284,7 +287,7 @@ EOF
     # We trick the parser by pretending that the declaration is wrapped in a
     # check if the DEPRECATEDIN macro is defined or not.  Callers of parse()
     # will have to decide what to do with it.
-    { regexp   => qr/(DEPRECATEDIN_\d+_\d+_\d+)<<<\((.*)\)>>>/,
+    { regexp   => qr/(DEPRECATEDIN_\d+(?:_\d+_\d+)?)<<<\((.*)\)>>>/,
       massager => sub { return (<<"EOF");
 #ifndef $1
 $2;