Lines Matching refs:line
159 my ($class, $line) = @_;
163 if ($$line =~ /^([a-z][a-z0-9]*)/i) {
167 $$line = substr($$line,@+[0]); $$line =~ s/^\s+//;
179 } elsif ($self->{op} =~ /mov[dq]/ && $$line =~ /%xmm/) {
237 my ($class, $line) = @_;
241 if ($$line =~ /^\$([^,]+)/) {
245 $$line = substr($$line,@+[0]); $$line =~ s/^\s+//;
284 if ($$line =~ /^(\*?)([^\(,]*)\(([%\w,]+)\)((?:{[^}]+})*)/) {
292 $$line = substr($$line,@+[0]); $$line =~ s/^\s+//;
383 my ($class, $line, $opcode) = @_;
388 if ($$line =~ /^(\*?)%(\w+)((?:{[^}]+})*)/) {
395 $$line = substr($$line,@+[0]); $$line =~ s/^\s+//;
425 my ($class, $line) = @_;
429 if ($$line =~ /(^[\.\w]+)\:/) {
433 $$line = substr($$line,@+[0]); $$line =~ s/^\s+//;
492 my ($class, $line, $opcode) = @_;
496 if ($$line =~ /(^[^,]+)/) {
500 $$line = substr($$line,@+[0]); $$line =~ s/^\s+//;
658 my $line = shift;
661 foreach my $token (split(/,\s*/,$line)) {
685 my ($class, $line) = @_;
689 if ($$line =~ s/^\s*\.cfi_(\w+)\s*//) {
709 && do { $cfa_reg = $$line; last; };
711 && do { $cfa_rsp = -1*eval($$line) if ($cfa_reg eq "%rsp");
715 && do { $cfa_rsp -= 1*eval($$line) if ($cfa_reg eq "%rsp");
718 /def_cfa/ && do { if ($$line =~ /(%r\w+)\s*,\s*(.+)/) {
729 $self->{value} .= ".cfi_offset\t$$line,$cfa_rsp";
737 $self->{value} .= ".cfi_restore\t$$line";
744 cfa_expression($$line)));
757 $self->{value} = ".cfi_$dir\t$$line" if ($dir);
759 $$line = "";
771 my ($class, $line) = @_;
777 $ret = cfi_directive->re($line) and return $ret;
779 if ($$line =~ /^\s*(\.\w+)/) {
784 $$line = substr($$line,@+[0]); $$line =~ s/^\s+//;
788 && do { $globals{$$line} = $prefix . $$line;
789 $$line = $globals{$$line} if ($prefix);
792 /\.type/ && do { my ($sym,$type,$narg) = split(',',$$line);
804 $$line =~ s/\@abi\-omnipotent/\@function/;
805 $$line =~ s/\@function.*/\@function/;
808 /\.asciz/ && do { if ($$line =~ /^"(.*)"$/) {
810 $$line = join(",",unpack("C*",$1),0);
815 && do { $$line =~ s/([_a-z][_a-z0-9]*)/$globals{$1} or $1/gei;
816 $$line =~ s/\.L/$decor/g;
822 $self->{value} = $dir . "\t" . $$line;
831 if ($win64 && $$line =~ /([^,]+),\@function/);
840 $self->{value} = ".p2align\t" . (log($$line)/log(2));
842 $current_segment=$$line;
850 if ($flavour eq "macosx") { $self->{value} = ".private_extern\t$prefix$$line"; }
853 $self->{value} = "$dir\t$prefix$$line";
856 $$line = "";
887 $$line =~ s/([^,]*).*/$1/;
888 $$line = ".CRT\$XCU" if ($$line eq ".init");
890 $v="section $$line";
891 if ($$line=~/\.([px])data/) {
894 } elsif ($$line=~/\.CRT\$/i) {
899 $v.="$$line\tSEGMENT";
900 if ($$line=~/\.([px])data/) {
903 } elsif ($$line=~/\.CRT\$/i) {
908 $current_segment = $$line;
912 /\.extern/ && do { $self->{value} = "EXTERN\t".$$line;
918 $self->{value} .= "\t".$$line;
933 $self->{value} = "ALIGN\t".($$line>$max?$max:$$line);
938 my @arr = split(/,\s*/,$$line);
954 /\.byte/ && do { my @str=split(/,\s*/,$$line);
966 /\.comm/ && do { my @str=split(/,\s*/,$$line);
980 $$line = "";
1197 while(defined(my $line=<>)) {
1199 $line =~ s|\R$||; # Better chomp
1201 $line =~ s|[#!].*$||; # get rid of asm-style comments...
1202 $line =~ s|/\*.*\*/||; # ... and C-style comments...
1203 $line =~ s|^\s+||; # ... and skip whitespaces in beginning
1204 $line =~ s|\s+$||; # ... and at the end
1206 if (my $label=label->re(\$line)) { print $label->out(); }
1208 if (my $directive=directive->re(\$line)) {
1210 } elsif (my $opcode=opcode->re(\$line)) {
1213 if ((ref($asm) eq 'CODE') && scalar(my @bytes=&$asm($line))) {
1222 ($arg=register->re(\$line, $opcode))||
1223 ($arg=const->re(\$line)) ||
1224 ($arg=ea->re(\$line, $opcode)) ||
1225 ($arg=expr->re(\$line, $opcode)) ||
1230 last ARGUMENT if ($line !~ /^,/);
1232 $line =~ s/^,\s*//;
1262 print $line,"\n";