Lines Matching refs:line
119 my $line = join(",",@_);
120 if ($line =~ /^"(.*)"$/)
156 my $line = shift;
159 pos($line)=0;
161 while ($line =~ m/\G[^@\/\{\"]*/g) {
162 if ($line =~ m/\G(@|\/\/|$)/gc) {
165 elsif ($line =~ m/\G\{/gc) {
166 my $saved_pos = pos($line);
167 $line =~ s/\G([rdqv])([0-9]+)([^\-]*)\-\1([0-9]+)\3/range($1,$3,$2,$4)/e;
168 pos($line) = $saved_pos;
169 $line =~ m/\G[^\}]*\}/g;
171 elsif ($line =~ m/\G\"/gc) {
172 $line =~ m/\G[^\"]*\"/g;
176 $line =~ s/\b(\w+)/$GLOBALS{$1} or $1/ge;
179 $line =~ s/#?:lo12:(\w+)/$1\@PAGEOFF/;
184 $line =~ s/#?:lo12:(\.?\w+)/\#:lo12:$1/;
187 return $line;
190 while(my $line=<>) {
192 if ($line =~ m/^\s*(#|@|\/\/)/) { print $line; next; }
194 $line =~ s|/\*.*\*/||; # get rid of C-style comments...
195 $line =~ s|^\s+||; # ... and skip whitespace in beginning...
196 $line =~ s|\s+$||; # ... and at the end
199 $line =~ s|[\b\.]L(\w{2,})|L$1|g; # common denominator for Locallabel
200 $line =~ s|\bL(\w{2,})|\.L$1|g if ($dotinlocallabels);
204 if ($line =~ s|(^[\.\w]+)\:\s*||) {
210 if ($line !~ m/^[#@]/) {
211 $line =~ s|^\s*(\.?)(\S+)\s*||;
221 my $arg=expand_line($line);
224 $line = &$opcode($arg);
226 $line = $c.$mnemonic;
227 $line.= "\t$arg" if ($arg ne "");
233 if ($line =~ /^\s*ldr\s+([qd]\d\d?)\s*,\s*=(\w+)/i) {
238 …die("$line: immediate load via literal pool into $reg: value too large for clang - redo manually")…
241 print $line if ($line);
