Home | History | Annotate | Download | only in perlasm

Lines Matching refs:push

75 {   if ($::mwerks)	{ push(@out,".section\t.text,64\n"); }
87 push(@out,$tmp);
101 push(@out,"${drdecor}global $func\n") if ($global);
102 push(@out,"${drdecor}align 16\n");
103 push(@out,"$func:\n");
104 push(@out,"$begin:\n") if ($global);
121 push (@out,$comm)
123 push (@out,$initseg) if ($initseg);
126 sub ::comment { foreach (@_) { push(@out,"\t; $_\n"); } }
130 { push(@out,"${drdecor}extern\t".&::LABEL($_,$nmdecor.$_)."\n"); }
134 { push(@out,"${drdecor}global\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); }
137 { push(@out,(($::mwerks)?".byte\t":"db\t").join(',',@_)."\n"); }
140 { push(@out,(($::mwerks)?".long\t":"dd\t").join(',',@_)."\n"); }
143 { push(@out,"${drdecor}align\t$_[0]\n"); }
162 { if ($mwerks) { push(@out,".section\t.data,4\n"); }
163 else { push(@out,"section\t.data align=4\n"); }