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

x86 perlasm update to accomodate aes-586.pl.

Browse Source
This commit is contained in:
Andy Polyakov
2004-12-23 21:43:25 +00:00
parent 25558bf743
commit d1df5b4339
3 changed files with 32 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
crypto/perlasm/x86ms.pl
View File

@@ -92,7 +92,7 @@ sub get_mem
$reg2=&conv($1); $reg2=&conv($1);
$addr="_$2"; $addr="_$2";
} }
elsif ($addr =~ /^[_a-zA-Z]/) elsif ($addr =~ /^[_a-zA-Z]$/)
{ {
$addr="_$addr"; $addr="_$addr";
} }
@@ -368,6 +368,12 @@ sub main'comment
} }
} }
sub main'public_label
{
$label{$_[0]}="_$_[0]" if (!defined($label{$_[0]}));
push(@out,"PUBLIC\t$label{$_[0]}\n");
}
sub main'label sub main'label
{ {
if (!defined($label{$_[0]})) if (!defined($label{$_[0]}))
@@ -385,10 +391,18 @@ sub main'set_label
$label{$_[0]}="\$${label}${_[0]}"; $label{$_[0]}="\$${label}${_[0]}";
$label++; $label++;
} }
if ($_[1]!=0 && $_[1]>1)
{
main'align($_[1]);
}
if((defined $_[2]) && ($_[2] == 1)) if((defined $_[2]) && ($_[2] == 1))
{ {
push(@out,"$label{$_[0]}::\n"); push(@out,"$label{$_[0]}::\n");
} }
elsif ($label{$_[0]} !~ /^\$/)
{
push(@out,"$label{$_[0]}\tLABEL PTR\n");
}
else else
{ {
push(@out,"$label{$_[0]}:\n"); push(@out,"$label{$_[0]}:\n");

12
crypto/perlasm/x86nasm.pl
View File

@@ -106,7 +106,7 @@ sub get_mem
$reg2=&conv($1); $reg2=&conv($1);
$addr="$under$2"; $addr="$under$2";
} }
elsif ($addr =~ /^[_a-zA-Z]/) elsif ($addr =~ /^[_a-zA-Z]$/)
{ {
$addr="$under$addr"; $addr="$under$addr";
} }
@@ -360,6 +360,12 @@ sub main'comment
} }
} }
sub main'public_label
{
$label{$_[0]}="${under}${_[0]}" if (!defined($label{$_[0]}));
push(@out,"global\t$label{$_[0]}\n");
}
sub main'label sub main'label
{ {
if (!defined($label{$_[0]})) if (!defined($label{$_[0]}))
@@ -377,6 +383,10 @@ sub main'set_label
$label{$_[0]}="\@${label}${_[0]}"; $label{$_[0]}="\@${label}${_[0]}";
$label++; $label++;
} }
if ($_[1]!=0 && $_[1]>1)
{
main'align($_[1]);
}
push(@out,"$label{$_[0]}:\n"); push(@out,"$label{$_[0]}:\n");
} }

6
crypto/perlasm/x86unix.pl
View File

@@ -498,6 +498,12 @@ sub main'comment
} }
} }
sub main'public_label
{
$label{$_[0]}="${under}${_[0]}" if (!defined($label{$_[0]}));
push(@out,".globl\t$label{$_[0]}\n");
}
sub main'label sub main'label
{ {
if (!defined($label{$_[0]})) if (!defined($label{$_[0]}))