Lines Matching refs:current_segment
100 my $current_segment;
154 } elsif ($self->{op} eq "call" && !$elf && $current_segment eq ".init") {
170 } elsif ($self->{op} eq "call" && $current_segment eq ".CRT\$XCU") {
507 $current_segment=$line;
508 current_segment eq ".init") {
513 $current_segment=".$1";
531 $v="$current_segment\tENDS\n" if ($current_segment);
532 $current_segment = ".text\$";
533 $v.="$current_segment\tSEGMENT ";
544 $v="$current_segment\tENDS\n" if ($current_segment);
545 $current_segment = "_DATA";
546 $v.="$current_segment\tSEGMENT";
563 $v="$current_segment\tENDS\n" if ($current_segment);
573 $current_segment = $line;
605 if ($sz eq "D" && ($current_segment=~/.[px]data/ || $dir eq ".rva"))
633 $v="$current_segment\tENDS\n" if ($current_segment);
634 $current_segment = "_DATA";
635 $v.="$current_segment\tSEGMENT\n";
855 print "\n$current_segment\tENDS\n" if ($current_segment && $masm);
