Add ARMv8 assembly pack.

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

diff --git a/crypto/perlasm/arm-xlate.pl b/crypto/perlasm/arm-xlate.pl
new file mode 100644 (file)
index 0000000..22dc7e4
--- /dev/null
+++ b/crypto/perlasm/arm-xlate.pl
@@ -0,0 +1,165 @@
+#!/usr/bin/env perl
+
+# ARM assembler distiller by <appro>.
+
+my $flavour = shift;
+my $output = shift;
+open STDOUT,">$output" || die "can't open $output: $!";
+
+$flavour = "linux32" if (!$flavour or $flavour eq "void");
+
+my %GLOBALS;
+my $dotinlocallabels=($flavour=~/linux/)?1:0;
+
+################################################################
+# directives which need special treatment on different platforms
+################################################################
+my $arch = sub {
+    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 $ret;
+
+    SWITCH: for ($flavour) {
+       /ios/           && do { $name = "_$name";
+                               last;
+                             };
+    }
+
+    $ret = ".globl     $name" if (!$ret);
+    $$global = $name;
+    $ret;
+};
+my $global = $globl;
+my $extern = sub {
+    &$globl(@_);
+    return;    # return nothing
+};
+my $type = sub {
+    if ($flavour =~ /linux/)   { ".type\t".join(',',@_); }
+    else                       { ""; }
+};
+my $size = sub {
+    if ($flavour =~ /linux/)   { ".size\t".join(',',@_); }
+    else                       { ""; }
+};
+my $inst = sub {
+    if ($flavour =~ /linux/)    { ".inst\t".join(',',@_); }
+    else                        { ".long\t".join(',',@_); }
+};
+my $asciz = sub {
+    my $line = join(",",@_);
+    if ($line =~ /^"(.*)"$/)
+    {  ".byte  " . join(",",unpack("C*",$1),0) . "\n.align     2";     }
+    else
+    {  "";     }
+};
+
+sub range {
+  my ($r,$sfx,$start,$end) = @_;
+
+    join(",",map("$r$_$sfx",($start..$end)));
+}
+
+sub expand_line {
+  my $line = shift;
+  my @ret = ();
+
+    pos($line)=0;
+
+    while ($line =~ m/\G[^@\/\{\"]*/g) {
+       if ($line =~ m/\G(@|\/\/|$)/gc) {
+           last;
+       }
+       elsif ($line =~ m/\G\{/gc) {
+           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\"/gc) {
+           $line =~ m/\G[^\"]*\"/g;
+       }
+    }
+
+    $line =~ s/\b(\w+)/$GLOBALS{$1} or $1/ge;
+
+    return $line;
+}
+
+while($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|[\b\.]L(\w{2,})|L$1|g;       # common denominator for Locallabel
+       $line =~ s|\bL(\w{2,})|\.L$1|g  if ($dotinlocallabels);
+    }
+
+    {
+       $line =~ s|(^[\.\w]+)\:\s*||;
+       my $label = $1;
+       if ($label) {
+           printf "%s:",($GLOBALS{$label} or $label);
+       }
+    }
+
+    if ($line !~ m/^[#@]/) {
+       $line =~ s|^\s*(\.?)(\S+)\s*||;
+       my $c = $1; $c = "\t" if ($c eq "");
+       my $mnemonic = $2;
+       my $opcode;
+       if ($mnemonic =~ m/([^\.]+)\.([^\.]+)/) {
+           $opcode = eval("\$$1_$2");
+       } else {
+           $opcode = eval("\$$mnemonic");
+       }
+
+       my $arg=expand_line($line);
+
+       if (ref($opcode) eq 'CODE') {
+               $line = &$opcode($arg);
+       } elsif ($mnemonic)         {
+               $line = $c.$mnemonic;
+               $line.= "\t$arg" if ($arg);
+       }
+    }
+
+    print $line if ($line);
+    print "\n";
+}
+
+close STDOUT;