perlasm/ppc-xlate.pl: recognize .type directive.
authorAndy Polyakov <appro@openssl.org>
Sun, 14 Aug 2016 15:31:18 +0000 (17:31 +0200)
committerAndy Polyakov <appro@openssl.org>
Mon, 29 Aug 2016 21:12:28 +0000 (23:12 +0200)
Reviewed-by: Rich Salz <rsalz@openssl.org>
crypto/perlasm/ppc-xlate.pl

index 2d46e24..55b02bc 100755 (executable)
@@ -11,40 +11,65 @@ my $output = shift;
 open STDOUT,">$output" || die "can't open $output: $!";
 
 my %GLOBALS;
+my %TYPES;
 my $dotinlocallabels=($flavour=~/linux/)?1:0;
 
 ################################################################
 # directives which need special treatment on different platforms
 ################################################################
+my $type = sub {
+    my ($dir,$name,$type) = @_;
+
+    $TYPES{$name} = $type;
+    if ($flavour =~ /linux/) {
+       $name =~ s|^\.||;
+       ".type  $name,$type";
+    } else {
+       "";
+    }
+};
 my $globl = sub {
     my $junk = shift;
     my $name = shift;
     my $global = \$GLOBALS{$name};
+    my $type = \$TYPES{$name};
     my $ret;
 
-    $name =~ s|^[\.\_]||;
+    $name =~ s|^\.||;
  
     SWITCH: for ($flavour) {
-       /aix/           && do { $name = ".$name";
+       /aix/           && do { if (!$$type) {
+                                   $$type = "\@function";
+                               }
+                               if ($$type =~ /function/) {
+                                   $name = ".$name";
+                               }
                                last;
                              };
        /osx/           && do { $name = "_$name";
                                last;
                              };
        /linux.*(32|64le)/
-                       && do { $ret .= ".globl $name\n";
-                               $ret .= ".type  $name,\@function";
+                       && do { $ret .= ".globl $name";
+                               if (!$$type) {
+                                   $ret .= "\n.type    $name,\@function";
+                                   $$type = "\@function";
+                               }
                                last;
                              };
-       /linux.*64/     && do { $ret .= ".globl $name\n";
-                               $ret .= ".type  $name,\@function\n";
-                               $ret .= ".section       \".opd\",\"aw\"\n";
-                               $ret .= ".align 3\n";
-                               $ret .= "$name:\n";
-                               $ret .= ".quad  .$name,.TOC.\@tocbase,0\n";
-                               $ret .= ".previous\n";
-
-                               $name = ".$name";
+       /linux.*64/     && do { $ret .= ".globl $name";
+                               if (!$$type) {
+                                   $ret .= "\n.type    $name,\@function";
+                                   $$type = "\@function";
+                               }
+                               if ($$type =~ /function/) {
+                                   $ret .= "\n.section \".opd\",\"aw\"";
+                                   $ret .= "\n.align   3";
+                                   $ret .= "\n$name:";
+                                   $ret .= "\n.quad    .$name,.TOC.\@tocbase,0";
+                                   $ret .= "\n.previous";
+                                   $name = ".$name";
+                               }
                                last;
                              };
     }
@@ -70,9 +95,13 @@ my $machine = sub {
 my $size = sub {
     if ($flavour =~ /linux/)
     {  shift;
-       my $name = shift; $name =~ s|^[\.\_]||;
-       my $ret  = ".size       $name,.-".($flavour=~/64$/?".":"").$name;
-       $ret .= "\n.size        .$name,.-.$name" if ($flavour=~/64$/);
+       my $name = shift;
+       my $real = $GLOBALS{$name} ? \$GLOBALS{$name} : \$name;
+       my $ret  = ".size       $$real,.-$$real";
+       $name =~ s|^\.||;
+       if ($$real ne $name) {
+           $ret .= "\n.size    $name,.-$$real";
+       }
        $ret;
     }
     else
@@ -234,7 +263,7 @@ while($line=<>) {
     $line =~ s|\s+$||;         # ... and at the end
 
     {
-       $line =~ s|\b\.L(\w+)|L$1|g;    # common denominator for Locallabel
+       $line =~ s|\.L(\w+)|L$1|g;      # common denominator for Locallabel
        $line =~ s|\bL(\w+)|\.L$1|g     if ($dotinlocallabels);
     }
 
@@ -242,8 +271,13 @@ while($line=<>) {
        $line =~ s|(^[\.\w]+)\:\s*||;
        my $label = $1;
        if ($label) {
-           printf "%s:",($GLOBALS{$label} or $label);
-           printf "\n.localentry\t$GLOBALS{$label},0"  if ($GLOBALS{$label} && $flavour =~ /linux.*64le/);
+           my $xlated = ($GLOBALS{$label} or $label);
+           print "$xlated:";
+           if ($flavour =~ /linux.*64le/) {
+               if ($TYPES{$label} =~ /function/) {
+                   printf "\n.localentry       %s,0\n",$xlated;
+               }
+           }
        }
     }