Home | History | Annotate | Download | only in perlasm

Lines Matching full:join

18     if ($flavour =~ /linux/)	{ ".arch\t".join(',',@_); }
22 if ($flavour =~ /linux/) { ".fpu\t".join(',',@_); }
26 if ($flavour =~ /ios/) { ".private_extern\t".join(',',@_); }
27 else { ".hidden\t".join(',',@_); }
42 } else { $ret = ".comm\t".join(',',@args); }
68 if ($flavour =~ /linux/) { ".type\t".join(',',@_); }
72 if ($flavour =~ /linux/) { ".size\t".join(',',@_); }
76 if ($flavour =~ /linux/) { ".inst\t".join(',',@_); }
77 else { ".long\t".join(',',@_); }
80 my $line = join(",",@_);
82 { ".byte " . join(",",unpack("C*",$1),0) . "\n.align 2"; }
90 join(",",map("$r$_$sfx",($start..$end)));