entry = ((HE**)xhv->xhv_array)[hash & (I32)xhv->xhv_max];
entry = ((HE**)HvARRAY(hv))[hash & (I32)xhv->xhv_max];
HE *modperl_perl_hv_fetch_he(pTHX_ HV *hv,                             register char *key,                             register I32 klen,                             register U32 hash){    register XPVHV *xhv;    register HE *entry;    xhv = (XPVHV *)SvANY(hv);    if (!xhv->xhv_array) {        return 0;    }#ifdef HvREHASH    if (HvREHASH(hv)) {	PERL_HASH_INTERNAL(hash, key, klen);    }    else#endif    if (!hash) {	PERL_HASH(hash, key, klen);    }    entry = ((HE**)xhv->xhv_array)[hash & (I32)xhv->xhv_max];    for (; entry; entry = HeNEXT(entry)) {        if (HeHASH(entry) != hash) {            continue;        }        if (HeKLEN(entry) != klen) {            continue;        }        if (HeKEY(entry) != key && memNE(HeKEY(entry), key, klen)) {            continue;        }        return entry;    }    return 0;}