mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2024-11-27 05:21:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

Allow for 64-bit cache-line alignments in code segment.

Browse Source
This commit is contained in:
Andy Polyakov 2005-05-09 21:27:40 +00:00
parent fbeaa3c47d
commit d7561ac576
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
crypto/perlasm/x86_64-xlate.pl
View File

@ -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;
};

4
crypto/perlasm/x86ms.pl
View File

@ -258,7 +258,7 @@ sub main'function_begin
push(@labels,$func);
local($tmp)=<<"EOF";
_TEXT\$ SEGMENT PARA
_TEXT\$ SEGMENT PAGE 'CODE'
PUBLIC _$func
$extra
_$func PROC NEAR
@ -276,7 +276,7 @@ sub main'function_begin_B
local($func,$extra)=@_;
local($tmp)=<<"EOF";
_TEXT\$ SEGMENT PARA
_TEXT\$ SEGMENT PAGE 'CODE'
PUBLIC _$func
$extra
_$func PROC NEAR