| /openbsd-src/gnu/usr.bin/perl/cpan/Win32API-File/ |
| H A D | cFile.pc | 11 sub CREATE_ALWAYS () { 2 } 12 sub CREATE_NEW () { 1 } 13 sub DDD_EXACT_MATCH_ON_REMOVE () { 4 } 14 sub DDD_RAW_TARGET_PATH () { 1 } 15 sub DDD_REMOVE_DEFINITION () { 2 } 16 sub DRIVE_CDROM () { 5 } 17 sub DRIVE_FIXED () { 3 } 18 sub DRIVE_NO_ROOT_DIR () { 1 } 19 sub DRIVE_RAMDISK () { 6 } 20 sub DRIVE_REMOTE () { 4 } [all …]
|
| /openbsd-src/gnu/usr.bin/binutils/gdb/testsuite/gdb.disasm/ |
| H A D | t04_sub.s | 8 sub.b #0x12:8,@er1 ;7d10a112 9 sub.b #0x12:8,@(0x3:2,er1) ;01776818a112 10 sub.b #0x12:8,@er1+ ;01746c18a112 11 sub.b #0x12:8,@-er1 ;01776c18a112 12 sub.b #0x12:8,@+er1 ;01756c18a112 13 sub.b #0x12:8,@er1- ;01766c18a112 14 sub.b #0x12:8,@(0x1234:16,er1) ;01746e181234a112 15 sub.b #0x12:8,@(0x12345678:32,er1) ;78146a2812345678a112 16 sub.b #0x12:8,@(0x1234:16,r2l.b) ;01756e281234a112 17 sub.b #0x12:8,@(0x1234:16,r2.w) ;01766e281234a112 [all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/autodie/lib/autodie/ |
| H A D | hints.pm | 22 sub AUTODIE_HINTS { 46 fail => sub { $_[0] <= 0 } 94 written into the module itself, or into a helper module or sub-class 130 { scalar => sub { !defined($_[0]) } } 133 { scalar => sub { ! $_[0] } } 136 { scalar => sub { defined($_[0]) && $_[0] eq '0' } } 139 { list => sub { !@_ } } 142 { list => sub { ! @_ || @_ == 1 && !defined $_[0] } } 145 { list => sub { ! @_ || @_ == 1 && !$_[0] } } 148 { list => sub { [all...] |
| /openbsd-src/gnu/usr.bin/perl/t/lib/ |
| H A D | h2ph.pht | 5 eval 'sub SQUARE { 10 eval 'sub ERROR { 18 eval 'sub NOT_DEFINED_HERE () { 22 eval 'sub _H2PH_H_ () {1;}' unless defined(&_H2PH_H_); 25 eval 'sub MAX { 29 eval 'sub NOTTRUE () {0;}' unless defined(&NOTTRUE); 32 eval 'sub MIN { 42 eval 'sub EVERYTHING_IS_OK () {1;}' unless defined(&EVERYTHING_IS_OK); 46 eval 'sub WHATEVER () {6;}' unless defined(&WHATEVER); 49 eval 'sub WHATEVE [all...] |
| /openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/t/ |
| H A D | gv_autoload4.t | 19 my $sub = "nothing"; 21 ok my $glob = XS::APItest::gv_autoload_type(\%::, $sub, 1, $method); 22 *{$glob}{CODE}->( __PACKAGE__ . "::" . $sub, '$AUTOLOAD set correctly' ); 24 $sub = "some_sub"; 26 …is $glob = XS::APItest::gv_autoload_type(\%::, $sub, $type, $method), "*main::AUTOLOAD", "*main::A… 27 *{$glob}{CODE}->( __PACKAGE__ . "::" . $sub, '$AUTOLOAD set correctly' ); 30 $sub = "method\0not quite!"; 32 ok $glob = XS::APItest::gv_autoload_type(\%::, $sub, 0, $method); 33 *{$glob}{CODE}->( __PACKAGE__ . "::" . $sub, "gv_autoload4() is nul-clean"); 35 ok $glob = XS::APItest::gv_autoload_type(\%::, $sub, 1, $method); [all …]
|
| H A D | cv_name.t | 6 is (cv_name(\&foo), 'main::foo', 'cv_name with package sub'); 8 'cv_name with package sub via glob'); 11 state sub lex1; 12 is (cv_name(\&lex1), 'lex1', 'cv_name with lexical sub'); 15 is $ret, \$name, 'cv_name with package sub returns 2nd argument'; 16 is ($name, 'main::bar', 'retval of cv_name with package sub & 2nd arg'); 18 is $ret, \$name, 'cv_name with package sub via glob returns 2nd argument'; 19 is ($name, 'main::bar', 'retval of cv_name w/pkg sub via glob & 2nd arg'); 26 state sub lex2; 28 is $ret, \$name, 'cv_name with lexical sub returns 2nd argument'; [all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Harness/t/ |
| H A D | harness-bailout.t | 5 sub new { 12 sub start {} 13 sub stop {} 15 sub add { 27 sub new { 34 sub result { 39 sub close_test { 49 sub new { 56 sub summary { 65 sub verbosit [all...] |
| /openbsd-src/gnu/usr.bin/perl/cpan/Memoize/t/ |
| H A D | basic.t | 8 my ( $sub, $wrapped ); 10 sub dummy {1} 11 $sub = \&dummy; 13 isnt \&dummy, $sub, 'memoizing replaces the sub'; 17 sub dummy_i {1} 18 $sub = \&dummy_i; 20 is \&dummy_i, $sub, 'INSTALL does not replace the sub'; 23 sub dummy_p {1} 24 $sub = \&dummy_p; 28 sub find_sub { [all …]
|
| H A D | normalize.t | 5 sub n_null { '' } 8 sub n_diff { $I++ } 12 sub a1 { $I++; "$_[0]-$I" } 14 sub a2 { $J++; "$_[0]-$J" } 16 sub a3 { $K++; "$_[0]-$K" } 33 sub parity { $COUNT++; $_[0] % 2 } 34 sub parnorm { $_[0] % 2 } 41 sub par2 { $COUNT++; $_[0] % 2 } 47 sub count_uninitialized { $COUNT += join('', @_) =~ /\AUse of uninitialized value / } 48 my $war1 = memoize(sub {1}, NORMALIZER => sub {undef}); [all …]
|
| /openbsd-src/gnu/usr.bin/perl/dist/Carp/t/ |
| H A D | stash_deletion.t | 9 my $sub = eval <<'EVAL'; 17 eval { $sub->() }; 23 eval { $sub->() }; 28 my $sub = eval <<'EVAL'; 36 eval { $sub->() }; 42 eval { $sub->() }; 47 my $sub = eval <<'EVAL'; 59 eval { $sub->() }; 65 eval { $sub->() }; 71 eval { $sub->() }; [all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/ |
| H A D | Hub.pm | 41 sub init { 67 sub is_subtest { 0 } 69 sub _tb_reset { 84 sub reset_state { 97 sub inherit { 125 sub format { 134 sub is_local { 140 sub listen { 142 my ($sub, %params) = @_; 147 croak "listen only takes coderefs for arguments, got '$sub'" [all...] |
| /openbsd-src/gnu/usr.bin/perl/t/lib/warnings/ |
| H A D | pad | 8 sub x { 10 sub y { 11 sub { $x } 15 sub x { 17 sub y { 130 sub x { 132 sub y { 141 sub x { 143 sub y { 152 sub x { [all …]
|
| /openbsd-src/gnu/llvm/llvm/utils/UpdateTestChecks/ |
| H A D | asm.py | 250 asm = common.SCRUB_WHITESPACE_RE.sub(r' ', asm) 256 asm = SCRUB_X86_SHUFFLES_NO_MEM_RE.sub(r'\1 {{.*#+}} \2', asm) 258 asm = SCRUB_X86_SHUFFLES_RE.sub(r'\1 {{.*#+}} \2', asm) 262 asm = SCRUB_X86_SPILL_RELOAD_RE.sub(r'{{[-0-9]+}}(%\1{{[sb]}}p)\2', asm) 265 asm = SCRUB_X86_SP_RE.sub(r'{{[0-9]+}}(%\1)', asm) 268 asm = SCRUB_X86_RIP_RE.sub(r'{{.*}}(%rip)', asm) 270 asm = SCRUB_X86_LCP_RE.sub(r'{{\.?LCPI[0-9]+_[0-9]+}}', asm) 273 asm = SCRUB_X86_RET_RE.sub(r'ret{{[l|q]}}', asm) 275 asm = common.SCRUB_KILL_COMMENT_RE.sub('', asm) 277 asm = common.SCRUB_TRAILING_WHITESPACE_RE.sub(r'', asm) [all …]
|
| /openbsd-src/gnu/usr.bin/gcc/gcc/ |
| H A D | ggc-simple.c | 76 struct ggc_mem *sub[2]; member 139 pp = &p->sub[v_key < p_key]; 158 p = p->sub[v_key < p_key]; 173 x->sub[0] = NULL; 174 x->sub[1] = NULL; 249 if (x->sub[0]) 250 clear_marks (x->sub[0]); 251 if (x->sub[1]) 252 clear_marks (x->sub[1]); 265 sweep_objs (&x->sub[0]); [all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/behavior/ |
| H A D | Subtest_buffer_formatter.t | 10 sub write { } 11 sub hide_buffered { 1 } 12 sub terminate { } 13 sub finalize { } 16 sub write { } 17 sub hide_buffered { 0 } 18 sub terminate { } 19 sub finalize { } 22 sub write { } 23 sub terminate { } [all …]
|
| /openbsd-src/gnu/llvm/lld/wasm/ |
| H A D | SyntheticSections.cpp | 68 SubSection sub(WASM_DYLINK_MEM_INFO); in writeBody() local 69 writeUleb128(sub.os, memSize, "MemSize"); in writeBody() 70 writeUleb128(sub.os, memAlign, "MemAlign"); in writeBody() 71 writeUleb128(sub.os, out.elemSec->numEntries(), "TableSize"); in writeBody() 72 writeUleb128(sub.os, 0, "TableAlign"); in writeBody() 73 sub.writeTo(os); in writeBody() 77 SubSection sub(WASM_DYLINK_NEEDED); in writeBody() local 78 writeUleb128(sub.os, symtab->sharedFiles.size(), "Needed"); in writeBody() 80 writeStr(sub.os, llvm::sys::path::filename(so->getName()), "so name"); in writeBody() 81 sub.writeTo(os); in writeBody() [all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/autodie/lib/ |
| H A D | Fatal.pm | 338 # The first time we're called with a user-sub, we cache it here. 369 sub import { 477 # If so, remove it, and insist we have hints for this sub. 492 my $sub = $func; 493 $sub = "${pkg}::$sub" unless $sub =~ /::/; 499 if (! $lexical and $^H{$NO_PACKAGE}{$sub}) { 504 # the sub fatal. Note that _make_fatal returns the 505 # old (original) version of the sub, o [all...] |
| /openbsd-src/gnu/usr.bin/perl/cpan/NEXT/t/ |
| H A D | next.t | 10 sub A::method { return ( 3, $_[0]->NEXT::method() ) } 11 sub A::DESTROY { $_[0]->NEXT::DESTROY() } 12 sub A::evaled { eval { $_[0]->NEXT::evaled(); return 'evaled' } } 17 sub B::AUTOLOAD { return ( 9, $_[0]->NEXT::AUTOLOAD() ) 19 sub B::DESTROY { $_[0]->NEXT::DESTROY() } 22 sub C::DESTROY { print "ok 25\n"; $_[0]->NEXT::DESTROY() } 26 sub D::method { return ( 2, $_[0]->NEXT::method() ) } 27 sub D::AUTOLOAD { return ( 8, $_[0]->NEXT::AUTOLOAD() ) } 28 sub D::DESTROY { print "ok 24\n"; $_[0]->NEXT::DESTROY() } 29 sub D::oops { $_[0]->NEXT::method() } [all …]
|
| H A D | dynamically_scoped_regex_vars.t | 10 sub test_next { shift->NEXT::test_next(@_); } 11 sub test_next_distinct { shift->NEXT::DISTINCT::test_next_distinct(@_); } 12 sub test_next_actual { shift->NEXT::ACTUAL::test_next_actual(@_); } 13 sub test_next_actual_distinct { shift->NEXT::ACTUAL::DISTINCT::test_next_actual_distinct(@_); } 14 sub test_every { shift->EVERY::test_every(@_); } 15 sub test_every_last { shift->EVERY::LAST::test_every_last(@_); } 18 sub test_next { $_[1]; } 19 sub test_next_distinct { $_[1]; } 20 sub test_next_actual { $_[1]; } 21 sub test_next_actual_distinct { $_[1]; } [all …]
|
| /openbsd-src/gnu/llvm/llvm/tools/llvm-pdbutil/ |
| H A D | llvm-pdbutil.cpp | 161 cl::OneOrMore, cl::sub(DiaDumpSubcommand)); 164 cl::sub(DiaDumpSubcommand)); 168 cl::sub(DiaDumpSubcommand)); 172 cl::sub(DiaDumpSubcommand)); 178 cl::sub(DiaDumpSubcommand)); 181 cl::sub(DiaDumpSubcommand)); 183 cl::sub(DiaDumpSubcommand)); 185 cl::sub(DiaDumpSubcommand)); 188 cl::sub(DiaDumpSubcommand)); 191 cl::sub(DiaDumpSubcommand)); [all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/ |
| H A D | exotic_names.t | 22 sub compile_named_sub { 24 my $sub = eval "sub $fullname { $body }" . '\\&{$fullname}'; 25 return $sub if $sub; 31 sub caller3_ok { 32 my ( $sub, $expected, $type, $ord ) = @_; 53 my $stash_name = join '::', map { $_->STASH->NAME, $_->NAME } svref_2object($sub)->GV; 56 is $sub->(), $expected, "caller() in $type returns correct name $for_what"; 58 skip '%DB::sub not populated when enabled at runtime', 1 59 unless keys %DB::sub; 61 my ($db_found) = grep /^$prefix/, keys %DB::sub; [all …]
|
| /openbsd-src/sys/arch/arm/arm/ |
| H A D | bcopyinout.S | 103 sub r2, r2, #1 106 sub r2, r2, #1 109 sub r2, r2, #1 146 sub r2, r2, #4 149 sub r2, r2, #4 152 sub r2, r2, #4 155 sub r2, r2, #4 158 sub r2, r2, #4 161 sub r2, r2, #4 164 sub r2, r2, #4 [all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/ |
| H A D | API.t | 66 sub DESTROY { 76 sub { 85 *Test2::API::Instance::set_exit = sub { 110 my $sub1 = sub { 135 $CLASS->can('test2_add_callback_post_load')->(sub { $ran++ }); 163 sub tool_a($;$) { 194 sub { 196 sub { 212 sub { 214 sub { [all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Math-BigInt/t/ |
| H A D | downgrade.t | |
| /openbsd-src/gnu/usr.bin/texinfo/intl/ |
| H A D | localename.c | 743 int primary, sub; in _nl_locale_name() local 765 sub = SUBLANGID (langid); in _nl_locale_name() 776 switch (sub) in _nl_locale_name() 799 switch (sub) in _nl_locale_name() 810 switch (sub) in _nl_locale_name() 822 switch (sub) in _nl_locale_name() 839 switch (sub) in _nl_locale_name() 850 switch (sub) in _nl_locale_name() 858 switch (sub) in _nl_locale_name() 889 switch (sub) in _nl_locale_name() [all …]
|