/openssl/crypto/perlasm/ |
H A D | s390x.pm | 1310 vno(@_,$_[1]); 1906 vcdg(@_[0..1],3,0x8|$_[2],$_[3]); 1917 vcdlg(@_[0..1],3,0x8|$_[2],$_[3]); 1928 vcgd(@_[0..1],3,0x8|$_[2],$_[3]); 1939 vclgd(@_[0..1],3,0x8|$_[2],$_[3]); 1961 vfi(@_[0..1],3,0x8|$_[2],$_[3]); 1983 vled(@_[0..1],3,0x8|$_[2],$_[3]); 2220 vfi(@_[0..1],2,0x8|$_[2],$_[3]); 2223 vfi(@_[0..1],4,0x8|$_[2],$_[3]); 2246 vflr(@_[0..1],3,0x8|$_[2],$_[3]); [all …]
|
H A D | x86asm.pl | 60 &xchg(&HB(@_),&LB(@_)); 61 &ror (@_,16); 62 &xchg(&HB(@_),&LB(@_)); 110 { my($dst,$src)=@_; 134 { my ($dst)=@_; 142 { my ($dst)=@_; 195 $label{$_[0]}; 199 { $label{$_[0]}=$_[1] if (!defined($label{$_[0]})); 200 $label{$_[0]}; 203 sub ::static_label { &::LABEL($_[0],$lbdecor.$_[0]); } [all …]
|
H A D | ppc-xlate.pl | 21 my ($dir,$name,$type) = @_; 116 my $line = join(",",@_); 126 for (@_) { 132 { $hi=undef; $lo=$_; } 168 my @rest = @_; 216 " .long ".sprintf "0x%x",31<<26|$cr<<23|$_[0]<<16|$_[1]<<11|64 : 253 my ($f,$vx,$vy) = @_; 261 my ($f,$idx,$ra) = @_; 269 my ($f,$rd,$idx) = @_; 346 my ($f, $arg) = @_; [all …]
|
H A D | x86nasm.pl | 26 { $_[0] = "NEAR $_[0]"; } 28 { $_[1] =~ s/^[^\[]*\[/\[/o; } 30 { $_[0] =~ s/^[^\[]*\[/\[/o; } 32 &::emit($opcode,@_); 40 sub ::jmp_ptr { &::emit("jmp",@_); } 79 sub ::BP { &get_mem("BYTE",@_); } 81 sub ::WP { &get_mem("WORD",@_); } 141 { foreach(@_) 142 { push(@out,"${drdecor}extern\t".&::LABEL($_,$nmdecor.$_)."\n"); } 146 { push(@out,"${drdecor}global\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); } [all …]
|
H A D | x86masm.pl | 21 { my ($opcode,@arg)=@_; 80 sub ::WP { &get_mem("WORD",@_); } 83 sub ::BC { "@_"; } 84 sub ::DWC { "@_"; } 161 { foreach(@_) 162 { push(@out, "EXTERN\t".&::LABEL($_,$nmdecor.$_).":NEAR\n"); } 166 { push(@out,"PUBLIC\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); } 169 { push(@out,("DB\t").join(',',splice(@_,0,16))."\n") while(@_); } 172 { push(@out,("DW\t").join(',',splice(@_,0,8))."\n") while(@_); } 175 { push(@out,("DD\t").join(',',splice(@_,0,4))."\n") while(@_); } [all …]
|
H A D | x86gas.pl | 35 { my($opcode,@arg)=@_; 64 sub ::movzx { &::movzb(@_); } 100 sub ::QWP { &::DWP(@_); } 101 sub ::BP { &::DWP(@_); } 102 sub ::WP { &::DWP(@_); } 103 sub ::BC { @_; } 104 sub ::DWC { @_; } 146 foreach (@_) 156 { foreach(@_) { &::LABEL($_,$nmdecor.$_); } } 159 { push(@out,".globl\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); } [all …]
|
/openssl/Configurations/platform/ |
H A D | BASE.pm | 35 sub bin { return $_[0]->binname($_[1]) . $_[0]->binext() } 36 sub dso { return $_[0]->dsoname($_[1]) . $_[0]->dsoext() } 37 sub sharedlib { return __concat($_[0]->sharedname($_[1]), $_[0]->shlibext()) } 38 sub staticlib { return $_[0]->staticname($_[1]) . $_[0]->libext() } 42 sub obj { return __base($_[1], '.o') . $_[0]->objext() } 45 sub asm { return __base($_[1], '.s') . $_[0]->asmext() } 58 if ($_[0]->isdef($_[1])) { return $_[0]->def($_[1]); } 59 if ($_[0]->isobj($_[1])) { return $_[0]->obj($_[1]); } 60 if ($_[0]->isres($_[1])) { return $_[0]->res($_[1]); } 61 if ($_[0]->isasm($_[1])) { return $_[0]->asm($_[1]); } [all …]
|
H A D | Unix.pm | 39 return $_[1]; 47 my $in_libname = platform::BASE->staticname($_[1]); 49 if $unified_info{attributes}->{libraries}->{$_[1]}->{noinst}; 53 return platform::BASE->staticname($_[1]); 58 ($_[0]->shlibvariant() // '')); 62 return platform::BASE::__isshared($_[1]) ? $_[1] : undef; 73 my $name = $_[0]->sharedname($_[1]); 74 my $simplename = $_[0]->sharedname_simple($_[1]); 75 my $ext = $_[0]->shlibext(); 77 my $simpleext = $_[2]; [all …]
|
H A D | VMS.pm | 33 sub optname { return $_[1] } 34 sub opt { return $_[0]->optname($_[1]) . $_[0]->optext() } 41 my $in_libname = platform::BASE->staticname($_[1]); 43 if $unified_info{attributes}->{libraries}->{$_[1]}->{noinst}; 45 return platform::BASE::__concat($_[0]->osslprefix(), 46 platform::BASE->staticname($_[1]), 53 join('', map { sprintf "%02d", $_ } split(m|\.|, $config{shlib_version})); 58 return platform::BASE::__concat($_[0]->osslprefix(), 59 platform::BASE->sharedname($_[1]), 60 $_[0]->shlib_version_as_filename(), [all …]
|
/openssl/crypto/modes/asm/ |
H A D | aes-gcm-avx512.pl | 207 my ($reg) = @_; 221 my ($reg) = @_; 233 my ($reg) = @_; 245 my ($reg) = @_; 255 my ($reg) = @_; 265 my ($reg) = @_; 289 my ($idx, $base) = @_; 298 my ($idx, $base) = @_; 516 my $GCM128_CTX = $_[0]; 896 if (scalar(@_) == 21) { [all …]
|
/openssl/util/ |
H A D | mknum.pl | 50 $ordinals->items(comparator => sub { $_[0] cmp $_[1] }, 64 $_->{value} = $_->{value}||""; 65 next if grep { $_ eq 'CONST_STRICT' } @{$_->{conds}}; 67 $_->{type}, 68 $_->{name}, 74 if ($_->{type} eq 'M' 78 $ordinals->add_alias($f, $_->{value}, $_->{name}, @{$_->{conds}}); 84 } -> {$_->{type}}; 86 $ordinals->add($f, $_->{name}, $type, @{$_->{conds}}); 97 $ordinals->items(comparator => sub { $_[0] cmp $_[1] }, [all …]
|
H A D | mkdef.pl | 180 return $platforms{$_} == $OS->{platforms}->{$_}; 182 if ($platforms{$_}) { 254 for (@_) { 286 for (@_) { 287 print $_->name(),"\n"; 292 for (@_) { 307 for (@_) { 343 foreach (@_) { 353 } -> {$_->type()}; 378 + length($_) [all …]
|
/openssl/ |
H A D | Configure | 1224 grep { defined $_ && (ref $_ ne 'ARRAY' || @$_) } values %useradd; 1277 my @tocheckfor = (@_ ? @_ : keys %disabled); 1383 $found=$_ if $table{$_} && !$table{$_}->{template}; 1487 push @{$config{$_}}, @{$useradd{$_}}; 1489 $config{$_} = [ @{$useradd{$_}} ]; 1883 $target{$_} = defined $target{$_} 1884 ? add($si->{$_})->($target{$_}) 3146 if (ref($_[$#_]) eq "HASH") { 3155 if (ref($_[$#_]) eq "HASH") { 3198 $preexisting{$_} = 1 if $table{$_}; [all …]
|
/openssl/util/perl/OpenSSL/ |
H A D | Test.pm | 474 local $_; 786 $saved_hooks{$_} = $hooks{$_} if exists($hooks{$_}); 787 $hooks{$_} = $opts{$_}; 793 $hooks{$_} = $saved_hooks{$_}; 907 return ok(!$_[0], @_[1..$#_]) if defined $ENV{FIPS_MODE}; 908 return ok($_[0], @_[1..$#_]); 912 return isnt($_[0], $_[1], @_[2..$#_]) if defined $ENV{FIPS_MODE}; 913 return is($_[0], $_[1], @_[2..$#_]); 917 return is($_[0], $_[1], @_[2..$#_]) if defined $ENV{FIPS_MODE}; 918 return isnt($_[0], $_[1], @_[2..$#_]); [all …]
|
H A D | ParseC.pm | 87 if (ref($_[$#_]) eq "HASH") { 88 %opts = %{$_[$#_]}; 101 %opts = %{$_[$#_]}; 114 %opts = %{$_[$#_]}; 131 %opts = %{$_[$#_]}; 191 %opts = %{$_[$#_]}; 208 %opts = %{$_[$#_]}; 227 %opts = %{$_[$#_]}; 781 if (ref($_[$#_]) eq "HASH") { 782 %opts = %{$_[$#_]}; [all …]
|
H A D | Ordinals.pm | 83 my %opts = @_; 183 $_->number($_->intnum()) if $_->number() =~ m|^\?|; 206 my %opts = @_; 227 my %opts = @_; 269 my %opts = @_; 341 delete $features{$_} if $features{$_} == 2; 564 $alias_platforms{$_} = !$platforms{$_}; 789 return $class->new( map { $_ => $_[0]->{$_} } keys %{$_[0]} ); 957 join(',', (map { ($platforms{$_} ? '' : '!') . $_ } 987 return sub { $_[0]->name() cmp $_[1]->name() }; [all …]
|
H A D | Util.pm | 105 my $s = shift @_; 125 quotify1($_); 127 } @_; 152 ($_ eq '' || /\s|[\{\}\\\$\[\]\*\?\|\&:;<>]/) ? "'$_'" : $_ }; 156 $_ = shift; 161 $_; 166 $_ = shift; 171 $_; 176 return ( map { $arg_formatter->($_) } @_ ); 268 my %opts = @_; [all …]
|
/openssl/util/perl/OpenSSL/Config/ |
H A D | Query.pm | 71 my %opts = @_; 107 foreach (@_) { 110 grep { $_ =~ m|\.a$| } @{$self->{info}->{depends}->{$_} // []}; 114 my @parts = map { @{$_} } values %parts; 125 ( ( map { @{$_} } values %parts ), 150 return { map { $_ => $self->{config}->{$_} } @_ }; 160 my %conds = @_; # key => type 163 my %optnames = map { $_ => 1 } keys %$opts; 165 delete $optnames{$_}; 171 if (defined $conds{$_} && defined $opts->{$_} [all …]
|
/openssl/providers/common/der/ |
H A D | oids_to_c.pm | 28 my @oid_nums = @_; 34 my $C_bytes_size = 2 + scalar @_; 47 my @oid_nums = @_; 66 my %opts = %{ pop @_ } if ref $_[$#_] eq 'HASH'; 71 foreach my $file (@_) { 78 $_; 101 my %opts = %{ $_[$#_] } if ref $_[$#_] eq 'HASH'; 102 my @OID_names = _process @_; 105 my %leaves = map { $_ => 1 } registered_oid_leaves; 106 foreach (grep { defined $leaves{$_->[0]} } @OID_names) { [all …]
|
/openssl/Configurations/platform/Windows/ |
H A D | MSVC.pm | 21 return platform::BASE::__concat(platform::BASE->sharedname($_[1]), 23 $_[0]->shlib_version_as_filename(), 25 ($_[0]->shlibvariant() // '')); 29 return platform::BASE::__concat($_[0]->staticname($_[1]), $_[0]->pdbext()); 33 return platform::BASE::__concat($_[0]->sharedname($_[1]), $_[0]->pdbext()); 37 return platform::BASE::__concat($_[0]->dsoname($_[1]), $_[0]->pdbext()); 41 return platform::BASE::__concat($_[0]->binname($_[1]), $_[0]->pdbext());
|
/openssl/test/recipes/ |
H A D | 01-test_symbol_presence.t | 45 $stlibpath{$_} = bldtop_file($stlibname{$_}); 47 $shlibpath{$_} = bldtop_file($shlibname{$_}) unless disabled('shared'); 118 foreach (@$_) { 127 @$_ = 135 $_ 143 @$_ ), 155 map { s|;||; s|\s+||g; $_ } 169 $stsymbols{$_} = [ @stlib_lines ]; 172 $defsymbols{$_} = [ @def_lines ]; 183 foreach (@{$stsymbols{$_}}) { [all …]
|
H A D | tconversion.pl | 27 my %opts = @_; 109 $_[0] =~ s/\R//g; 110 $_[1] =~ s/\R//g; 111 return $_[0] ne $_[1]; 118 $_= join('', <DATA>); 140 my ($cert, $expect) = @_; 156 grep { not $seen{$_}++ } @_; 160 my $filename = shift @_; 179 my ($f, $field) = @_; 202 get_not_before(@_), [all …]
|
H A D | 20-test_mac.t | 124 ok(compareline($_->{cmd}, $_->{type}, $_->{input}, $_->{expected}, $_->{err}), $_->{desc}); 128 ok(comparefile($_->{cmd}, $_->{type}, $_->{input}, $_->{expected}), $_->{desc}); 133 ok(compareline($_->{cmd}, $_->{type}, $_->{input}, $_->{expected}, $_->{err}), $_->{desc}); 140 my ($cmdarray_orig, $type, $input, $expect, $err) = @_; 192 my ($cmdarray, $type, $input, $expect) = @_;
|
H A D | 20-test_passwd.t | 107 ok(compare1stline([qw{openssl passwd}, '-'.$_->{type}, '-salt', $_->{salt}, 108 $_->{key}], $_->{expected}), 109 { 5 => 'SHA256', 6 => 'SHA512' }->{$_->{type}} . ' password with salt ' . $_->{salt}); 117 ok(compare1stline([qw{openssl passwd}, '-'.$_->{type}, '-salt', $_->{salt}, 118 $_->{key}], $_->{expected}), 119 { 5 => 'SHA256', 6 => 'SHA512' }->{$_->{type}} . ' password with salt ' . $_->{salt}); 124 my ($cmdarray, $regexp) = @_; 131 my ($cmdarray, $str) = @_;
|
/openssl/providers/implementations/storemgmt/ |
H A D | file_store.c | 103 } _; member 161 ctx->_.file.file = source; in file_open_stream() 178 ctx->_.dir.last_entry = OPENSSL_DIR_read(&ctx->_.dir.ctx, path); in file_open_dir() 179 ctx->_.dir.last_errno = errno; in file_open_dir() 367 BIO_snprintf(ctx->_.dir.search_name, sizeof(ctx->_.dir.search_name), in file_set_ctx_params() 533 ret = OSSL_DECODER_from_bio(ctx->_.file.decoderctx, ctx->_.file.file); in file_load_file() 673 ctx->_.dir.last_entry = OPENSSL_DIR_read(&ctx->_.dir.ctx, ctx->uri); in file_load_dir_entry() 675 if (ctx->_.dir.last_entry == NULL && ctx->_.dir.last_errno == 0) in file_load_dir_entry() 740 if (ctx->_.dir.ctx != NULL) in file_close_dir() 752 BIO_free(ctx->_.file.file); in file_close_stream() [all …]
|