Lines Matching refs:_
27 die "more than 4 arguments passed to $opcode" if ($#_>3);
33 &generic($opcode,@_) or die "undefined subroutine \&$AUTOLOAD";
39 if ($#_==-1) { push(@out,"\t$opcode\n"); }
40 else { push(@out,"\t$opcode\t".join(',',@_)."\n"); }
44 { $_[0] =~ m/^e?([a-d])x$/o or die "$_[0] does not have a 'low byte'";
48 { $_[0] =~ m/^e?([a-d])x$/o or die "$_[0] does not have a 'high byte'";
51 sub ::stack_push{ my $num=$_[0]*4; $stack+=$num; &sub("esp",$num); }
52 sub ::stack_pop { my $num=$_[0]*4; $stack-=$num; &add("esp",$num); }
53 sub ::blindpop { &pop($_[0]); $stack+=4; }
54 sub ::wparam { &DWP($stack+4*$_[0],"esp"); }
55 sub ::swtmp { &DWP(4*$_[0],"esp"); }
59 { &comment("bswap @_");
60 &xchg(&HB(@_),&LB(@_));
61 &ror (@_,16);
62 &xchg(&HB(@_),&LB(@_));
65 { &generic("bswap",@_); }
69 sub ::movb { &mov(@_); }
70 sub ::xorb { &xor(@_); }
71 sub ::rotl { &rol(@_); }
72 sub ::rotr { &ror(@_); }
73 sub ::exch { &xchg(@_); }
75 sub ::movz { &movzx(@_); }
81 { my($p1,$p2,$optimize)=@_;
87 { &::generic("movq",@_); }
94 { my($dst,$src,$imm)=@_;
98 { &::generic("pextrd",@_); }
102 { my($dst,$src,$imm)=@_;
106 { &::generic("pinsrd",@_); }
110 { my($dst,$src)=@_;
114 { &::generic("pshufb",@_); }
118 { my($dst,$src,$imm)=@_;
122 { &::generic("palignr",@_); }
126 { my($dst,$src,$imm)=@_;
130 { &::generic("pclmulqdq",@_); }
134 { my ($dst)=@_;
138 { &::generic("rdrand",@_); }
142 { my ($dst)=@_;
146 { &::generic("rdrand",@_); }
151 my ($dst,$src1,$src2,$rxb)=@_;
161 { my $args=join(',',@_);
172 { &::generic("vprotd",@_); }
188 foreach $i (values %label) { return $i if ($i eq $_[0]); }
189 $label{$_[0]}; # can be undef
193 { if (!defined($label{$_[0]}))
194 { $label{$_[0]}="${lbdecor}${label}${_[0]}"; $label++; }
195 $label{$_[0]};
199 { $label{$_[0]}=$_[1] if (!defined($label{$_[0]}));
200 $label{$_[0]};
203 sub ::static_label { &::LABEL($_[0],$lbdecor.$_[0]); }
205 sub ::set_label_B { push(@out,"@_:\n"); }
207 { my $label=&::label($_[0]);
208 &::align($_[1]) if ($_[1]>1);
220 { &function_begin_B(@_);
234 &function_end_B(@_);
264 { my ($type,$cpu)=@_;
