Home | History | Annotate | Download | only in perlasm

Lines Matching refs:label

5 $label="L000";
200 foreach $i (%label)
201 { if ($label{$i} eq $_[0]) { $pre=''; last; } }
426 %label=();
457 %label=();
513 $label{$_[0]}="${under}${_[0]}" if (!defined($label{$_[0]}));
514 push(@out,".globl\t$label{$_[0]}\n");
517 sub main'label
519 if (!defined($label{$_[0]}))
521 $label{$_[0]}="${dot}${label}${_[0]}";
522 $label++;
524 return($label{$_[0]});
529 if (!defined($label{$_[0]}))
531 $label{$_[0]}="${dot}${label}${_[0]}";
532 $label++;
539 push(@out,"$label{$_[0]}:\n");
674 &main'call(&main'label("PIC_me_up"));
678 &main'label("PIC_me_up") . "]");