Configure: disable new trace api by default

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

diff --git a/crypto/perlasm/ppc-xlate.pl b/crypto/perlasm/ppc-xlate.pl
index de796d73f75c0355ff9c89a7b030b3ecc0a4dc22..e52f2f6ea626cebad704bbc7a636a320001be705 100755 (executable)
--- a/crypto/perlasm/ppc-xlate.pl
+++ b/crypto/perlasm/ppc-xlate.pl
@@ -1,7 +1,7 @@
 #! /usr/bin/env perl
-# Copyright 2006-2016 The OpenSSL Project Authors. All Rights Reserved.
+# Copyright 2006-2018 The OpenSSL Project Authors. All Rights Reserved.
 #
-# Licensed under the OpenSSL license (the "License").  You may not use
+# 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
@@ -216,12 +216,23 @@ my $lvdx_u        = sub { vsxmem_op(@_, 588); };  # lxsdx
 my $stvdx_u    = sub { vsxmem_op(@_, 716); };  # stxsdx
 my $lvx_4w     = sub { vsxmem_op(@_, 780); };  # lxvw4x
 my $stvx_4w    = sub { vsxmem_op(@_, 908); };  # stxvw4x
+my $lvx_splt   = sub { vsxmem_op(@_, 332); };  # lxvdsx
+# VSX instruction[s] masqueraded as made-up AltiVec/VMX
+my $vpermdi    = sub {                         # xxpermdi
+    my ($f, $vrt, $vra, $vrb, $dm) = @_;
+    $dm = oct($dm) if ($dm =~ /^0/);
+    "  .long   ".sprintf "0x%X",(60<<26)|($vrt<<21)|($vra<<16)|($vrb<<11)|($dm<<8)|(10<<3)|7;
+};
 
 # PowerISA 2.07 stuff
 sub vcrypto_op {
     my ($f, $vrt, $vra, $vrb, $op) = @_;
     "  .long   ".sprintf "0x%X",(4<<26)|($vrt<<21)|($vra<<16)|($vrb<<11)|$op;
 }
+sub vfour {
+    my ($f, $vrt, $vra, $vrb, $vrc, $op) = @_;
+    "  .long   ".sprintf "0x%X",(4<<26)|($vrt<<21)|($vra<<16)|($vrb<<11)|($vrc<<6)|$op;
+};
 my $vcipher    = sub { vcrypto_op(@_, 1288); };
 my $vcipherlast        = sub { vcrypto_op(@_, 1289); };
 my $vncipher   = sub { vcrypto_op(@_, 1352); };
@@ -233,27 +244,63 @@ my $vpmsumb       = sub { vcrypto_op(@_, 1032); };
 my $vpmsumd    = sub { vcrypto_op(@_, 1224); };
 my $vpmsubh    = sub { vcrypto_op(@_, 1096); };
 my $vpmsumw    = sub { vcrypto_op(@_, 1160); };
+# These are not really crypto, but vcrypto_op template works
 my $vaddudm    = sub { vcrypto_op(@_, 192);  };
+my $vadduqm    = sub { vcrypto_op(@_, 256);  };
+my $vmuleuw    = sub { vcrypto_op(@_, 648);  };
+my $vmulouw    = sub { vcrypto_op(@_, 136);  };
+my $vrld       = sub { vcrypto_op(@_, 196);  };
+my $vsld       = sub { vcrypto_op(@_, 1476); };
+my $vsrd       = sub { vcrypto_op(@_, 1732); };
+my $vsubudm    = sub { vcrypto_op(@_, 1216); };
+my $vaddcuq    = sub { vcrypto_op(@_, 320);  };
+my $vaddeuqm   = sub { vfour(@_,60); };
+my $vaddecuq   = sub { vfour(@_,61); };
+my $vmrgew     = sub { vfour(@_,0,1932); };
+my $vmrgow     = sub { vfour(@_,0,1676); };
 
 my $mtsle      = sub {
     my ($f, $arg) = @_;
     "  .long   ".sprintf "0x%X",(31<<26)|($arg<<21)|(147*2);
 };
 
-# PowerISA 3.0 stuff
-my $maddhdu = sub {
-    my ($f, $rt, $ra, $rb, $rc) = @_;
-    "  .long   ".sprintf "0x%X",(4<<26)|($rt<<21)|($ra<<16)|($rb<<11)|($rc<<6)|49;
+# VSX instructions masqueraded as AltiVec/VMX
+my $mtvrd      = sub {
+    my ($f, $vrt, $ra) = @_;
+    "  .long   ".sprintf "0x%X",(31<<26)|($vrt<<21)|($ra<<16)|(179<<1)|1;
 };
-my $maddld = sub {
-    my ($f, $rt, $ra, $rb, $rc) = @_;
-    "  .long   ".sprintf "0x%X",(4<<26)|($rt<<21)|($ra<<16)|($rb<<11)|($rc<<6)|51;
+my $mtvrwz     = sub {
+    my ($f, $vrt, $ra) = @_;
+    "  .long   ".sprintf "0x%X",(31<<26)|($vrt<<21)|($ra<<16)|(243<<1)|1;
 };
+my $lvwzx_u    = sub { vsxmem_op(@_, 12); };   # lxsiwzx
+my $stvwx_u    = sub { vsxmem_op(@_, 140); };  # stxsiwx
 
+# PowerISA 3.0 stuff
+my $maddhdu    = sub { vfour(@_,49); };
+my $maddld     = sub { vfour(@_,51); };
 my $darn = sub {
     my ($f, $rt, $l) = @_;
     "  .long   ".sprintf "0x%X",(31<<26)|($rt<<21)|($l<<16)|(755<<1);
 };
+my $iseleq = sub {
+    my ($f, $rt, $ra, $rb) = @_;
+    "  .long   ".sprintf "0x%X",(31<<26)|($rt<<21)|($ra<<16)|($rb<<11)|(2<<6)|30;
+};
+# VSX instruction[s] masqueraded as made-up AltiVec/VMX
+my $vspltib    = sub {                         # xxspltib
+    my ($f, $vrt, $imm8) = @_;
+    $imm8 = oct($imm8) if ($imm8 =~ /^0/);
+    $imm8 &= 0xff;
+    "  .long   ".sprintf "0x%X",(60<<26)|($vrt<<21)|($imm8<<11)|(360<<1)|1;
+};
+
+# PowerISA 3.0B stuff
+my $addex = sub {
+    my ($f, $rt, $ra, $rb, $cy) = @_;  # only cy==0 is specified in 3.0B
+    "  .long   ".sprintf "0x%X",(31<<26)|($rt<<21)|($ra<<16)|($rb<<11)|($cy<<9)|(170<<1);
+};
+my $vmsumudm   = sub { vfour(@_,35); };
 
 while($line=<>) {
 
@@ -288,7 +335,7 @@ while($line=<>) {
        my $f = $3;
        my $opcode = eval("\$$mnemonic");
        $line =~ s/\b(c?[rf]|v|vs)([0-9]+)\b/$2/g if ($c ne "." and $flavour !~ /osx/);
-       if (ref($opcode) eq 'CODE') { $line = &$opcode($f,split(',',$line)); }
+       if (ref($opcode) eq 'CODE') { $line = &$opcode($f,split(/,\s*/,$line)); }
        elsif ($mnemonic)           { $line = $c.$mnemonic.$f."\t".$line; }
     }