Home | History | Annotate | Download | only in perlasm

Lines Matching refs:flavour

5 my $flavour = shift;
10 my $dotinlocallabels=($flavour=~/linux/)?1:0;
23 SWITCH: for ($flavour) {
53 ($flavour =~ /aix/) ? ".csect" : ".text";
58 if ($flavour =~ /osx/)
60 $arch = ($flavour=~/64/) ? "ppc970-64" : "ppc970" if ($arch eq "any");
65 if ($flavour =~ /linux.*32/)
88 ($flavour =~ /linux.*32/) ?
96 } if ($flavour!~/linux/);
100 ($flavour =~ /linux/) ? # GNU as doesn't allow most recent hints
107 ($flavour =~ /linux/) ? # GNU as doesn't allow most recent hints
114 ($flavour =~ /linux/) ? # GNU as doesn't allow most recent hints
150 $line =~ s|\bc?[rf]([0-9]+)\b|$1|g if ($c ne "." and $flavour !~ /osx/);