Commit 70d01a7f authored by Andy Polyakov's avatar Andy Polyakov
Browse files

perlasm/x86[nm]asm.pl: make OPENSSL_instrument_bus[2] compile.

parent 5f1b10ed

crypto/perlasm/x86masm.pl

+1 −0
Original line number Diff line number Diff line
@@ -31,6 +31,7 @@ sub ::generic 
sub ::call	{ &::emit("call",(&::islabel($_[0]) or "$nmdecor$_[0]")); }

sub ::call_ptr	{ &::emit("call",@_);	}

sub ::jmp_ptr	{ &::emit("jmp",@_);	}

sub ::lock	{ &::data_byte(0xf0);	}



sub get_mem

{ my($size,$addr,$reg1,$reg2,$idx)=@_;

crypto/perlasm/x86nasm.pl

+2 −0
Original line number Diff line number Diff line
@@ -19,6 +19,8 @@ sub ::generic 
	{   $_[0] = "NEAR $_[0]";   	}

	elsif ($opcode eq "lea" && $#_==1)  # wipe storage qualifier from lea

	{   $_[1] =~ s/^[^\[]*\[/\[/o;	}

	elsif ($opcode eq "clflush" && $#_==0)

	{   $_[0] =~ s/^[^\[]*\[/\[/o;	}

    }

    &::emit($opcode,@_);

  1;