Lines Matching refs:opcode
185 { my $opcode = $AUTOLOAD; $opcode =~ s/.*:://;
188 $code .= "\t$opcode\t".join(',',$arg,reverse @_)."\n";
2083 local *opcode=shift;
2089 unshift @opcode,$rex|0x40 if($rex);
2094 my @opcode=(0x0f,0x3a,0xcc);
2095 rex(\@opcode,$3,$2);
2096 push @opcode,0xc0|($2&7)|(($3&7)<<3); # ModR/M
2098 push @opcode,$c=~/^0/?oct($c):$c;
2099 return ".byte\t".join(',',@opcode);
2113 my @opcode=(0x0f,0x38);
2114 rex(\@opcode,$2,$1);
2115 push @opcode,$opcodelet{$instr};
2116 push @opcode,0xc0|($1&7)|(($2&7)<<3); # ModR/M
2117 return ".byte\t".join(',',@opcode);
2125 my @opcode=(0x0f,0x38);
2133 rex(\@opcode,$3,$2);
2134 push @opcode,$opcodelet{$1},0xc0|($2&7)|(($3&7)<<3); # ModR/M
2135 unshift @opcode,0x66;
2136 return ".byte\t".join(',',@opcode);
