| /openbsd-src/gnu/usr.bin/perl/t/op/ |
| H A D | pack.t | 85 my $foo = pack($format,@ary);
130 is( ($x = unpack("I",pack("I", 0xFFFFFFFF))), 0xFFFFFFFF );
137 my $x = pack('w*', @x);
138 my $y = pack 'H*', '0581028200843081fa0081bd8440ffffff7f8480808014A0808'.
157 $x = pack('w*', 5000000000); $y = '';
160 $y = pack('w*', Math::BigInt::->new(5000000000));
164 $x = pack 'w', ~0;
165 $y = pack 'w', (~0).'';
170 $x = pack 'w', ~0 - 1;
171 $y = pack 'w', (~0) - 2;
[all …]
|
| H A D | utftaint.t | 65 my $utf8 = pack('U*') . $ary->[1];
73 is(pack('a*',$taint), pack('a*',$byte), "bytecmp: $encode, encode utf8");
84 is(pack('a*',$taint), pack('a*',$utf8), "bytecmp: $encode, decode byte");
95 my $up = pack('U*') . $ary->[1];
96 my $down = pack("a*", $ary->[1]);
103 is(pack('a*',$taint), pack('a*',$up), "bytecmp: $encode, upgrade up");
114 is(pack('a*',$taint), pack('a*',$up), "bytecmp: $encode, upgrade down");
125 is(pack('a*',$taint), pack('a*',$down), "bytecmp: $encode, downgrade up");
136 is(pack('a*',$taint), pack('a*',$down), "bytecmp: $encode, downgrade down");
|
| H A D | infnan.t | 126 ok(!defined eval { $a = pack($f, $PInf) }, "pack $f +Inf undef");
127 like($@, $f eq 'w' ? qr/Cannot compress Inf/: qr/Cannot pack Inf/,
130 ok(!defined eval { $a = pack($f, "Inf") },
132 like($@, $f eq 'w' ? qr/Cannot compress Inf/: qr/Cannot pack Inf/,
135 ok(!defined eval { $a = pack($f, $NInf) }, "pack $f -Inf undef");
136 like($@, $f eq 'w' ? qr/Cannot compress -Inf/: qr/Cannot pack -Inf/,
139 ok(!defined eval { $a = pack($f, "-Inf") },
141 like($@, $f eq 'w' ? qr/Cannot compress -Inf/: qr/Cannot pack -Inf/,
148 ok(defined eval { $a = pack($f, $PInf) }, "pack $f +Inf defined");
154 ok(defined eval { $a = pack($f, $NInf) }, "pack $f -Inf defined");
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/t/lib/warnings/ |
| H A D | pp_pack | 4 my $A = pack ("A,A", 1,2) ;
7 Attempt to pack pointer to temporary value
8 pack("p", "abc") ;
12 use warnings 'pack' ;
15 my $a = pack ("A,A", 1,2) ;
16 no warnings 'pack' ;
19 my $b = pack ("A,A", 1,2) ;
22 Invalid type ',' in pack at - line 5.
25 use warnings 'pack' ;
27 my $a = pack("p", &foo) ;
[all …]
|
| /openbsd-src/sys/kern/ |
| H A D | kern_exec.c | 256 struct exec_package pack; in sys_execve() local
296 pack.ep_name = (char *)SCARG(uap, path); in sys_execve()
297 pack.ep_hdr = malloc(exec_maxhdrsz, M_EXEC, M_WAITOK); in sys_execve()
298 pack.ep_hdrlen = exec_maxhdrsz; in sys_execve()
299 pack.ep_hdrvalid = 0; in sys_execve()
300 pack.ep_ndp = &nid; in sys_execve()
301 pack.ep_interp = NULL; in sys_execve()
302 pack.ep_args = NULL; in sys_execve()
303 pack.ep_auxinfo = NULL; in sys_execve()
304 VMCMDSET_INIT(&pack in sys_execve()
811 copyargs(struct exec_package * pack,struct ps_strings * arginfo,void * stack,void * argp) copyargs() argument
[all...] |
| /openbsd-src/gnu/usr.bin/gcc/gcc/testsuite/gcc.dg/ |
| H A D | pack-test-2.c | 6 #pragma pack(push) /* { dg-error "malformed" } */
7 #pragma pack(pop) /* { dg-error "without matching" } */
9 #pragma pack(push, foo, 1)
10 #pragma pack(pop, foo, 1) /* { dg-error "malformed" } (/
13 #pragma pack(push, foo, 1)
14 #pragma pack(pop, bar) /* { dg-error "without matching" } */
15 #pragma pack(pop) /* reset */
17 #pragma pack(push, foo, 1)
18 #pragma pack(pop)
19 #pragma pack(pop, foo) /* { dg-error "without matching" } */
[all …]
|
| H A D | pack-test-1.c | 40 #pragma pack(push, p1, 1)
51 #pragma pack(push, p2, 2)
62 #pragma pack(push, p3, 4)
73 #pragma pack(pop)
84 #pragma pack(pop, p2)
95 #pragma pack(pop, p1)
106 #pragma pack(1)
117 #pragma pack(push, p2, 2)
128 #pragma pack(pop)
139 #pragma pack()
|
| H A D | pragma-align.c | 10 #pragma pack(4)
16 #pragma pack(1)
22 #pragma pack(2)
28 #pragma pack()
|
| /openbsd-src/gnu/llvm/compiler-rt/lib/gwp_asan/tests/ |
| H A D | compression.cpp | 19 EXPECT_EQ(1u, pack(&Uncompressed, 1u, Compressed, sizeof(Compressed))); in TEST()
23 EXPECT_EQ(1u, pack(&Uncompressed, 1u, Compressed, sizeof(Compressed))); in TEST()
27 EXPECT_EQ(1u, pack(&Uncompressed, 1u, Compressed, sizeof(Compressed))); in TEST()
35 EXPECT_EQ(2u, pack(&Uncompressed, 1u, Compressed, sizeof(Compressed))); in TEST()
40 EXPECT_EQ(2u, pack(&Uncompressed, 1u, Compressed, sizeof(Compressed))); in TEST()
45 EXPECT_EQ(2u, pack(&Uncompressed, 1u, Compressed, sizeof(Compressed))); in TEST()
50 EXPECT_EQ(3u, pack(&Uncompressed, 1u, Compressed, sizeof(Compressed))); in TEST()
56 EXPECT_EQ(5u, pack(&Uncompressed, 1u, Compressed, sizeof(Compressed))); in TEST()
68 EXPECT_EQ(2u, pack(Uncompressed, sizeof(Uncompressed) / sizeof(uintptr_t), in TEST()
73 EXPECT_EQ(2u, pack(Uncompressed, sizeof(Uncompressed) / sizeof(uintptr_t), in TEST()
[all …]
|
| /openbsd-src/gnu/usr.bin/binutils/gdb/testsuite/gdb.base/ |
| H A D | long_long.c | 35 pack (unsigned char b[MAX_BYTES], int size, int nr) in pack() function
89 pack (b, 1, 2); in main()
90 pack (h, 2, 2); in main()
91 pack (w, 4, 2); in main()
92 pack (g, 8, 2); in main()
93 pack (c, sizeof (char), 2); in main()
94 pack (s, sizeof (short), 2); in main()
95 pack (i, sizeof (int), 2); in main()
96 pack (l, sizeof (long), 2); in main()
97 pack (ll, sizeof (long long), 2); in main()
|
| /openbsd-src/gnu/llvm/compiler-rt/lib/sanitizer_common/tests/ |
| H A D | sanitizer_stack_store_test.cpp | 74 uptr pack = 0; in TEST_F() local
75 EXPECT_EQ(0u, store_.Store({}, &pack)); in TEST_F()
83 uptr pack = 0; in TEST_F() local
84 ids.push_back(store_.Store(s, &pack)); in TEST_F()
101 uptr pack = 0; in TEST_F() local
102 ids.push_back(store_.Store(s, &pack)); in TEST_F()
115 uptr pack = 0; in TEST_F() local
116 StackStore::Id id = store_.Store(s, &pack); in TEST_F()
119 EXPECT_EQ(1u, pack); in TEST_F()
122 EXPECT_EQ(0u, pack); in TEST_F()
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Encode/t/ |
| H A D | Unicode.t | 39 pack("C*", map {hex($_)} qw<5c 0f 98 fc 30 00 5f 3e d8 2a df cd>);
41 pack("C*", map {hex($_)} qw<0f 5c fc 98 00 30 3e 5f 2a d8 cd df>);
43 pack("C*", map {hex($_)} qw<5c 0f 98 fc 30 00 5f 3e ff fd>);
45 pack("C*", map {hex($_)} qw<0f 5c fc 98 00 30 3e 5f fd ff>);
47 pack("C*", map {hex($_)}
50 pack("C*", map {hex($_)}
53 my $n_16bb = pack('n', 0xFeFF) . $n_16be;
54 my $n_16lb = pack('v', 0xFeFF) . $n_16le;
55 my $n_32bb = pack('N', 0xFeFF) . $n_32be;
56 my $n_32lb = pack('
[all...] |
| H A D | encoding.t | 57 print "not " unless ord(pack("C", 0xdf)) == 0x3af;
60 # we didn't break pack/unpack, I hope
62 print "not " unless unpack("C", pack("C", 0xdf)) == 0xdf;
69 print "not " unless unpack("U", pack("U", 0xdf)) == 0xdf;
110 pack("C*", 0xDF ), # byte
111 pack("C*", 0xDF, 0x20), # ($bytes2 cmp $U) > 0
112 pack("U*", 0x3AF), # $U eq $byte
113 pack("U*", 0xDF ), # $Ub would eq $bytev w/o use encoding
114 pack("U*", 0x3B1), # ($g1 cmp $byte) > 0; === chr(0xe1)
115 pack("
[all...] |
| /openbsd-src/gnu/usr.bin/perl/lib/DBM_Filter/t/ |
| H A D | int32.t | 87 pack("i", 400) => pack("i", 500),
88 pack("i", 0) => pack("i", 1),
89 pack("i", 1) => pack("i", 0),
90 pack("i", -47) => pack("i", -6),
|
| /openbsd-src/gnu/usr.bin/perl/utils/ |
| H A D | pl2pm.PL | 150 my ($prefix, $pack, $ident,$newpack,$oldpack,$export) = @_;
154 $xlated = "${pack}'$ident";
156 elsif ($pack eq '' || $pack eq 'main') {
161 $xlated = "$prefix${pack}::$ident";
164 elsif ($pack eq $oldpack) {
168 $xlated = "$prefix${pack}::$ident";
|
| /openbsd-src/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/ |
| H A D | Module.pm | 448 my $pack = $CPAN::META->instance('CPAN::Distribution',$cpan_file);
449 $pack->called_for($self->id);
452 $pack->fforce($meth);
454 $pack->force($meth);
457 $pack->notest($meth) if exists $self->{notest} && $self->{notest};
459 $pack->{reqtype} ||= "";
460 CPAN->debug("dist-reqtype[$pack->{reqtype}]".
462 if ($pack->{reqtype}) {
463 if ($pack->{reqtype} eq "b" && $self->{reqtype} =~ /^[rc]$/) {
464 $pack->{reqtype} = $self->{reqtype};
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/ext/B/B/ |
| H A D | Xref.pm | 172 my ($pack, $type, $name) = @$var;
183 $file, $subname, $line, $pack, $type, $name, $event;
186 push(@{$table{$file}->{$subname}->{$pack}->{$type.$name}->{$event}},
250 my $pack = $cv->GV->STASH->NAME;
251 $subname = ($pack eq "main" ? "" : "$pack\::") . $cv->GV->NAME;
399 my ($pack, %exclude);
402 foreach $pack (qw(B O AutoLoader DynaLoader XSLoader Config DB VMS
405 $exclude{$pack."::"} = 1;
413 my ($file, $subname, $pack, $name, $ev, $perfile, $persubname,
421 foreach $pack (sort(keys(%$persubname))) {
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/pod/ |
| H A D | perlpacktut.pod | 3 perlpacktut - tutorial on C<pack> and C<unpack>
7 C<pack> and C<unpack> are two functions for transforming data according
24 representational conversion provided by C<pack> and C<unpack> is an
25 excellent alternative. The C<pack> function converts values to a byte
76 my $s = pack( 'H2' x 10, 30..39 );
79 Since we feed a list of ten 2-digit hexadecimal strings to C<pack>, the
80 pack template should contain ten pack codes. If this is run on a computer
122 if you use the right tools. C<pack> and C<unpack> are designed to help
144 column 10 - ten characters wide. The C<pack>-ese for "character" is
201 print pack("A10xA27xA7xA*", $date, "Totals",
[all …]
|
| /openbsd-src/gnu/llvm/lldb/examples/python/ |
| H A D | operating_system.py | 112 return struct.pack(
136 return struct.pack(
160 return struct.pack(
184 return struct.pack(
208 return struct.pack(
|
| H A D | memory.py | 64 parser.values.data += struct.pack('1B', int8)
67 parser.values.data += struct.pack('1H', int16)
70 parser.values.data += struct.pack('1I', int32)
73 parser.values.data += struct.pack('1Q', int64)
76 parser.values.data += struct.pack('1b', int8)
79 parser.values.data += struct.pack('1h', int16)
82 parser.values.data += struct.pack('1i', int32)
85 parser.values.data += struct.pack('1q', int64)
|
| /openbsd-src/gnu/usr.bin/binutils/cpu/ |
| H A D | frv.cpu | 1514 (dnf f-pack "packing bit" () 31 1)
2594 (name h-pack)
2669 (dnop pack "packing bit" () h-pack f-pack)
2988 (.str name "$pack $GRi,$GRj,$GRk")
2989 (+ pack GRk op GRi (ICCi_1-null) ope GRj)
3005 ("not$pack $GRj,$GRk")
3006 (+ pack GRk OP_01 (rs-null) (ICCi_1-null) OPE2_06 GRj)
3015 "sdiv$pack $GRi,$GRj,$GRk"
3016 (+ pack GRk OP_00 GRi (ICCi_1-null) OPE2_0E GRj)
3029 "nsdiv$pack $GRi,$GRj,$GRk"
[all …]
|
| /openbsd-src/gnu/usr.bin/binutils-2.17/cpu/ |
| H A D | frv.cpu | 1920 (dnf f-pack "packing bit" () 31 1)
3032 (name h-pack)
3107 (dnop pack "packing bit" () h-pack f-pack)
3446 (.str name "$pack $GRi,$GRj,$GRk")
3447 (+ pack GRk op GRi (ICCi_1-null) ope GRj)
3464 ("not$pack $GRj,$GRk")
3465 (+ pack GRk OP_01 (rs-null) (ICCi_1-null) OPE2_06 GRj)
3475 "sdiv$pack $GRi,$GRj,$GRk"
3476 (+ pack GRk OP_00 GRi (ICCi_1-null) OPE2_0E GRj)
3489 "nsdiv$pack $GRi,$GRj,$GRk"
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/cpan/IPC-SysV/t/ |
| H A D | shm.t | 67 ok($shm->write(pack("N", 4711), 0, 4), 'write(offs=0)');
68 ok($shm->write(pack("N", 210577), 4, 4), 'write(offs=4)');
70 is($shm->read(0, 4), pack("N", 4711), 'read(offs=0)');
71 is($shm->read(4, 4), pack("N", 210577), 'read(offs=4)');
81 is($shm->read(0, 4), pack("N", 4711), 'read(offs=0)');
82 is($shm->read(4, 4), pack("N", 210577), 'read(offs=4)');
|
| /openbsd-src/usr.sbin/smtpd/ |
| H A D | dns.c | 229 struct unpack pack; in dns_dispatch_mx() local
253 unpack_init(&pack, ar->ar_data, ar->ar_datalen); in dns_dispatch_mx()
254 unpack_header(&pack, &h); in dns_dispatch_mx()
255 unpack_query(&pack, &q); in dns_dispatch_mx()
259 unpack_rr(&pack, &rr); in dns_dispatch_mx()
295 struct unpack pack; in dns_dispatch_mx_preference() local
313 unpack_init(&pack, ar->ar_data, ar->ar_datalen); in dns_dispatch_mx_preference()
314 unpack_header(&pack, &h); in dns_dispatch_mx_preference()
315 unpack_query(&pack, &q); in dns_dispatch_mx_preference()
317 unpack_rr(&pack, &rr); in dns_dispatch_mx_preference()
|
| /openbsd-src/gnu/usr.bin/perl/dist/Carp/lib/ |
| H A D | Carp.pm | 29 my($pack, $sub) = @_;
30 $pack .= '::';
32 return unless exists($::{$pack});
33 for ($::{$pack}) {
196 my $pack = ref $_[0];
201 return "$_[0]" unless _mycan($pack, "()");
207 bless $_[0], $pack;
208 $pack . substr $str, index $str, "=";
401 if ( my $pack= ref($arg) ) {
|