diff options
| author | Andy Polyakov <appro@openssl.org> | 2005-05-09 21:27:40 +0000 |
|---|---|---|
| committer | Andy Polyakov <appro@openssl.org> | 2005-05-09 21:27:40 +0000 |
| commit | d7561ac5762e8120fadd867b329f7dfe1c24582d (patch) | |
| tree | 52e967e96febb2d0be5b2a877c8a4f41ee01252c /crypto/perlasm/x86_64-xlate.pl | |
| parent | fbeaa3c47d05dd90781bdf13b9004fd274512e74 (diff) | |
Allow for 64-bit cache-line alignments in code segment.
Diffstat (limited to 'crypto/perlasm/x86_64-xlate.pl')
| -rwxr-xr-x | crypto/perlasm/x86_64-xlate.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/crypto/perlasm/x86_64-xlate.pl b/crypto/perlasm/x86_64-xlate.pl index 7487249c79..88a45b1923 100755 --- a/crypto/perlasm/x86_64-xlate.pl +++ b/crypto/perlasm/x86_64-xlate.pl @@ -325,12 +325,12 @@ my $current_function; undef $self->{value}; $line = substr($line,@+[0]); $line =~ s/^\s+//; SWITCH: for ($dir) { - /\.(text|data)/ + /\.(text)/ && do { my $v=undef; $v="$current_segment\tENDS\n" if ($current_segment); - $current_segment = "_$1"; + $current_segment = "_$1\$"; $current_segment =~ tr/[a-z]/[A-Z]/; - $v.="$current_segment\tSEGMENT PARA"; + $v.="$current_segment\tSEGMENT ALIGN(64) 'CODE'"; $self->{value} = $v; last; }; |