Home | History | Annotate | Download | only in perlasm

Lines Matching refs:push

98 {   push(@out,".file\t\"$_[0].s\"\n.text\n");	}
108 push(@out,".globl\t$func\n") if ($global);
110 { push(@out,".def\t$func;\t.scl\t".(3-$global).";\t.type\t32;\t.endef\n"); }
114 { push(@out,".type $func,\@function\n"); }
115 push(@out,".align\t$align\n");
116 push(@out,"$func:\n");
117 push(@out,"$begin:\n") if ($global);
123 push(@out,".size\t$nmdecor$func,.-".&::LABEL($func)."\n") if ($::elf);
133 push(@out,"\n"); # so we just skip ELF comments...
139 { push(@out,"\n"); }
141 { push(@out,"\t$com_start $_ $com_end\n"); }
149 { push(@out,".globl\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); }
154 if ($::elf) { push (@out,"$tmp,4\n"); }
155 else { push (@out,"$tmp\n"); }
159 { push(@out,".section __IMPORT,__pointers,non_lazy_symbol_pointers\n");
161 { push(@out,"$non_lazy_ptr{$i}:\n.indirect_symbol\t$i\n.long\t0\n"); }
164 push(@out,$initseg) if ($initseg);
167 sub ::data_byte { push(@out,".byte\t".join(',',@_)."\n"); }
168 sub ::data_word { push(@out,".long\t".join(',',@_)."\n"); }
177 push(@out,".align\t$val\n");
245 { push(@out,".data\n"); }