Lines Matching refs:line
74 my $line = join(",",@_);
75 if ($line =~ /^"(.*)"$/)
126 while($line=<>) {
128 $line =~ s|[#!;].*$||; # get rid of asm-style comments...
129 $line =~ s|/\*.*\*/||; # ... and C-style comments...
130 $line =~ s|^\s+||; # ... and skip white spaces in beginning...
131 $line =~ s|\s+$||; # ... and at the end
134 $line =~ s|\b\.L(\w+)|L$1|g; # common denominator for Locallabel
135 $line =~ s|\bL(\w+)|\.L$1|g if ($dotinlocallabels);
139 $line =~ s|(^[\.\w]+)\:\s*||;
145 $line =~ s|^\s*(\.?)(\w+)([\.\+\-]?)\s*||;
150 $line =~ s|\bc?[rf]([0-9]+)\b|$1|g if ($c ne "." and $flavour !~ /osx/);
151 if (ref($opcode) eq 'CODE') { $line = &$opcode($f,split(',',$line)); }
152 elsif ($mnemonic) { $line = $c.$mnemonic.$f."\t".$line; }
155 print $line if ($line);
