Commit d7561ac5 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

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

parent fbeaa3c4

crypto/perlasm/x86_64-xlate.pl

+3 −3
Original line number Diff line number Diff line
@@ -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;

				  };

crypto/perlasm/x86ms.pl

+2 −2
Original line number Diff line number Diff line
@@ -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