| … | |
… | |
| 7 | #include <stdlib.h> |
7 | #include <stdlib.h> |
| 8 | #include <stdio.h> |
8 | #include <stdio.h> |
| 9 | #include <limits.h> |
9 | #include <limits.h> |
| 10 | #include <float.h> |
10 | #include <float.h> |
| 11 | |
11 | |
|
|
12 | #define ECB_NO_THREADS 1 |
| 12 | #include "ecb.h" |
13 | #include "ecb.h" |
| 13 | |
14 | |
| 14 | // compatibility with perl <5.18 |
15 | // compatibility with perl <5.18 |
| 15 | #ifndef HvNAMELEN_get |
16 | #ifndef HvNAMELEN_get |
| 16 | # define HvNAMELEN_get(hv) strlen (HvNAME (hv)) |
17 | # define HvNAMELEN_get(hv) strlen (HvNAME (hv)) |
| … | |
… | |
| 323 | |
324 | |
| 324 | ++enc->depth; |
325 | ++enc->depth; |
| 325 | |
326 | |
| 326 | encode_uint (enc, MAJOR_ARRAY, len + 1); |
327 | encode_uint (enc, MAJOR_ARRAY, len + 1); |
| 327 | |
328 | |
|
|
329 | if (SvMAGICAL (av)) |
| 328 | for (i = 0; i <= len; ++i) |
330 | for (i = 0; i <= len; ++i) |
| 329 | { |
331 | { |
| 330 | SV **svp = av_fetch (av, i, 0); |
332 | SV **svp = av_fetch (av, i, 0); |
| 331 | encode_sv (enc, svp ? *svp : &PL_sv_undef); |
333 | encode_sv (enc, svp ? *svp : &PL_sv_undef); |
| 332 | } |
334 | } |
|
|
335 | else |
|
|
336 | for (i = 0; i <= len; ++i) |
|
|
337 | { |
|
|
338 | SV *sv = AvARRAY (av)[i]; |
|
|
339 | encode_sv (enc, sv ? sv : &PL_sv_undef); |
|
|
340 | } |
| 333 | |
341 | |
| 334 | --enc->depth; |
342 | --enc->depth; |
| 335 | } |
343 | } |
| 336 | |
344 | |
| 337 | static void |
345 | static void |
| … | |
… | |
| 736 | { |
744 | { |
| 737 | // for speed reasons, we specialcase single-string |
745 | // for speed reasons, we specialcase single-string |
| 738 | // byte or utf-8 strings as keys, but only when !stringref |
746 | // byte or utf-8 strings as keys, but only when !stringref |
| 739 | |
747 | |
| 740 | if (ecb_expect_true (!dec->stringref)) |
748 | if (ecb_expect_true (!dec->stringref)) |
| 741 | if (ecb_expect_true ((*dec->cur - MAJOR_BYTES) <= LENGTH_EXT8)) |
749 | if (ecb_expect_true ((U8)(*dec->cur - MAJOR_BYTES) <= LENGTH_EXT8)) |
| 742 | { |
750 | { |
| 743 | I32 len = decode_uint (dec); |
751 | I32 len = decode_uint (dec); |
| 744 | char *key = (char *)dec->cur; |
752 | char *key = (char *)dec->cur; |
| 745 | |
753 | |
| 746 | dec->cur += len; |
754 | dec->cur += len; |
| 747 | |
755 | |
| 748 | hv_store (hv, key, len, decode_sv (dec), 0); |
756 | hv_store (hv, key, len, decode_sv (dec), 0); |
| 749 | |
757 | |
| 750 | return; |
758 | return; |
| 751 | } |
759 | } |
| 752 | else if (ecb_expect_true ((*dec->cur - MAJOR_TEXT) <= LENGTH_EXT8)) |
760 | else if (ecb_expect_true ((U8)(*dec->cur - MAJOR_TEXT) <= LENGTH_EXT8)) |
| 753 | { |
761 | { |
| 754 | I32 len = decode_uint (dec); |
762 | I32 len = decode_uint (dec); |
| 755 | char *key = (char *)dec->cur; |
763 | char *key = (char *)dec->cur; |
| 756 | |
764 | |
| 757 | dec->cur += len; |
765 | dec->cur += len; |
