Commit d1df5b43 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

x86 perlasm update to accomodate aes-586.pl.

parent 25558bf7

crypto/perlasm/x86ms.pl

+15 −1
Original line number Diff line number Diff line
@@ -92,7 +92,7 @@ sub get_mem 
		$reg2=&conv($1);

		$addr="_$2";

		}

	elsif ($addr =~ /^[_a-zA-Z]/)

	elsif ($addr =~ /^[_a-zA-Z]$/)

		{

		$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

	{

	if (!defined($label{$_[0]}))
@@ -385,10 +391,18 @@ sub main'set_label 
		$label{$_[0]}="\$${label}${_[0]}";

		$label++;

		}

	if ($_[1]!=0 && $_[1]>1)

		{

		main'align($_[1]);

		}

	if((defined $_[2]) && ($_[2] == 1))

		{

		push(@out,"$label{$_[0]}::\n");

		}

	elsif ($label{$_[0]} !~ /^\$/)

		{

		push(@out,"$label{$_[0]}\tLABEL PTR\n");

		}

	else

		{

		push(@out,"$label{$_[0]}:\n");

crypto/perlasm/x86nasm.pl

+11 −1
Original line number Diff line number Diff line
@@ -106,7 +106,7 @@ sub get_mem 
		$reg2=&conv($1);

		$addr="$under$2";

		}

	elsif ($addr =~ /^[_a-zA-Z]/)

	elsif ($addr =~ /^[_a-zA-Z]$/)

		{

		$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

	{

	if (!defined($label{$_[0]}))
@@ -377,6 +383,10 @@ sub main'set_label 
		$label{$_[0]}="\@${label}${_[0]}";

		$label++;

		}

	if ($_[1]!=0 && $_[1]>1)

		{

		main'align($_[1]);

		}

	push(@out,"$label{$_[0]}:\n");

	}

crypto/perlasm/x86unix.pl

+6 −0
Original line number Diff line number Diff line
@@ -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

	{

	if (!defined($label{$_[0]}))