Have mkdef.pl also handle VAX and Non-VAX differences for VMS
This commit is contained in:
parent
3166d16f06
commit
73cfd9cce9
@ -69,7 +69,7 @@ my $do_ctestall = 0;
|
|||||||
my $do_checkexist = 0;
|
my $do_checkexist = 0;
|
||||||
|
|
||||||
my $VMSVAX=0;
|
my $VMSVAX=0;
|
||||||
my $VMSAlpha=0;
|
my $VMSNonVAX=0;
|
||||||
my $VMS=0;
|
my $VMS=0;
|
||||||
my $W32=0;
|
my $W32=0;
|
||||||
my $W16=0;
|
my $W16=0;
|
||||||
@ -141,9 +141,9 @@ foreach (@ARGV, split(/ /, $options))
|
|||||||
$VMS=1;
|
$VMS=1;
|
||||||
$VMSVAX=1;
|
$VMSVAX=1;
|
||||||
}
|
}
|
||||||
if ($_ eq "VMS-Alpha") {
|
if ($_ eq "VMS-NonVAX") {
|
||||||
$VMS=1;
|
$VMS=1;
|
||||||
$VMSAlpha=1;
|
$VMSNonVAX=1;
|
||||||
}
|
}
|
||||||
$VMS=1 if $_ eq "VMS";
|
$VMS=1 if $_ eq "VMS";
|
||||||
$OS2=1 if $_ eq "OS2";
|
$OS2=1 if $_ eq "OS2";
|
||||||
@ -962,6 +962,19 @@ sub do_defs
|
|||||||
$platform{"PEM_read_P8_PRIV_KEY_INFO"} = "VMS";
|
$platform{"PEM_read_P8_PRIV_KEY_INFO"} = "VMS";
|
||||||
$platform{"PEM_write_P8_PRIV_KEY_INFO"} = "VMS";
|
$platform{"PEM_write_P8_PRIV_KEY_INFO"} = "VMS";
|
||||||
|
|
||||||
|
$platform{"EVP_sha384"} = "!VMSVAX";
|
||||||
|
$platform{"EVP_sha512"} = "!VMSVAX";
|
||||||
|
$platform{"SHA384_Init"} = "!VMSVAX";
|
||||||
|
$platform{"SHA384_Transform"} = "!VMSVAX";
|
||||||
|
$platform{"SHA384_Update"} = "!VMSVAX";
|
||||||
|
$platform{"SHA384_Final"} = "!VMSVAX";
|
||||||
|
$platform{"SHA384"} = "!VMSVAX";
|
||||||
|
$platform{"SHA512_Init"} = "!VMSVAX";
|
||||||
|
$platform{"SHA512_Transform"} = "!VMSVAX";
|
||||||
|
$platform{"SHA512_Update"} = "!VMSVAX";
|
||||||
|
$platform{"SHA512_Final"} = "!VMSVAX";
|
||||||
|
$platform{"SHA512"} = "!VMSVAX";
|
||||||
|
|
||||||
# Info we know about
|
# Info we know about
|
||||||
|
|
||||||
push @ret, map { $_."\\".&info_string($_,"EXIST",
|
push @ret, map { $_."\\".&info_string($_,"EXIST",
|
||||||
@ -1086,6 +1099,8 @@ sub is_valid
|
|||||||
if ($platforms) {
|
if ($platforms) {
|
||||||
# platforms
|
# platforms
|
||||||
if ($keyword eq "VMS" && $VMS) { return 1; }
|
if ($keyword eq "VMS" && $VMS) { return 1; }
|
||||||
|
if ($keyword eq "VMSVAX" && $VMSVAX) { return 1; }
|
||||||
|
if ($keyword eq "VMSNonVAX" && $VMSNonVAX) { return 1; }
|
||||||
if ($keyword eq "WIN32" && $W32) { return 1; }
|
if ($keyword eq "WIN32" && $W32) { return 1; }
|
||||||
if ($keyword eq "WIN16" && $W16) { return 1; }
|
if ($keyword eq "WIN16" && $W16) { return 1; }
|
||||||
if ($keyword eq "WINNT" && $NT) { return 1; }
|
if ($keyword eq "WINNT" && $NT) { return 1; }
|
||||||
|
Loading…
x
Reference in New Issue
Block a user