perlasm/x86[nm]asm.pl: make OPENSSL_instrument_bus[2] compile.
authorAndy Polyakov <appro@openssl.org>
Mon, 18 Apr 2011 20:18:03 +0000 (20:18 +0000)
committerAndy Polyakov <appro@openssl.org>
Mon, 18 Apr 2011 20:18:03 +0000 (20:18 +0000)
crypto/perlasm/x86masm.pl
crypto/perlasm/x86nasm.pl

index 279ab29..6154b07 100644 (file)
@@ -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)=@_;
index 224feff..23a84ba 100644 (file)
@@ -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;