Following the license change, modify the boilerplates in crypto/perlasm/

[openssl.git] / crypto / perlasm / arm-xlate.pl

diff --git a/crypto/perlasm/arm-xlate.pl b/crypto/perlasm/arm-xlate.pl
index fd185e9c1f366ae9b00e2d27f8a4861f7a21e25a..d78a8baac1282710e65d0c8dfd15726c1a5577c9 100755 (executable)
--- a/crypto/perlasm/arm-xlate.pl
+++ b/crypto/perlasm/arm-xlate.pl
@@ -1,6 +1,12 @@
-#!/usr/bin/env perl
+#! /usr/bin/env perl
+# Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the Apache License 2.0 (the "License").  You may not use
+# this file except in compliance with the License.  You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html

 
 

-# ARM assembler distiller by <appro>.
+use strict;

 
 my $flavour = shift;
 my $output = shift;
 
 my $flavour = shift;
 my $output = shift;


@@ -18,6 +24,32 @@ my $arch = sub {
     if ($flavour =~ /linux/)   { ".arch\t".join(',',@_); }
     else                       { ""; }
 };
     if ($flavour =~ /linux/)   { ".arch\t".join(',',@_); }
     else                       { ""; }
 };

+my $fpu = sub {
+    if ($flavour =~ /linux/)   { ".fpu\t".join(',',@_); }
+    else                       { ""; }
+};
+my $hidden = sub {
+    if ($flavour =~ /ios/)     { ".private_extern\t".join(',',@_); }
+    else                       { ".hidden\t".join(',',@_); }
+};
+my $comm = sub {
+    my @args = split(/,\s*/,shift);
+    my $name = @args[0];
+    my $global = \$GLOBALS{$name};
+    my $ret;
+
+    if ($flavour =~ /ios32/)   {
+       $ret = ".comm\t_$name,@args[1]\n";
+       $ret .= ".non_lazy_symbol_pointer\n";
+       $ret .= "$name:\n";
+       $ret .= ".indirect_symbol\t_$name\n";
+       $ret .= ".long\t0";
+       $name = "_$name";
+    } else                     { $ret = ".comm\t".join(',',@args); }
+
+    $$global = $name;
+    $ret;
+};

 my $globl = sub {
     my $name = shift;
     my $global = \$GLOBALS{$name};
 my $globl = sub {
     my $name = shift;
     my $global = \$GLOBALS{$name};


@@ -40,6 +72,12 @@ my $extern = sub {
 };
 my $type = sub {
     if ($flavour =~ /linux/)   { ".type\t".join(',',@_); }
 };
 my $type = sub {
     if ($flavour =~ /linux/)   { ".type\t".join(',',@_); }

+    elsif ($flavour =~ /ios32/)        { if (join(',',@_) =~ /(\w+),%function/) {
+                                       "#ifdef __thumb2__\n".
+                                       ".thumb_func    $1\n".
+                                       "#endif";
+                                 }
+                               }

     else                       { ""; }
 };
 my $size = sub {
     else                       { ""; }
 };
 my $size = sub {


@@ -64,44 +102,43 @@ sub range {
     join(",",map("$r$_$sfx",($start..$end)));
 }
 
     join(",",map("$r$_$sfx",($start..$end)));
 }
 

-sub parse_args {
+sub expand_line {

   my $line = shift;
   my @ret = ();
 
     pos($line)=0;
 
   my $line = shift;
   my @ret = ();
 
     pos($line)=0;
 

-    while (1) {
-       if ($line =~ m/\G\[/gc) {
-           $line =~ m/\G([^\]]+\][^,]*)\s*/g;
-           push @ret,"[$1";
+    while ($line =~ m/\G[^@\/\{\"]*/g) {
+       if ($line =~ m/\G(@|\/\/|$)/gc) {
+           last;

        }
        elsif ($line =~ m/\G\{/gc) {
        }
        elsif ($line =~ m/\G\{/gc) {

-           $line =~ m/\G([^\}]+\}[^,]*)\s*/g;
-           my $arg = $1;
-           $arg =~ s/([rdqv])([0-9]+)([^\-]*)\-\1([0-9]+)\3/range($1,$3,$2,$4)/ge;
-           push @ret,"{$arg";
+           my $saved_pos = pos($line);
+           $line =~ s/\G([rdqv])([0-9]+)([^\-]*)\-\1([0-9]+)\3/range($1,$3,$2,$4)/e;
+           pos($line) = $saved_pos;
+           $line =~ m/\G[^\}]*\}/g;

        }
        }

-       elsif ($line =~ m/\G([^,]+)\s*/g) {
-           push @ret,$1;
+       elsif ($line =~ m/\G\"/gc) {
+           $line =~ m/\G[^\"]*\"/g;

        }
        }

-
-       last if ($line =~ m/\G$/gc);
-
-       $line =~ m/\G,\s*/g;

     }
 
     }
 

-    map {my $s=$_;$s=~s/\b(\w+)/$GLOBALS{$1} or $1/ge;$s} @ret;
+    $line =~ s/\b(\w+)/$GLOBALS{$1} or $1/ge;
+
+    return $line;

 }
 
 }
 

-while($line=<>) {
+while(my $line=<>) {
+
+    if ($line =~ m/^\s*(#|@|\/\/)/)    { print $line; next; }

 
     $line =~ s|/\*.*\*/||;     # get rid of C-style comments...
     $line =~ s|^\s+||;         # ... and skip white spaces in beginning...
     $line =~ s|\s+$||;         # ... and at the end
 
     {
 
     $line =~ s|/\*.*\*/||;     # get rid of C-style comments...
     $line =~ s|^\s+||;         # ... and skip white spaces in beginning...
     $line =~ s|\s+$||;         # ... and at the end
 
     {

-       $line =~ s|[\b\.]L(\w+)|L$1|g;  # common denominator for Locallabel
-       $line =~ s|\bL(\w+)|\.L$1|g     if ($dotinlocallabels);
+       $line =~ s|[\b\.]L(\w{2,})|L$1|g;       # common denominator for Locallabel
+       $line =~ s|\bL(\w{2,})|\.L$1|g  if ($dotinlocallabels);

     }
 
     {
     }
 
     {


@@ -112,24 +149,24 @@ while($line=<>) {
        }
     }
 
        }
     }
 

-    if ($line !~ m/^#/o) {
-       $line =~ s|^\s*(\.?)(\S+)\s*||o;
+    if ($line !~ m/^[#@]/) {
+       $line =~ s|^\s*(\.?)(\S+)\s*||;

        my $c = $1; $c = "\t" if ($c eq "");
        my $mnemonic = $2;
        my $opcode;
        my $c = $1; $c = "\t" if ($c eq "");
        my $mnemonic = $2;
        my $opcode;

-       if ($mnemonic =~ m/([^\.]+)\.([^\.]+)/o) {
+       if ($mnemonic =~ m/([^\.]+)\.([^\.]+)/) {

            $opcode = eval("\$$1_$2");
        } else {
            $opcode = eval("\$$mnemonic");
        }
 
            $opcode = eval("\$$1_$2");
        } else {
            $opcode = eval("\$$mnemonic");
        }
 

-       my @args=parse_args($line);
+       my $arg=expand_line($line);

 
        if (ref($opcode) eq 'CODE') {
 
        if (ref($opcode) eq 'CODE') {

-               $line = &$opcode(@args);
+               $line = &$opcode($arg);

        } elsif ($mnemonic)         {
                $line = $c.$mnemonic;
        } elsif ($mnemonic)         {
                $line = $c.$mnemonic;

-               $line.= "\t".join(',',@args) if ($#args>=0);
+               $line.= "\t$arg" if ($arg ne "");

        }
     }
 
        }
     }