Lines Matching refs:line
99 my $line = join(",",@_);
100 if ($line =~ /^"(.*)"$/)
136 my $line = shift;
139 pos($line)=0;
141 while ($line =~ m/\G[^@\/\{\"]*/g) {
142 if ($line =~ m/\G(@|\/\/|$)/gc) {
145 elsif ($line =~ m/\G\{/gc) {
146 my $saved_pos = pos($line);
147 $line =~ s/\G([rdqv])([0-9]+)([^\-]*)\-\1([0-9]+)\3/range($1,$3,$2,$4)/e;
148 pos($line) = $saved_pos;
149 $line =~ m/\G[^\}]*\}/g;
151 elsif ($line =~ m/\G\"/gc) {
152 $line =~ m/\G[^\"]*\"/g;
156 $line =~ s/\b(\w+)/$GLOBALS{$1} or $1/ge;
159 $line =~ s/#?:lo12:(\w+)/$1\@PAGEOFF/;
164 $line =~ s/#?:lo12:(\.?\w+)/\#:lo12:$1/;
167 return $line;
170 while(my $line=<>) {
172 if ($line =~ m/^\s*(#|@|\/\/)/) { print $line; next; }
174 $line =~ s|/\*.*\*/||; # get rid of C-style comments...
175 $line =~ s|^\s+||; # ... and skip whitespace in beginning...
176 $line =~ s|\s+$||; # ... and at the end
179 $line =~ s|[\b\.]L(\w{2,})|L$1|g; # common denominator for Locallabel
180 $line =~ s|\bL(\w{2,})|\.L$1|g if ($dotinlocallabels);
184 $line =~ s|(^[\.\w]+)\:\s*||;
191 if ($line !~ m/^[#@]/) {
192 $line =~ s|^\s*(\.?)(\S+)\s*||;
202 my $arg=expand_line($line);
205 $line = &$opcode($arg);
207 $line = $c.$mnemonic;
208 $line.= "\t$arg" if ($arg ne "");
212 print $line if ($line);