From 36d3acb91d5d2f0308ab93be9ce5609f784f95a2 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Fri, 5 Oct 2018 00:10:35 +0200 Subject: util/mkdef.pl: for VMS, allow generation of case insensitive symbol vector Some modules are built with case insensitive (uppercase) symbols on VMS. This needs to be reflected in the export symbol vector. Reviewed-by: Tim Hudson (Merged from https://github.com/openssl/openssl/pull/7347) --- Configurations/descrip.mms.tmpl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Configurations') diff --git a/Configurations/descrip.mms.tmpl b/Configurations/descrip.mms.tmpl index 39d9159c0c..44b22edf61 100644 --- a/Configurations/descrip.mms.tmpl +++ b/Configurations/descrip.mms.tmpl @@ -761,9 +761,12 @@ reconfigure reconf : my $ord_ver = $args{intent} eq 'lib' ? ' --version $(VERSION)' : ''; my $ord_name = $args{generator}->[1] || basename($args{product}, '.EXE'); + my $case_insensitive = + $target{$args{intent}.'_cflags'} =~ m|/NAMES=[^/]*AS_IS|i + ? '' : ' --case-insensitive'; return <<"EOF"; $target : $args{generator}->[0] $deps $mkdef - \$(PERL) $mkdef$ord_ver --ordinals $args{generator}->[0] --name $ord_name "--OS" "VMS" > $target + \$(PERL) $mkdef$ord_ver --ordinals $args{generator}->[0] --name $ord_name "--OS" "VMS"$case_insensitive > $target EOF } elsif ($target !~ /\.[sS]$/) { my $target = $args{src}; -- cgit v1.2.3