generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
Andy Polyakov 2011-04-18 20:18:03 +00:00
parent 5f1b10ed2e
commit 70d01a7f82
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
crypto/perlasm/x86masm.pl
View File

@ -31,6 +31,7 @@ sub ::generic
sub ::call { &::emit("call",(&::islabel($_[0]) or "$nmdecor$_[0]")); } sub ::call { &::emit("call",(&::islabel($_[0]) or "$nmdecor$_[0]")); }
sub ::call_ptr { &::emit("call",@_); } sub ::call_ptr { &::emit("call",@_); }
sub ::jmp_ptr { &::emit("jmp",@_); } sub ::jmp_ptr { &::emit("jmp",@_); }
sub ::lock { &::data_byte(0xf0); }
sub get_mem sub get_mem
{ my($size,$addr,$reg1,$reg2,$idx)=@_; { my($size,$addr,$reg1,$reg2,$idx)=@_;

2
crypto/perlasm/x86nasm.pl
View File

@ -19,6 +19,8 @@ sub ::generic
{ $_[0] = "NEAR $_[0]"; } { $_[0] = "NEAR $_[0]"; }
elsif ($opcode eq "lea" && $#_==1) # wipe storage qualifier from lea elsif ($opcode eq "lea" && $#_==1) # wipe storage qualifier from lea
{ $_[1] =~ s/^[^\[]*\[/\[/o; } { $_[1] =~ s/^[^\[]*\[/\[/o; }
elsif ($opcode eq "clflush" && $#_==0)
{ $_[0] =~ s/^[^\[]*\[/\[/o; }
} }
&::emit($opcode,@_); &::emit($opcode,@_);
1; 1;