Minor perlasm updates.
[openssl.git] / crypto / perlasm / x86_64-xlate.pl
index 10b8629e61472ca7def09ef782cef6f59063741d..647e72e171d6e59b10fe99a4d757bac02bc5c8b2 100755 (executable)
@@ -68,7 +68,7 @@ my $output = shift;
        if ($stddev!=$outdev || $stdino!=$outino);
 }
 
-my $win64=1 if ($output =~ /\.asm/);
+my $win64=1 if ($output =~ /\.asm$/);
 
 my $masmref=8 + 50727*2**-32;  # 8.00.50727 shipped with VS2005
 my $masm=0;
@@ -462,8 +462,12 @@ my %globals;
                                    last;
                                  };
                /\.size/    && do { if (defined($current_function)) {
-                                       $self->{value}="\$L\$SEH_end_$current_function->{name}:";
-                                       $self->{value}.=":\n$current_function->{name}\tENDP" if($masm);
+                                       undef $self->{value};
+                                       if ($current_function->{abi} eq "svr4") {
+                                           $self->{value}="\$L\$SEH_end_$current_function->{name}:";
+                                           $self->{value}.=":\n" if($masm);
+                                       }
+                                       $self->{value}.="$current_function->{name}\tENDP" if($masm);
                                        undef $current_function;
                                    }
                                    last;