Home | History | Annotate | Download | only in perlasm

Lines Matching full:flavour

62 my $flavour = shift;
64 if ($flavour =~ /\./) { $output = $flavour; undef $flavour; }
82 if ($flavour eq "mingw64") { $gas=1; $elf=0; $win64=1;
86 elsif ($flavour eq "macosx") { $gas=1; $elf=0; $prefix="_"; $decor="L\$"; }
87 elsif ($flavour eq "masm") { $gas=0; $elf=0; $masm=$masmref; $win64=1; $decor="\$L\$"; }
88 elsif ($flavour eq "nasm") { $gas=0; $elf=0; $nasm=$nasmref; $win64=1; $decor="\$L\$"; $PTR=""; }
258 $self->{label} =~ s/^___imp_/__imp__/ if ($flavour eq "mingw64");
509 if ($flavour eq "macosx") { $self->{value} = ".mod_init_func"; }
510 elsif ($flavour eq "mingw64") { $self->{value} = ".section\t.ctors"; }
515 if ($flavour eq "macosx") { $self->{value} = ".private_extern\t$prefix$line"; }
516 elsif ($flavour eq "mingw64") { $self->{value} = ""; }
519 $self->{value} =~ s|,([0-9]+),([0-9]+)$|",$1,".log($2)/log(2)|e if ($flavour eq "macosx");