Commit 4abca7e9 authored by Richard Levitte's avatar Richard Levitte
Browse files

VMS build: better treatment of .S -> .obj compilation 



It turned out that .S files aren't to be treated as lightly as I
thought.  They need to go through a preprocessing step, which .s files
don't need to.

Corrects #7703

Reviewed-by: default avatarTim Hudson <tjh@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/7889)

(cherry picked from commit e436664828429a23bf210710ede34203bdfdc2b8)
parent ca34e08d

Configurations/descrip.mms.tmpl

+33 −15
Original line number Diff line number Diff line
@@ -820,7 +820,7 @@ EOF 


  sub src2obj {

      my %args = @_;

      my @srcs = map { (my $x = $_) =~ s/\.[sS]$/.asm/; $x

      my @srcs = map { (my $x = $_) =~ s/\.s$/.asm/; $x

                     } ( @{$args{srcs}} );

      (my $obj = $args{obj}) =~ s|\.o$||;

      my $deps = join(", -\n\t\t", @srcs, @{$args{deps}});
@@ -840,19 +840,6 @@ EOF 
      my $before = $unified_info{before}->{$obj.".OBJ"} || "\@ !";

      my $after = $unified_info{after}->{$obj.".OBJ"} || "\@ !";



      if ($srcs[0] =~ /\.asm$/) {

          my $asflags = { lib => ' $(LIB_ASFLAGS)',

		          dso => ' $(DSO_ASFLAGS)',

		          bin => ' $(BIN_ASFLAGS)' } -> {$args{intent}};

          return <<"EOF";

$obj.OBJ : $deps

        ${before}

        SET DEFAULT $forward

        \$(AS) $asflags \$(ASOUTFLAG)${objd}${objn}.OBJ $srcs

        SET DEFAULT $backward

EOF

      }



      my $cflags;

      if ($args{installed}) {

          $cflags = { lib => '$(LIB_CFLAGS)',
@@ -866,6 +853,9 @@ EOF 
      $cflags .= { lib => '$(LIB_CPPFLAGS)',

		   dso => '$(DSO_CPPFLAGS)',

		   bin => '$(BIN_CPPFLAGS)' } -> {$args{intent}};

      my $asflags = { lib => ' $(LIB_ASFLAGS)',

		      dso => ' $(DSO_ASFLAGS)',

		      bin => ' $(BIN_ASFLAGS)' } -> {$args{intent}};



      my @incs_cmds = includes({ lib => '$(LIB_INCLUDES)',

                                 dso => '$(DSO_INCLUDES)',
@@ -877,6 +867,34 @@ EOF 
                               } @{$args{incs}});

      my $incs_on = join("\n\t\@ ", @{$incs_cmds[0]}) || '!';

      my $incs_off = join("\n\t\@ ", @{$incs_cmds[1]}) || '!';



      if ($srcs[0] =~ /\.asm$/) {

          return <<"EOF";

$obj.OBJ : $deps

        ${before}

        SET DEFAULT $forward

        \$(AS) $asflags \$(ASOUTFLAG)${objd}${objn}.OBJ $srcs

        SET DEFAULT $backward

        ${after}

        - PURGE $obj.OBJ

EOF

      } elsif ($srcs[0] =~ /.S$/) {

         return <<"EOF";

$obj.OBJ : $deps

        ${before}

        SET DEFAULT $forward

        \@ $incs_on

        PIPE \$(CPP) ${cflags} $srcs | -

             \$(PERL) -ne "/^#(\\s*line)?\\s*[0-9]+\\s+""/ or print" -

             > ${objd}${objn}.asm

        \@ $incs_off

        SET DEFAULT $backward

        ${after}

        \$(AS) $asflags \$(ASOUTFLAG)$obj.OBJ $obj.asm

        - PURGE $obj.OBJ

EOF

      }



      my $depbuild = $disabled{makedepend} ? ""

          : " /MMS=(FILE=${objd}${objn}.D,TARGET=$obj.OBJ)";