crypto/vmx/ppc-xlate.pl

6 my $flavour = shift;
11 my $dotinlocallabels=($flavour=~/linux/)?1:0;
24     SWITCH: for ($flavour) {
42     my $ret = ($flavour =~ /aix/) ? ".csect\t.text[PR],7" : ".text";
43     $ret = ".abiversion	2\n".$ret	if ($flavour =~ /linux.*64le/);
49     if ($flavour =~ /osx/)
51 	$arch = ($flavour=~/64/) ? "ppc970-64" : "ppc970" if ($arch eq "any");
56     if ($flavour =~ /linux/)
59 	my $ret  = ".size	$name,.-".($flavour=~/64$/?".":"").$name;
60 	$ret .= "\n.size	.$name,.-.$name" if ($flavour=~/64$/);
87 	{  push(@ret,$flavour=~/le$/o?".long\t$lo,$hi":".long\t$hi,$lo");  }
101     ($flavour =~ /linux.*32/) ?
109 } if ($flavour!~/linux/);
113     ($flavour =~ /linux/) ?		# GNU as doesn't allow most recent hints
120     ($flavour =~ /linux/) ?		# GNU as doesn't allow most recent hints
127     ($flavour =~ /linux/) ?		# GNU as doesn't allow most recent hints
145 my $no_vrsave = ($flavour =~ /linux-ppc64le/);
200 print "#include <asm/ppc_asm.h>\n" if $flavour =~ /linux/;
220 	$line =~ s/\b(c?[rf]|v|vs)([0-9]+)\b/$2/g if ($c ne "." and $flavour !~ /osx/);