diff options
| author | Dr. Stephen Henson <steve@openssl.org> | 2008-01-03 22:53:06 +0000 |
|---|---|---|
| committer | Dr. Stephen Henson <steve@openssl.org> | 2008-01-03 22:53:06 +0000 |
| commit | 3b0e61a812cef6bd45ace87b92e152f97a98bece (patch) | |
| tree | 239f1b132f8ab7e7f77e12ba3ee2ab04c4691f26 /crypto/perlasm | |
| parent | e84b0d709b1b0b02f175b6da827256c3d8497ff7 (diff) | |
Netware support.
Submitted by: Guenter Knauf <eflash@gmx.net>
Diffstat (limited to 'crypto/perlasm')
| -rw-r--r-- | crypto/perlasm/x86nasm.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl index b6dfcbdf02..863c7e9d6e 100644 --- a/crypto/perlasm/x86nasm.pl +++ b/crypto/perlasm/x86nasm.pl @@ -281,6 +281,7 @@ sub main'function_begin my($func,$extra)=@_; push(@labels,$func); + push(@out,".") if ($main'mwerks); my($tmp)=<<"EOF"; global $under$func $under$func: @@ -296,6 +297,7 @@ EOF sub main'function_begin_B { my($func,$extra)=@_; + push(@out,".") if ($main'mwerks); my($tmp)=<<"EOF"; global $under$func $under$func: @@ -375,6 +377,7 @@ sub main'comment sub main'public_label { $label{$_[0]}="${under}${_[0]}" if (!defined($label{$_[0]})); + push(@out,".") if ($main'mwerks); push(@out,"global\t$label{$_[0]}\n"); } |