diff options
Diffstat (limited to 'util/mkdef.pl')
| -rwxr-xr-x | util/mkdef.pl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/util/mkdef.pl b/util/mkdef.pl index a2fdada181..ff018e9bb8 100755 --- 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=(-" |