Lines Matching refs:hek
85 register HEK *hek;
88 hek = (HEK*)k;
89 Copy(str, HEK_KEY(hek), len, char);
90 HEK_KEY(hek)[len] = 0;
91 HEK_LEN(hek) = len;
92 HEK_HASH(hek) = hash;
93 HEK_FLAGS(hek) = (unsigned char)flags_masked;
97 return hek;
209 HE *hek;
220 hek = hv_fetch_common (hv, NULL, key, klen, flags,
222 return hek ? &HeVAL(hek) : NULL;
229 HE *hek = hv_fetch_common (hv, NULL, key, klen, flags,
231 return hek ? &HeVAL(hek) : NULL;
312 HE *hek;
323 hek = hv_fetch_common (hv, NULL, key, klen, flags,
326 return hek ? &HeVAL(hek) : NULL;
1710 HEK *hek;
1716 hek = (HEK*)k;
1717 HeKEY_hek(entry) = hek;
1830 HEK *hek = HeKEY_hek(entry);
1831 int flags = HEK_FLAGS(hek);
1838 STRLEN utf8_len = HEK_LEN(hek);
1839 U8 *as_utf8 = bytes_to_utf8 ((U8*)HEK_KEY(hek), &utf8_len);
1851 sv = newSVpvn (HEK_KEY(hek), HEK_LEN(hek));
1852 if (HEK_UTF8(hek))
1855 sv = newSVpvn_share(HEK_KEY(hek),
1856 (HEK_UTF8(hek) ? -HEK_LEN(hek) : HEK_LEN(hek)),
1857 HEK_HASH(hek));
1942 Perl_unshare_hek(pTHX_ HEK *hek)
1944 unshare_hek_or_pvn(hek, NULL, 0, 0);
1948 hek if non-NULL takes priority over the other 3, else str, len and hash
1952 S_unshare_hek_or_pvn(pTHX_ HEK *hek, const char *str, I32 len, U32 hash)
1963 if (hek) {
1964 hash = HEK_HASH(hek);
1987 if (hek) {
1989 if (HeKEY_hek(entry) != hek)
2025 hek ? HEK_KEY(hek) : str,