Lines Matching refs:v
968 /\.text/ && do { my $v=undef;
974 $v="section .text code align=64\n";
982 $v="$current_segment\tENDS\n" if ($current_segment);
985 $v.="$current_segment\tSEGMENT ";
986 $v.=$masm>=$masmref ? "ALIGN(256)" : "PAGE";
987 $v.=" 'CODE'";
989 $self->{value} = $v;
992 /\.data/ && do { my $v=undef;
994 $v="section .data data align=8\n";
997 $v="$current_segment\tENDS\n" if ($current_segment);
1000 $v.="$current_segment\tSEGMENT";
1002 $self->{value} = $v;
1005 /\.section/ && do { my $v=undef;
1030 $v="section $$line";
1033 $v.= " rdata align=$1" ;
1035 $v.=" rdata align=";
1036 $v.=$1 eq "p"? 4 : 8;
1039 $v.=" rdata align=8";
1050 $v="$current_segment\tENDS\n" if ($current_segment);
1051 $v.="$$line\tSEGMENT";
1053 $v.=" READONLY";
1055 $v.=" ALIGN($1)" if ($masm>=$masmref);
1057 $v.=" ALIGN(".($1 eq "p" ? 4 : 8).")" if ($masm>=$masmref);
1060 $v.=" READONLY ";
1061 $v.=$masm>=$masmref ? "ALIGN(8)" : "DWORD";
1066 $self->{value} = $v;
1124 my $v=undef;
1126 $v.="common $prefix@str[0] @str[1]";
1129 $v="$current_segment\tENDS\n" if ($current_segment);
1132 $v.="$current_segment\tSEGMENT\n";
1133 $v.="COMM @str[0]:DWORD:".@str[1]/4;
1135 $self->{value} = $v;
1139 my $v=undef;
1144 $v="section $current_segment";
1154 $v="$current_segment\tENDS\n" if ($current_segment);
1157 $v.="$current_segment\tSEGMENT ";
1158 $v.=$masm>=$masmref ? "ALIGN(256)" : "PAGE";
1159 $v.=" 'CODE'";
1163 $self->{value} = $v;
