From d4b009d5f88875ac0e3ac0b2b9689ed16a4c88dc Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Tue, 12 Jan 2016 03:40:27 +0100 Subject: [PATCH] Use SPARE instead of PRIVATE_PROCEDURE to reserve unused SYMBOL_VECTOR slots It was assumed that a dummy with the type PRIVATE_PROCEDURE would simply occupy a slot but otherwise ignore the symbol. Not so, but there is SPARE for that purpose. Reviewed-by: Rich Salz --- util/mkdef.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/util/mkdef.pl b/util/mkdef.pl index da2dbd3e5b..a2fdada181 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="dummy$prevcount=PRIVATE_PROCEDURE -"; + my $symline="SPARE -"; if ($symvtextcount + length($symline) + 1 > 1024) { print OUT ")\nSYMBOL_VECTOR=(-\n"; $symvtextcount = 16; # length of "SYMBOL_VECTOR=(-" -- 2.40.0