Lines Matching refs:label
150 $self->{label} = $1;
172 # in $self->{label}
173 $self->{label} =~ s/(?<![0-9a-f])(0[x0-9a-f]+)/oct($1)/eg;
174 $self->{label} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg;
178 $self->{label},$self->{base},
181 sprintf "%s(%%%s)", $self->{label},$self->{base};
186 $self->{label} =~ s/\./\$/g;
187 $self->{label} =~ s/0x([0-9a-f]+)/0$1h/ig;
188 $self->{label} = "($self->{label})" if ($self->{label} =~ /[\*\+\-\/]/);
192 $self->{label},
197 $self->{label},$self->{base};
237 { package label; # pick up labels, which end with :
395 undef $label;
401 if ($label=label->re(\$line)) { print $label->out(); }