Lines Matching refs:out
12 *out=\@::out;
100 push(@out,$tmp);
114 push(@out,$func);
120 push(@out,"$nmdecor$func ENDP\n");
135 if (grep {/\b[x]?mm[0-7]\b/i} @out) {
136 grep {s/\.[3-7]86/$xmmheader/} @out;
139 push(@out,"$segment ENDS\n");
141 if (grep {/\b${nmdecor}OPENSSL_ia32cap_P\b/i} @out)
148 grep {s/(^EXTERN\s+${nmdecor}OPENSSL_ia32cap_P)/\;$1/} @out;
149 push (@out,$comm);
151 push (@out,$initseg) if ($initseg);
152 push (@out,"END\n");
155 sub ::comment { foreach (@_) { push(@out,"\t; $_\n"); } }
158 { my $l=shift; push(@out,$l.($l=~/^\Q${::lbdecor}\E[0-9]{3}/?":\n":"::\n")); };
162 { push(@out, "EXTERN\t".&::LABEL($_,$nmdecor.$_).":NEAR\n"); }
166 { push(@out,"PUBLIC\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); }
169 { push(@out,("DB\t").join(',',splice(@_,0,16))."\n") while(@_); }
172 { push(@out,("DW\t").join(',',splice(@_,0,8))."\n") while(@_); }
175 { push(@out,("DD\t").join(',',splice(@_,0,4))."\n") while(@_); }
178 { push(@out,"ALIGN\t$_[0]\n"); }
197 { push(@out,"$segment\tENDS\n_DATA\tSEGMENT\n"); $segment="_DATA"; }
201 push(@out,"IF \@Version GE 710\n");
202 push(@out,".SAFESEH ".&::LABEL($nm,$nmdecor.$nm)."\n");
203 push(@out,"ENDIF\n");
