Lines Matching refs:line
110 local *line = shift;
113 if ($line =~ /^([a-z][a-z0-9]*)/i) {
116 $line = substr($line,@+[0]); $line =~ s/^\s+//;
185 local *line = shift;
188 if ($line =~ /^\$([^,]+)/) {
191 $line = substr($line,@+[0]); $line =~ s/^\s+//;
214 local *line = shift;
218 if ($line =~ /^(\*?)([^\(,]*)\(([%\w,]+)\)/) {
224 $line = substr($line,@+[0]); $line =~ s/^\s+//;
292 local *line = shift;
296 if ($line =~ /^(\*?)%(\w+)/) {
301 $line = substr($line,@+[0]); $line =~ s/^\s+//;
329 local *line = shift;
332 if ($line =~ /(^[\.\w]+)\:/) {
335 $line = substr($line,@+[0]); $line =~ s/^\s+//;
395 local *line = shift;
398 if ($line =~ /(^[^,]+)/) {
401 $line = substr($line,@+[0]); $line =~ s/^\s+//;
421 local *line = shift;
434 if ($line =~ /^\s*(\.\w+)/) {
438 $line = substr($line,@+[0]); $line =~ s/^\s+//;
441 /\.picmeup/ && do { if ($line =~ /(%r[\w]+)/i) {
443 $line=sprintf "0x%x,0x90000000",$opcode{$1};
448 && do { $globals{$line} = $prefix . $line;
449 $line = $globals{$line} if ($prefix);
452 /\.type/ && do { ($sym,$type,$narg) = split(',',$line);
464 $line =~ s/\@abi\-omnipotent/\@function/;
465 $line =~ s/\@function.*/\@function/;
468 /\.asciz/ && do { if ($line =~ /^"(.*)"$/) {
470 $line = join(",",unpack("C*",$1),0);
475 && do { $line =~ s/([_a-z][_a-z0-9]*)/$globals{$1} or $1/gei;
476 $line =~ s/\.L/$decor/g;
482 $self->{value} = $dir . "\t" . $line;
491 if ($win64 && $line =~ /([^,]+),\@function/);
500 $self->{value} = ".p2align\t" . (log($line)/log(2));
502 $current_segment=$line;
510 $line = "";
541 $line =~ s/([^,]*).*/$1/;
542 $line = ".CRT\$XCU" if ($line eq ".init");
544 $v="section $line";
545 if ($line=~/\.([px])data/) {
548 } elsif ($line=~/\.CRT\$/i) {
553 $v.="$line\tSEGMENT";
554 if ($line=~/\.([px])data/) {
557 } elsif ($line=~/\.CRT\$/i) {
561 $current_segment = $line;
565 /\.extern/ && do { $self->{value} = "EXTERN\t".$line;
571 $self->{value} .= "\t".$line;
585 /\.align/ && do { $self->{value} = "ALIGN\t".$line; last; };
588 my @arr = split(/,\s*/,$line);
604 /\.byte/ && do { my @str=split(/,\s*/,$line);
617 $line = "";
637 while($line=<>) {
639 chomp($line);
641 $line =~ s|[#!].*$||; # get rid of asm-style comments...
642 $line =~ s|/\*.*\*/||; # ... and C-style comments...
643 $line =~ s|^\s+||; # ... and skip white spaces in beginning
650 if ($label=label->re(\$line)) { print $label->out(); }
652 if (directive->re(\$line)) {
654 } elsif ($opcode=opcode->re(\$line)) { ARGUMENT: while (1) {
657 if ($arg=register->re(\$line)) { opcode->size($arg->size()); }
658 elsif ($arg=const->re(\$line)) { }
659 elsif ($arg=ea->re(\$line)) { }
660 elsif ($arg=expr->re(\$line)) { }
665 last ARGUMENT if ($line !~ /^,/);
667 $line =~ s/^,\s*//;
688 print $line,"\n";