Downcase VMS config names

On VMS, we downcase option names, which means that config names are
downcased as well, so they need to be downcased in the target table to
be found.

Reviewed-by: Rich Salz <rsalz@openssl.org>
This commit is contained in:
Richard Levitte 2016-03-21 20:20:15 +01:00
parent 149bd5d6cb
commit 52d86d9b8d

View File

@ -1727,12 +1727,12 @@ sub vc_wince_info {
#release_aflags => "/OPTIMIZE/NODEBUG", #release_aflags => "/OPTIMIZE/NODEBUG",
bn_opts => "SIXTY_FOUR_BIT RC4_INT RC4_CHUNK_LL DES_PTR BF_PTR", bn_opts => "SIXTY_FOUR_BIT RC4_INT RC4_CHUNK_LL DES_PTR BF_PTR",
}, },
"vms-alpha-P32" => { "vms-alpha-p32" => {
inherit_from => [ "vms-alpha" ], inherit_from => [ "vms-alpha" ],
cflags => add("/POINTER_SIZE=32"), cflags => add("/POINTER_SIZE=32"),
ex_libs => sub { join(",", map { s|SHR([\./])|SHR32$1|g; $_ } @_) }, ex_libs => sub { join(",", map { s|SHR([\./])|SHR32$1|g; $_ } @_) },
}, },
"vms-alpha-P64" => { "vms-alpha-p64" => {
inherit_from => [ "vms-alpha" ], inherit_from => [ "vms-alpha" ],
cflags => add("/POINTER_SIZE=64"), cflags => add("/POINTER_SIZE=64"),
ex_libs => sub { join(",", map { s|SHR([\./])|SHR64$1|g; $_ } @_) }, ex_libs => sub { join(",", map { s|SHR([\./])|SHR64$1|g; $_ } @_) },
@ -1744,12 +1744,12 @@ sub vc_wince_info {
#release_aflags => "/OPTIMIZE/NODEBUG", #release_aflags => "/OPTIMIZE/NODEBUG",
bn_opts => "SIXTY_FOUR_BIT RC4_INT RC4_CHUNK_LL DES_PTR BF_PTR", bn_opts => "SIXTY_FOUR_BIT RC4_INT RC4_CHUNK_LL DES_PTR BF_PTR",
}, },
"vms-ia64-P32" => { "vms-ia64-p32" => {
inherit_from => [ "vms-ia64" ], inherit_from => [ "vms-ia64" ],
cflags => add("/POINTER_SIZE=32"), cflags => add("/POINTER_SIZE=32"),
ex_libs => sub { join(",", map { s|SHR([\./])|SHR32$1|g; $_ } @_) }, ex_libs => sub { join(",", map { s|SHR([\./])|SHR32$1|g; $_ } @_) },
}, },
"vms-ia64-P64" => { "vms-ia64-p64" => {
inherit_from => [ "vms-ia64" ], inherit_from => [ "vms-ia64" ],
cflags => add("/POINTER_SIZE=64"), cflags => add("/POINTER_SIZE=64"),
ex_libs => sub { join(",", map { s|SHR([\./])|SHR64$1|g; $_ } @_) }, ex_libs => sub { join(",", map { s|SHR([\./])|SHR64$1|g; $_ } @_) },