Commit 8fe8bae1 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

Minor perlasm updates.

parent f2c02305

crypto/perlasm/x86_64-xlate.pl

+7 −3
Original line number Diff line number Diff line
@@ -68,7 +68,7 @@ my $output = shift; 
	if ($stddev!=$outdev || $stdino!=$outino);

}



my $win64=1 if ($output =~ /\.asm/);

my $win64=1 if ($output =~ /\.asm$/);



my $masmref=8 + 50727*2**-32;	# 8.00.50727 shipped with VS2005

my $masm=0;
@@ -462,8 +462,12 @@ my %globals; 
				    last;

				  };

		/\.size/    && do { if (defined($current_function)) {

					undef $self->{value};

					if ($current_function->{abi} eq "svr4") {

					    $self->{value}="\$L\$SEH_end_$current_function->{name}:";

					$self->{value}.=":\n$current_function->{name}\tENDP" if($masm);

					    $self->{value}.=":\n" if($masm);

					}

					$self->{value}.="$current_function->{name}\tENDP" if($masm);

					undef $current_function;

				    }

				    last;

crypto/perlasm/x86gas.pl

+2 −2
Original line number Diff line number Diff line
@@ -77,11 +77,11 @@ sub ::jmp_ptr { &::generic("jmp","*$_[0]"); } 
};

*::shld = sub

{ my($dst,$src,$bits)=@_;

    &::emit("shldl",$bit eq "cl"?"%cl":"\$$bits","%$src","%$dst");

    &::emit("shldl",$bits eq "cl"?"%cl":"\$$bits","%$src","%$dst");

};

*::shrd = sub

{ my($dst,$src,$bits)=@_;

    &::emit("shrdl",$bit eq "cl"?"%cl":"\$$bits","%$src","%$dst");

    &::emit("shrdl",$bits eq "cl"?"%cl":"\$$bits","%$src","%$dst");

};



sub ::DWP