Lines Matching refs:current_segment
153 my $current_segment;
207 } elsif ($self->{op} eq "call" && !$elf && $current_segment eq ".init") {
223 } elsif ($self->{op} eq "call" && $current_segment eq ".CRT\$XCU") {
842 $current_segment=$$line;
843 if (!$elf && $current_segment eq ".init") {
848 $current_segment=".$1";
866 $v="$current_segment\tENDS\n" if ($current_segment);
867 $current_segment = ".text\$";
868 $v.="$current_segment\tSEGMENT ";
879 $v="$current_segment\tENDS\n" if ($current_segment);
880 $current_segment = "_DATA";
881 $v.="$current_segment\tSEGMENT";
898 $v="$current_segment\tENDS\n" if ($current_segment);
908 $current_segment = $$line;
943 if ($sz eq "D" && ($current_segment=~/.[px]data/ || $dir eq ".rva"))
971 $v="$current_segment\tENDS\n" if ($current_segment);
972 $current_segment = "_DATA";
973 $v.="$current_segment\tSEGMENT\n";
1266 print "\n$current_segment\tENDS\n" if ($current_segment && $masm);