Portability patch for HP MPE/iX. Submitted by Mark Bixby <mark_bixby@hp.com>

[oweals/openssl.git] / crypto / perlasm / x86ms.pl

diff --git a/crypto/perlasm/x86ms.pl b/crypto/perlasm/x86ms.pl
index b8b1909567ae7063dd6b5b317b288aa1c4223f89..206452341d1faf5c444be80d68282bb34f338d5d 100644 (file)
--- a/crypto/perlasm/x86ms.pl
+++ b/crypto/perlasm/x86ms.pl
@@ -51,6 +51,16 @@ sub main'DWP
        &get_mem("DWORD",@_);
        }
 
+sub main'BC
+       {
+       return @_;
+       }
+
+sub main'DWC
+       {
+       return @_;
+       }
+
 sub main'stack_push
        {
        local($num)=@_;
@@ -331,7 +341,14 @@ sub main'set_label
                $label{$_[0]}="${label}${_[0]}";
                $label++;
                }
-       push(@out,"$label{$_[0]}:\n");
+       if((defined $_[2]) && ($_[2] == 1))
+               {
+               push(@out,"$label{$_[0]}::\n");
+               }
+       else
+               {
+               push(@out,"$label{$_[0]}:\n");
+               }
        }
 
 sub main'data_word