Lines Matching refs:Label
521 $ComTab{':'}=[ 0, 'str', \&Label, '' ]; #ok
571 my( @Commands, %Defined, @BlockStack, %Label, $labNum, $Code, $Func );
644 # Label (: command): label definition
646 sub Label($$$$$$){
652 if( ! exists( $Label{$lab} ) ){
653 $h = $Label{$lab}{name} = newLabel();
655 $h = $Label{$lab}{name};
656 if( exists( $Label{$lab}{defined} ) ){
657 my $dl = $Label{$lab}{defined};
662 $Label{$lab}{defined} = $fl;
698 if( ! exists( $Label{$lab} ) ){
699 $h = $Label{$lab}{name} = newLabel();
701 $h = $Label{$lab}{name};
703 push( @{$Label{$lab}{used}}, $fl );
1480 for my $lab ( keys( %Label ) ){
1481 if( ! exists( $Label{$lab}{defined} ) ){
1482 for my $used ( @{$Label{$lab}{used}} ){