Lines Matching refs:label
351 $self->{label} = $2;
358 if ($win64 && $self->{label} =~ s/\@GOTPCREL//) {
372 $self->{label} =~ s/([_a-z][_a-z0-9]*)/$globals{$1} or $1/gei;
373 $self->{label} =~ s/\.L/$decor/g;
384 $self->{label} =~ s/(?<![\w\$\.])(0x?[0-9a-f]+)/oct($1)/egi;
385 $self->{label} =~ s/\b([0-9]+\s*[\*\/\%]\s*[0-9]+)\b/eval($1)/eg;
390 $self->{label} =~ s/\b([0-9]+)\b/$1<<32>>32/eg;
392 $self->{label} =~ s/\b([0-9]+)\b/$1>>0/eg;
397 if (!$self->{label} && $self->{index} && $self->{scale}==1 &&
403 $self->{label} =~ s/^___imp_/__imp__/ if ($flavour eq "mingw64");
407 $self->{asterisk},$self->{label},
412 sprintf "%s%s(%%%s)%s", $self->{asterisk},$self->{label},
416 $self->{label} =~ s/\./\$/g;
417 $self->{label} =~ s/(?<![\w\$\.])0x([0-9a-f]+)/0$1h/ig;
418 $self->{label} = "($self->{label})" if ($self->{label} =~ /[\*\+\-\/]/);
431 $self->{label}?"$self->{label}+":"",
436 sprintf "%s[%s]",$szmap{$sz},$self->{label};
439 $self->{label}?"$self->{label}+":"",
487 { package label; # pick up labels, which end with :
1393 if (my $label=label->re(\$line)) { print $label->out(); }