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

ppc-xlate.pl: get linux64 declaration right.

parent 9c437e2f

crypto/perlasm/ppc-xlate.pl

+10 −3
Original line number Diff line number Diff line
@@ -31,10 +31,9 @@ my $globl = sub { 
				$ret .= ".type	$name,\@function";

				last;

			      };

	/linux.*64/	&& do {	$ret .= ".globl	.$name\n";

				$ret .= ".type	.$name,\@function\n";

	/linux.*64/	&& do {	$ret .= ".globl	$name\n";

				$ret .= ".type	$name,\@function\n";

				$ret .= ".section	\".opd\",\"aw\"\n";

				$ret .= ".globl	$name\n";

				$ret .= ".align	3\n";

				$ret .= "$name:\n";

				$ret .= ".quad	.$name,.TOC.\@tocbase,0\n";
@@ -62,6 +61,14 @@ my $machine = sub { 
    }

    ".machine	$arch";

};

my $size = sub {

    if ($flavour =~ /linux.*32/)

    {	shift;

	".size	" . join(",",@_);

    }

    else

    {	"";	}

};

my $asciz = sub {

    shift;

    my $line = join(",",@_);