crypto/vmx/ppc-xlate.pl

2 # SPDX-License-Identifier: GPL-2.0
12 my $elfv2abi=(($flavour =~ /linux-ppc64le/) or ($flavour =~ /linux-ppc64-elfv2/))?1:0;
18 my $globl = sub {
43 my $text = sub {
48 my $machine = sub {
53 	$arch = ($flavour=~/64/) ? "ppc970-64" : "ppc970" if ($arch eq "any");
57 my $size = sub {
61 	my $ret  = ".size	$name,.-".($dotfunctions?".":"").$name;
62 	$ret .= "\n.size	.$name,.-.$name" if ($dotfunctions);
68 my $asciz = sub {
76 my $quad = sub {
81 	if (/^0x([0-9a-f]*?)([0-9a-f]{1,8})$/io)
83 	elsif (/^([0-9]+)$/o)
84 	{  $hi=$1>>32; $lo=$1&0xffffffff;  } # error-prone with 32-bit perl
99 my $cmplw = sub {
102     # Some out-of-date 32-bit GNU assembler just can't handle cmplw...
107 my $bdnz = sub {
109     my $bo = $f=~/[\+\-]/ ? 16+9 : 16;	# optional "to be taken" hint
112 my $bltlr = sub {
114     my $bo = $f=~/\-/ ? 12+2 : 12;	# optional "not to be taken" hint
119 my $bnelr = sub {
121     my $bo = $f=~/\-/ ? 4+2 : 4;	# optional "not to be taken" hint
126 my $beqlr = sub {
128     my $bo = $f=~/-/ ? 12+2 : 12;	# optional "not to be taken" hint
135 my $extrdi = sub {
137     $b = ($b+$n)&63; $n = 64-$n;
140 my $vmr = sub {
145 # Some ABIs specify vrsave, special-purpose register #256, as reserved
148 my $mtspr = sub {
156 my $mfspr = sub {
159 	"	li	$rd,-1";
166 sub vsxmem_op {
170 # made-up unaligned memory reference AltiVec/VMX instructions
171 my $lvx_u	= sub {	vsxmem_op(@_, 844); };	# lxvd2x
172 my $stvx_u	= sub {	vsxmem_op(@_, 972); };	# stxvd2x
173 my $lvdx_u	= sub {	vsxmem_op(@_, 588); };	# lxsdx
174 my $stvdx_u	= sub {	vsxmem_op(@_, 716); };	# stxsdx
175 my $lvx_4w	= sub { vsxmem_op(@_, 780); };	# lxvw4x
176 my $stvx_4w	= sub { vsxmem_op(@_, 908); };	# stxvw4x
179 sub vcrypto_op {
183 my $vcipher	= sub { vcrypto_op(@_, 1288); };
184 my $vcipherlast	= sub { vcrypto_op(@_, 1289); };
185 my $vncipher	= sub { vcrypto_op(@_, 1352); };
186 my $vncipherlast= sub { vcrypto_op(@_, 1353); };
187 my $vsbox	= sub { vcrypto_op(@_, 0, 1480); };
188 my $vshasigmad	= sub { my ($st,$six)=splice(@_,-2); vcrypto_op(@_, $st<<4|$six, 1730); };
189 my $vshasigmaw	= sub { my ($st,$six)=splice(@_,-2); vcrypto_op(@_, $st<<4|$six, 1666); };
190 my $vpmsumb	= sub { vcrypto_op(@_, 1032); };
191 my $vpmsumd	= sub { vcrypto_op(@_, 1224); };
192 my $vpmsubh	= sub { vcrypto_op(@_, 1096); };
193 my $vpmsumw	= sub { vcrypto_op(@_, 1160); };
194 my $vaddudm	= sub { vcrypto_op(@_, 192);  };
195 my $vadduqm	= sub { vcrypto_op(@_, 256);  };
197 my $mtsle	= sub {
206     $line =~ s|[#!;].*$||;	# get rid of asm-style comments...
207     $line =~ s|/\*.*\*/||;	# ... and C-style comments...
208     $line =~ s|^\s+||;		# ... and skip white spaces in beginning...
217 	$line =~ s|^\s*(\.?)(\w+)([\.\+\-]?)\s*||;
222 	$line =~ s/\b(c?[rf]|v|vs)([0-9]+)\b/$2/g if ($c ne "." and $flavour !~ /osx/);