Make sure to have both upper and mixed case symbols in SYMBOL_VECTOR

[openssl.git] / util / mkdef.pl

diff --git a/util/mkdef.pl b/util/mkdef.pl
index a2fdada1816bd96cdf57b108858bcd958d20ec66..ff018e9bb81f687786ed07d1b160c0bd12d6457a 100755 (executable)
--- a/util/mkdef.pl
+++ b/util/mkdef.pl
@@ -1304,7 +1304,7 @@ EOF
                                                print OUT "        $s2;\n";
                                         } elsif ($VMS) {
                                             while(++$prevnum < $n) {
-                                                my $symline="SPARE -";
+                                                my $symline="SPARE, SPARE -";
                                                 if ($symvtextcount + length($symline) + 1 > 1024) {
                                                     print OUT ")\nSYMBOL_VECTOR=(-\n";
                                                     $symvtextcount = 16; # length of "SYMBOL_VECTOR=(-"
@@ -1316,8 +1316,13 @@ EOF
                                                 $symvtextcount += length($symline);
                                             }
                                             (my $s_uc = $s) =~ tr/a-z/A-Z/;
-                                            my $symline="$s_uc/$s="
-                                                , ($v ? "DATA" : "PROCEDURE"), " -\n";
+                                            my $symtype=
+                                                $v ? "DATA" : "PROCEDURE";
+                                            my $symline=
+                                                ($s_uc ne $s
+                                                 ? "$s_uc/$s=$symtype, $s=$symtype"
+                                                 : "$s=$symtype, SPARE")
+                                                ." -";
                                             if ($symvtextcount + length($symline) + 1 > 1024) {
                                                 print OUT ")\nSYMBOL_VECTOR=(-\n";
                                                 $symvtextcount = 16; # length of "SYMBOL_VECTOR=(-"