1 files changed, 10 insertions, 3 deletions

diff --git a/src/lib/libcrypto/perlasm/ppc-xlate.pl b/src/lib/libcrypto/perlasm/ppc-xlate.pl
index 4579671c97..a3edd982b6 100755
--- a/src/lib/libcrypto/perlasm/ppc-xlate.pl
+++ b/src/lib/libcrypto/perlasm/ppc-xlate.pl
@@ -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(",",@_);