Searched refs:hek (Results 1 – 8 of 8) sorted by relevance
| /mirbsd/src/gnu/usr.bin/perl/ |
| D | hv.h | 13 typedef struct hek HEK;
23 struct hek { struct
288 #define HEK_HASH(hek) (hek)->hek_hash argument
289 #define HEK_LEN(hek) (hek)->hek_len argument
290 #define HEK_KEY(hek) (hek)->hek_key argument
291 #define HEK_FLAGS(hek) (*((unsigned char *)(HEK_KEY(hek))+HEK_LEN(hek)+1)) argument
311 #define HEK_UTF8(hek) (HEK_FLAGS(hek) & HVhek_UTF8) argument
312 #define HEK_UTF8_on(hek) (HEK_FLAGS(hek) |= HVhek_UTF8) argument
313 #define HEK_UTF8_off(hek) (HEK_FLAGS(hek) &= ~HVhek_UTF8) argument
314 #define HEK_WASUTF8(hek) (HEK_FLAGS(hek) & HVhek_WASUTF8) argument
[all …]
|
| D | hv.c | 95 register HEK *hek; in S_save_hek_flags() local
98 hek = (HEK*)k; in S_save_hek_flags()
99 Copy(str, HEK_KEY(hek), len, char); in S_save_hek_flags()
100 HEK_KEY(hek)[len] = 0; in S_save_hek_flags() local
101 HEK_LEN(hek) = len; in S_save_hek_flags()
102 HEK_HASH(hek) = hash; in S_save_hek_flags()
103 HEK_FLAGS(hek) = (unsigned char)flags_masked; in S_save_hek_flags()
107 return hek; in S_save_hek_flags()
217 HE *hek; in Perl_hv_store() local
228 hek = hv_fetch_common (hv, NULL, key, klen, flags, in Perl_hv_store()
[all …]
|
| D | sv.c | 6925 Perl_newSVhek(pTHX_ const HEK *hek) in Perl_newSVhek() argument
6927 if (!hek) { in Perl_newSVhek()
6934 if (HEK_LEN(hek) == HEf_SVKEY) { in Perl_newSVhek()
6935 return newSVsv(*(SV**)HEK_KEY(hek)); in Perl_newSVhek()
6937 const int flags = HEK_FLAGS(hek); in Perl_newSVhek()
6942 STRLEN utf8_len = HEK_LEN(hek); in Perl_newSVhek()
6943 const U8 *as_utf8 = bytes_to_utf8 ((U8*)HEK_KEY(hek), &utf8_len); in Perl_newSVhek()
6956 SV * const sv = newSVpvn (HEK_KEY(hek), HEK_LEN(hek)); in Perl_newSVhek()
6957 if (HEK_UTF8(hek)) in Perl_newSVhek()
6962 return newSVpvn_share(HEK_KEY(hek), in Perl_newSVhek()
[all …]
|
| D | proto.h | 1267 PERL_CALLCONV void Perl_unshare_hek(pTHX_ HEK* hek);
1552 STATIC void S_unshare_hek_or_pvn(pTHX_ HEK* hek, const char* str, I32 len, U32 hash);
2289 PERL_CALLCONV SV* Perl_newSVhek(pTHX_ const HEK *hek)
|
| D | embed.fnc | 850 p |void |unshare_hek |NULLOK HEK* hek
1032 s |void |unshare_hek_or_pvn|NULLOK HEK* hek|NULLOK const char* str|I32 len|U32 hash
1564 Apda |SV* |newSVhek |NULLOK const HEK *hek
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Storable/ |
| D | Storable.xs | 2480 HEK *hek; in store_hash() local
2507 hek = HeKEY_hek(he); in store_hash()
2508 len = HEK_LEN(hek); in store_hash()
2521 if (HEK_UTF8(hek)) in store_hash()
2523 if (HEK_WASUTF8(hek)) in store_hash()
2526 key = HEK_KEY(hek); in store_hash()
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/parts/ |
| D | embed.fnc | 542 Apda |SV* |newSVhek |const HEK *hek
834 p |void |unshare_hek |HEK* hek
1005 s |void |unshare_hek_or_pvn|NULLOK const HEK* hek|NULLOK const char* str|I32 len|U32 hash
|
| /mirbsd/src/gnu/usr.bin/perl/pod/ |
| D | perlapi.pod | 3034 SV if the hek is NULL.
3036 SV* newSVhek(const HEK *hek)
|