generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests 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}; undef $self->{value};
$line = substr($line,@+[0]); $line =~ s/^\s+//; $line = substr($line,@+[0]); $line =~ s/^\s+//;
SWITCH: for ($dir) { SWITCH: for ($dir) {
/\.(text|data)/ /\.(text)/
&& do { my $v=undef; && do { my $v=undef;
$v="$current_segment\tENDS\n" if ($current_segment); $v="$current_segment\tENDS\n" if ($current_segment);
$current_segment = "_$1"; $current_segment = "_$1\$";
$current_segment =~ tr/[a-z]/[A-Z]/; $current_segment =~ tr/[a-z]/[A-Z]/;
$v.="$current_segment\tSEGMENT PARA"; $v.="$current_segment\tSEGMENT ALIGN(64) 'CODE'";
$self->{value} = $v; $self->{value} = $v;
last; last;
}; };

4
crypto/perlasm/x86ms.pl
View File

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