diff options
| author | Andy Polyakov <appro@openssl.org> | 2008-07-22 08:44:31 +0000 |
|---|---|---|
| committer | Andy Polyakov <appro@openssl.org> | 2008-07-22 08:44:31 +0000 |
| commit | b94551e823599dee6c47dd8a60c1be416b404592 (patch) | |
| tree | c7d7aca87b00780a6475f838d773b8fb43a21f1b /crypto/perlasm/x86masm.pl | |
| parent | 9b634c9b37afc482a8dc8868e367bdd1b650e507 (diff) | |
| download | openssl-b94551e823599dee6c47dd8a60c1be416b404592.tar.gz | |
perlasm update: implement dataseg directive.
Diffstat (limited to 'crypto/perlasm/x86masm.pl')
| -rw-r--r-- | crypto/perlasm/x86masm.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/crypto/perlasm/x86masm.pl b/crypto/perlasm/x86masm.pl index 98845fab65..cde38a11a4 100644 --- a/crypto/perlasm/x86masm.pl +++ b/crypto/perlasm/x86masm.pl @@ -8,6 +8,7 @@ $::lbdecor="\$L"; # local label decoration $nmdecor="_"; # external name decoration $initseg=""; +$segment=""; sub ::generic { my ($opcode,@arg)=@_; @@ -84,6 +85,7 @@ ELSE ENDIF ___ push(@out,$tmp); + $segment = ".text\$"; } sub ::function_begin_B @@ -121,7 +123,7 @@ ___ grep {s/\.[3-7]86/$xmmheader/} @out; } - push(@out,".text\$ ENDS\n"); + push(@out,"$segment ENDS\n"); if (grep {/\b${nmdecor}OPENSSL_ia32cap_P\b/i} @out) { my $comm=<<___; @@ -175,4 +177,7 @@ DD $f ___ } +sub ::dataseg +{ push(@out,"$segment\tENDS\n_DATA\tSEGMENT\n"); $segment="_DATA"; } + 1; |