/openssl/crypto/perlasm/ |
H A D | x86_64-xlate.pl | 364 $self->{opcode} = $opcode; 569 $self->{opcode} = $opcode; 1206 @opcode; 1213 @opcode; 1231 @opcode; 1249 @opcode; 1261 @opcode; 1274 @opcode; 1288 @opcode; 1301 @opcode; [all …]
|
H A D | x86asm.pl | 25 { my $opcode = $AUTOLOAD; 29 $opcode =~ s/.*:://; 30 if ($opcode =~ /^push/) { $stack+=4; } 37 { my $opcode=shift; 150 local *opcode=shift; 157 push @opcode,$rxb; 163 { my @opcode=(0x8f); 164 rxb(\@opcode,$1,$2,-1,0x08); 165 push @opcode,0x78,0xc2; 168 push @opcode,$c=~/^0/?oct($c):$c; [all …]
|
H A D | s390x.pm | 2569 $out.=sprintf("%#06x",($i5<<8)|($opcode&0xff)); 2581 $out.=sprintf("%#06x",(($opcode>>4)<<8|$r1<<4|($opcode&0xf))).","; 2624 $out.=sprintf("%#06x",(($d2>>12)<<8|$opcode&0xff)); 2633 my ($opcode,$d2,$b2)=(shift,get_DB(shift)); 2860 $out.=sprintf("%#06x",(RXB($v1)<<8|$opcode&0xff)); 2869 my ($opcode,$v1)=(shift,get_V(shift)); 2872 $out.=sprintf("%#06x",($opcode&0xff00|($v1&0xf))).","; 2874 $out.=sprintf("%#06x",(RXB(0,$v1)<<8|$opcode&0xff)); 2904 $out.=sprintf("%#06x",(RXB(0,$v2)<<8|$opcode&0xff)); 2962 $out.=sprintf("%#06x",($opcode&0xff00|$r3)).","; [all …]
|
H A D | arm-xlate.pl | 183 my $opcode; 185 $opcode = eval("\$$1_$2"); 187 $opcode = eval("\$$mnemonic"); 192 if (ref($opcode) eq 'CODE') { 193 $line = &$opcode($arg);
|
H A D | x86masm.pl | 21 { my ($opcode,@arg)=@_; 26 if ($opcode =~ /lea/ && @arg[1] =~ s/.*PTR\s+(\(.*\))$/OFFSET $1/) # no [] 27 { $opcode="mov"; } 28 elsif ($opcode !~ /mov[dq]$/) 34 &::emit($opcode,@arg);
|
H A D | x86nasm.pl | 21 { my $opcode=shift; 25 { if ($opcode =~ m/^j/o && $#_==0) # optimize jumps 27 elsif ($opcode eq "lea" && $#_==1) # wipe storage qualifier from lea 29 elsif ($opcode eq "clflush" && $#_==0) 32 &::emit($opcode,@_);
|
H A D | x86gas.pl | 35 { my($opcode,@arg)=@_; 54 if ($#_==0) { &::emit($opcode); } 55 elsif ($#_==1 && $opcode =~ m/^(call|clflush|j|loop|set)/o) 56 { &::emit($opcode,@arg); } 57 else { &::emit($opcode.$suffix,@arg);}
|
H A D | ppc-xlate.pl | 428 my $opcode = eval("\$$mnemonic"); 430 if (ref($opcode) eq 'CODE') { $line = &$opcode($f,split(/,\s*/,$line)); }
|
/openssl/crypto/modes/asm/ |
H A D | ghash-parisc.pl | 645 sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig; 650 $opcode|=(1<<5) if ($mod =~ /^,m/); 651 $opcode|=(1<<13) if ($mod =~ /^,mb/); 652 sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig; 663 sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig; 674 { my $opcode=(0x36<<26)|($1<<21)|($4<<16); 678 sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig; 684 $opcode |= (1<<13) if ($mod =~ /,\**=/); 713 { my $opcode=(0x3c<<26)|($4<<21)|($1<<16); 725 my $opcode = eval("\$$mnemonic"); [all …]
|
/openssl/crypto/bn/asm/ |
H A D | parisc-mont.pl | 912 $opcode|=(1<<5) if ($mod =~ /^,m/); 913 $opcode|=(1<<13) if ($mod =~ /^,mb/); 926 $opcode|=(1<<5) if ($mod =~ /^,m/); 927 $opcode|=(1<<13) if ($mod =~ /^,mb/); 949 $opcode |= (1<<13) if ($mod =~ /,\**=/); 973 my $opcode=(0x02<<26)|($2<<21)|($1<<16)|$3; 974 $opcode|=(1<<10); # e1 975 $opcode|=(1<<8); # e2 976 $opcode|=(1<<5); # d 984 my $opcode = eval("\$$mnemonic"); [all …]
|
/openssl/crypto/sha/asm/ |
H A D | sha512-parisc.pl | 709 $opcode|=(1<<3) if ($mod =~ /^,m/); 710 $opcode|=(1<<2) if ($mod =~ /^,mb/); 711 sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig; 722 sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig; 733 { my $opcode=(0x36<<26)|($1<<21)|($4<<16); 737 sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig; 743 $opcode |= (1<<13) if ($mod =~ /,\**=/); 744 sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig; 757 sprintf "\t.WORD\t0x%08x\t; %s",$opcode,$orig; 768 my $opcode = eval("\$$mnemonic"); [all …]
|
H A D | sha512-armv8.pl | 458 { my $opcode = $AUTOLOAD; $opcode =~ s/.*:://; $opcode =~ s/_/\./; 461 $code .= "\t$opcode\t".join(',',@_,$arg)."\n"; 838 { my %opcode = ( 848 $opcode{$mnemonic}|$1|($2<<5)|($3<<16), 853 { my %opcode = ( 863 $opcode{$mnemonic}|$1|($2<<5)|($3<<16),
|
H A D | sha1-armv4-large.pl | 341 { my $opcode = $AUTOLOAD; $opcode =~ s/.*:://; $opcode =~ s/_/\./; 344 $code .= "\t$opcode\t".join(',',@_,$arg)."\n"; 714 { my %opcode = ( 723 my $word = $opcode{$mnemonic}|(($1&7)<<13)|(($1&8)<<19)
|
H A D | sha256-armv4.pl | 320 { my $opcode = $AUTOLOAD; $opcode =~ s/.*:://; $opcode =~ s/_/\./; 323 $code .= "\t$opcode\t".join(',',@_,$arg)."\n"; 708 { my %opcode = ( 716 my $word = $opcode{$mnemonic}|(($1&7)<<13)|(($1&8)<<19)
|
H A D | sha1-mb-x86_64.pl | 1593 local *opcode=shift; 1599 unshift @opcode,$rex|0x40 if ($rex); 1604 my @opcode=(0x0f,0x3a,0xcc); 1605 rex(\@opcode,$3,$2); 1606 push @opcode,0xc0|($2&7)|(($3&7)<<3); # ModR/M 1608 push @opcode,$c=~/^0/?oct($c):$c; 1609 return ".byte\t".join(',',@opcode); 1623 my @opcode=(0x0f,0x38); 1624 rex(\@opcode,$2,$1); 1625 push @opcode,$opcodelet{$instr}; [all …]
|
H A D | sha1-x86_64.pl | 577 { my $opcode = $AUTOLOAD; $opcode =~ s/.*:://; 580 $code .= "\t$opcode\t".join(',',$arg,reverse @_)."\n"; 2097 my @opcode=(0x0f,0x3a,0xcc); 2098 push @opcode,0xc0|($2&7)|(($3&7)<<3); # ModR/M 2100 push @opcode,$c=~/^0/?oct($c):$c; 2101 return ".byte\t".join(',',@opcode); 2115 my @opcode=(0x0f,0x38); 2119 unshift @opcode,0x40|$rex if ($rex); 2120 push @opcode,$opcodelet{$instr}; 2121 push @opcode,0xc0|($1&7)|(($2&7)<<3); # ModR/M [all …]
|
H A D | sha256-mb-x86_64.pl | 1594 local *opcode=shift; 1600 unshift @opcode,$rex|0x40 if ($rex); 1611 my @opcode=(0x0f,0x38); 1612 rex(\@opcode,$2,$1); 1613 push @opcode,$opcodelet{$instr}; 1614 push @opcode,0xc0|($1&7)|(($2&7)<<3); # ModR/M 1615 return ".byte\t".join(',',@opcode);
|
H A D | sha1-armv8.pl | 333 { my %opcode = ( 344 $opcode{$mnemonic}|$1|($2<<5)|($3<<16),
|
/openssl/crypto/aes/asm/ |
H A D | aesni-mb-x86_64.pl | 1451 local *opcode=shift; 1457 push @opcode,$rex|0x40 if($rex); 1462 my @opcode=(0x66); 1465 rex(\@opcode,$4,$3); 1466 push @opcode,0x0f,0x3a,0xdf; 1469 push @opcode,$c=~/^0/?oct($c):$c; 1470 return ".byte\t".join(',',@opcode); 1479 rex(\@opcode,$3,$2); 1482 return ".byte\t".join(',',@opcode); 1491 push @opcode,0x44 if ($3>=8); [all …]
|
H A D | aesni-sha1-x86_64.pl | 185 { my $opcode = $AUTOLOAD; $opcode =~ s/.*:://; 2083 local *opcode=shift; 2094 my @opcode=(0x0f,0x3a,0xcc); 2095 rex(\@opcode,$3,$2); 2098 push @opcode,$c=~/^0/?oct($c):$c; 2113 my @opcode=(0x0f,0x38); 2114 rex(\@opcode,$2,$1); 2115 push @opcode,$opcodelet{$instr}; 2125 my @opcode=(0x0f,0x38); 2133 rex(\@opcode,$3,$2); [all …]
|
H A D | aesni-sha256-x86_64.pl | 294 { my $opcode = $AUTOLOAD; $opcode =~ s/.*:://; 297 $code .= "\t$opcode\t".join(',',$arg,reverse @_)."\n"; 1773 local *opcode=shift; 1779 unshift @opcode,$rex|0x40 if($rex); 1792 my @opcode=(0x0f,0x38); 1793 rex(\@opcode,$2,$1); 1794 push @opcode,$opcodelet{$instr}; 1795 push @opcode,0xc0|($1&7)|(($2&7)<<3); # ModR/M 1796 return ".byte\t".join(',',@opcode);
|
H A D | aesni-x86_64.pl | 5112 local *opcode=shift; 5118 push @opcode,$rex|0x40 if($rex); 5123 my @opcode=(0x66); 5126 rex(\@opcode,$4,$3); 5127 push @opcode,0x0f,0x3a,0xdf; 5130 push @opcode,$c=~/^0/?oct($c):$c; 5131 return ".byte\t".join(',',@opcode); 5140 rex(\@opcode,$3,$2); 5143 return ".byte\t".join(',',@opcode); 5152 push @opcode,0x44 if ($3>=8); [all …]
|
/openssl/engines/asm/ |
H A D | e_padlock-x86_64.pl | 286 my ($mode,$opcode) = @_; 383 .byte 0xf3,0x0f,0xa7,$opcode # rep xcrypt* 500 .byte 0xf3,0x0f,0xa7,$opcode # rep xcrypt* 533 .byte 0xf3,0x0f,0xa7,$opcode # rep xcrypt*
|
H A D | e_padlock-x86.pl | 187 my ($mode,$opcode) = @_; 294 &data_byte(0xf3,0x0f,0xa7,$opcode); # rep xcrypt* 385 &data_byte(0xf3,0x0f,0xa7,$opcode); # rep xcrypt*
|
/openssl/test/ |
H A D | quic_txp_test.c | 263 uint32_t opcode; member 1303 for (op = script, opn = 0; op->opcode != OPK_END; ++op, ++opn) { in run_script() 1304 switch (op->opcode) { in run_script() 1680 dyn_script_1[dyn_script_1_pkt_idx].opcode = OPK_RX_PKT; in test_dyn_script_1() 1681 dyn_script_1[dyn_script_1_check_idx].opcode = OPK_CHECK; in test_dyn_script_1() 1684 dyn_script_1[dyn_script_1_pkt_idx].opcode = OPK_RX_PKT_NONE; in test_dyn_script_1() 1685 dyn_script_1[dyn_script_1_check_idx].opcode = OPK_NOP; in test_dyn_script_1()
|