Lines Matching refs:label
287 $self->{label} = $2;
294 if ($win64 && $self->{label} =~ s/\@GOTPCREL//) {
308 $self->{label} =~ s/([_a-z][_a-z0-9]*)/$globals{$1} or $1/gei;
309 $self->{label} =~ s/\.L/$decor/g;
320 $self->{label} =~ s/(?<![\w\$\.])(0x?[0-9a-f]+)/oct($1)/egi;
321 $self->{label} =~ s/\b([0-9]+\s*[\*\/\%]\s*[0-9]+)\b/eval($1)/eg;
326 $self->{label} =~ s/\b([0-9]+)\b/$1<<32>>32/eg;
328 $self->{label} =~ s/\b([0-9]+)\b/$1>>0/eg;
333 if (!$self->{label} && $self->{index} && $self->{scale}==1 &&
339 $self->{label} =~ s/^___imp_/__imp__/ if ($flavour eq "mingw64");
343 $self->{asterisk},$self->{label},
348 sprintf "%s%s(%%%s)%s", $self->{asterisk},$self->{label},
352 $self->{label} =~ s/\./\$/g;
353 $self->{label} =~ s/(?<![\w\$\.])0x([0-9a-f]+)/0$1h/ig;
354 $self->{label} = "($self->{label})" if ($self->{label} =~ /[\*\+\-\/]/);
367 $self->{label}?"$self->{label}+":"",
372 sprintf "%s[%s]",$szmap{$sz},$self->{label};
375 $self->{label}?"$self->{label}+":"",
423 { package label; # pick up labels, which end with :
1206 if (my $label=label->re(\$line)) { print $label->out(); }