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

perlasm/x86*.pl updates.

Browse Source
This commit is contained in:
Andy Polyakov 2008-01-03 16:21:06 +00:00
parent c8ec4a1b0b
commit 3a87756fed
3 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crypto/perlasm/x86gas.pl
View File

@ -160,7 +160,9 @@ sub ::comment
} }
sub ::external_label sub ::external_label
{ push(@out,".extern\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); } { foreach(@_)
{ push(@out,".extern\t".&::LABEL($_,$nmdecor.$_)."\n"); }
}
sub ::public_label sub ::public_label
{ push(@out,".globl\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); } { push(@out,".globl\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); }

10
crypto/perlasm/x86masm.pl
View File

@ -16,6 +16,10 @@ sub ::generic
$arg[0] =~ s/0x([0-9a-f]+)/0$1h/oi if (defined($arg[0])); $arg[0] =~ s/0x([0-9a-f]+)/0$1h/oi if (defined($arg[0]));
$arg[1] =~ s/0x([0-9a-f]+)/0$1h/oi if (defined($arg[1])); $arg[1] =~ s/0x([0-9a-f]+)/0$1h/oi if (defined($arg[1]));
# fix xmm references
$arg[0] =~ s/\b[A-Z]+WORD\s+PTR/XMMWORD PTR/i if ($arg[1]=~/\bxmm[0-7]\b/i);
$arg[1] =~ s/\b[A-Z]+WORD\s+PTR/XMMWORD PTR/i if ($arg[0]=~/\bxmm[0-7]\b/i);
&::emit($opcode,@arg); &::emit($opcode,@arg);
1; 1;
} }
@ -132,7 +136,9 @@ sub ::comment { foreach (@_) { push(@out,"\t; $_\n"); } }
{ my $l=shift; push(@out,$l.($l=~/^\Q${::lbdecor}\E[0-9]{3}/?":\n":"::\n")); }; { my $l=shift; push(@out,$l.($l=~/^\Q${::lbdecor}\E[0-9]{3}/?":\n":"::\n")); };
sub ::external_label sub ::external_label
{ push(@out, "EXTERN\t".&::LABEL($_[0],$nmdecor.$_[0]).":NEAR\n"); } { foreach(@_)
{ push(@out, "EXTERN\t".&::LABEL($_,$nmdecor.$_).":NEAR\n"); }
}
sub ::public_label sub ::public_label
{ push(@out,"PUBLIC\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); } { push(@out,"PUBLIC\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); }
@ -155,7 +161,7 @@ sub ::initseg
{ my $f=$nmdecor.shift; { my $f=$nmdecor.shift;
$initseg.=<<___; $initseg.=<<___;
.CRT\$XCU SEGMENT DWORD PUBLIC DATA .CRT\$XCU SEGMENT DWORD PUBLIC 'DATA'
EXTERN $f:NEAR EXTERN $f:NEAR
DD $f DD $f
.CRT\$XCU ENDS .CRT\$XCU ENDS

4
crypto/perlasm/x86nasm.pl
View File

@ -123,7 +123,9 @@ ___
sub ::comment { foreach (@_) { push(@out,"\t; $_\n"); } } sub ::comment { foreach (@_) { push(@out,"\t; $_\n"); } }
sub ::external_label sub ::external_label
{ push(@out,"${drdecor}extern\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); } { foreach(@_)
{ push(@out,"${drdecor}extern\t".&::LABEL($_,$nmdecor.$_)."\n"); }
}
sub ::public_label sub ::public_label
{ push(@out,"${drdecor}global\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); } { push(@out,"${drdecor}global\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); }