diff options
author | Richard Levitte <levitte@openssl.org> | 2016-03-23 19:27:08 +0100 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2016-03-23 19:58:12 +0100 |
commit | b54e35f6cd9a9de3962daa0112e33bd178c49f6d (patch) | |
tree | d40a4132774806924ef8ffbd6b20271329f6caea /Configurations/descrip.mms.tmpl | |
parent | 921de151d2052c794cf6ad82fe76da92717577f7 (diff) | |
download | openssl-b54e35f6cd9a9de3962daa0112e33bd178c49f6d.tar.gz |
VMS: compensate for command line length limits with a logical name
Sometimes, you might end up with a rather long compile line due to
excessively long /INCLUDE directories. Compensate for it by making
a temporary logical name with them and using said logical name as
/INCLUDE argument.
A note was added to NOTES.VMS regarding these limitations.
Reviewed-by: Rich Salz <rsalz@openssl.org>
Diffstat (limited to 'Configurations/descrip.mms.tmpl')
-rw-r--r-- | Configurations/descrip.mms.tmpl | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/Configurations/descrip.mms.tmpl b/Configurations/descrip.mms.tmpl index 32c8d1a3ac..b2ae059468 100644 --- a/Configurations/descrip.mms.tmpl +++ b/Configurations/descrip.mms.tmpl @@ -448,12 +448,19 @@ EOF my $srcs = join(", ", map { abs2rel(rel2abs($_), rel2abs($forward)) } @{$args{srcs}}); - my $incs = - "/INCLUDE=(".join(",", - map { - file_name_is_absolute($_) - ? $_ : catdir($backward,$_) - } @{$args{incs}}).")"; + my $incs_on = "\@ !"; + my $incs_off = "\@ !"; + my $incs = ""; + if (@{$args{incs}}) { + $incs_on = + "DEFINE tmp_includes " + .join(",-\n\t\t\t", map { + file_name_is_absolute($_) + ? $_ : catdir($backward,$_) + } @{$args{incs}}); + $incs_off = "DEASSIGN tmp_includes"; + $incs = " /INCLUDE=(tmp_includes:)"; + } my $before = $unified_info{before}->{$obj.".OBJ"} || "\@ !"; my $after = $unified_info{after}->{$obj.".OBJ"} || "\@ !"; my $depbuild = $disabled{makedepend} ? "" @@ -463,7 +470,9 @@ EOF $obj.OBJ : $deps ${before} SET DEFAULT $forward + $incs_on \$(CC) \$(CFLAGS)${incs}${depbuild} /OBJECT=${objd}${objn}.OBJ /REPOSITORY=$backward $srcs + $incs_off SET DEFAULT $backward ${after} \@ PIPE ( \$(PERL) -e "use File::Compare qw/compare_text/; my \$x = compare_text(""$obj.MMS"",""$obj.tmp-MMS""); exit(0x10000000 + (\$x == 0));" || - |