Lines Matching refs:line
110 my $line = join(",",@_);
111 if ($line =~ /^"(.*)"$/)
130 my $line = shift;
133 pos($line)=0;
135 while ($line =~ m/\G[^@\/\{\"]*/g) {
136 if ($line =~ m/\G(@|\/\/|$)/gc) {
139 elsif ($line =~ m/\G\{/gc) {
140 my $saved_pos = pos($line);
141 $line =~ s/\G([rdqv])([0-9]+)([^\-]*)\-\1([0-9]+)\3/range($1,$3,$2,$4)/e;
142 pos($line) = $saved_pos;
143 $line =~ m/\G[^\}]*\}/g;
145 elsif ($line =~ m/\G\"/gc) {
146 $line =~ m/\G[^\"]*\"/g;
150 $line =~ s/\b(\w+)/$GLOBALS{$1} or $1/ge;
153 $line =~ s/#:lo12:(\w+)/$1\@PAGEOFF/;
156 return $line;
159 while(my $line=<>) {
161 if ($line =~ m/^\s*(#|@|\/\/)/) { print $line; next; }
163 $line =~ s|/\*.*\*/||; # get rid of C-style comments...
164 $line =~ s|^\s+||; # ... and skip whitespace in beginning...
165 $line =~ s|\s+$||; # ... and at the end
168 $line =~ s|[\b\.]L(\w{2,})|L$1|g; # common denominator for Locallabel
169 $line =~ s|\bL(\w{2,})|\.L$1|g if ($dotinlocallabels);
173 if ($line =~ s|(^[\.\w]+)\:\s*||) {
179 if ($line !~ m/^[#@]/) {
180 $line =~ s|^\s*(\.?)(\S+)\s*||;
190 my $arg=expand_line($line);
193 $line = &$opcode($arg);
195 $line = $c.$mnemonic;
196 $line.= "\t$arg" if ($arg ne "");
202 if ($line =~ /^\s*ldr\s+([qd]\d\d?)\s*,\s*=(\w+)/i) {
207 …die("$line: immediate load via literal pool into $reg: value too large for clang - redo manually")…
210 print $line if ($line);
