diff options
author | Andy Polyakov <appro@openssl.org> | 2004-12-23 21:43:25 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2004-12-23 21:43:25 +0000 |
commit | d1df5b4339b465f97f09b77411860c3cb3aedef0 (patch) | |
tree | cbab5a17d916f32aa0c573513dc9052f45aa23b2 /crypto/perlasm/x86nasm.pl | |
parent | 25558bf7434525099254126119841edbaa155305 (diff) |
x86 perlasm update to accomodate aes-586.pl.
Diffstat (limited to 'crypto/perlasm/x86nasm.pl')
-rw-r--r-- | crypto/perlasm/x86nasm.pl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl index 965bff1bd3..1b6e94c17e 100644 --- a/crypto/perlasm/x86nasm.pl +++ b/crypto/perlasm/x86nasm.pl @@ -106,7 +106,7 @@ sub get_mem $reg2=&conv($1); $addr="$under$2"; } - elsif ($addr =~ /^[_a-zA-Z]/) + elsif ($addr =~ /^[_a-zA-Z]$/) { $addr="$under$addr"; } @@ -360,6 +360,12 @@ sub main'comment } } +sub main'public_label + { + $label{$_[0]}="${under}${_[0]}" if (!defined($label{$_[0]})); + push(@out,"global\t$label{$_[0]}\n"); + } + sub main'label { if (!defined($label{$_[0]})) @@ -377,6 +383,10 @@ sub main'set_label $label{$_[0]}="\@${label}${_[0]}"; $label++; } + if ($_[1]!=0 && $_[1]>1) + { + main'align($_[1]); + } push(@out,"$label{$_[0]}:\n"); } |