| /openbsd/src/gnu/usr.bin/perl/ |
| D | hv.h | 32 #define LARGE_HASH_HEURISTIC(hv,new_max) S_large_hash_heuristic(aTHX_ (hv), (new_max)) argument 34 #define LARGE_HASH_HEURISTIC(hv,new_max) 0 argument 155 #define HvSTASH_IS_CLASS(hv) \ argument 156 (HvHasAUX(hv) && HvAUX(hv)->xhv_aux_flags & HvAUXf_IS_CLASS) 284 #define HvARRAY(hv) ((hv)->sv_u.svu_hash) argument 302 #define HvFILL(hv) Perl_hv_fill(aTHX_ MUTABLE_HV(hv)) argument 303 #define HvMAX(hv) ((XPVHV*) SvANY(hv))->xhv_max argument 315 #define HvHasAUX(hv) (SvFLAGS(hv) & SVphv_HasAUX) argument 319 #define HvAUX(hv) (&(((struct xpvhv_with_aux*) SvANY(hv))->xhv_aux)) argument 320 #define HvRITER(hv) (*Perl_hv_riter_p(aTHX_ MUTABLE_HV(hv))) argument [all …]
|
| D | hv.c | 464 Perl_hv_common_key_len(pTHX_ HV *hv, const char *key, I32 klen_i32, in Perl_hv_common_key_len() argument 479 return hv_common(hv, NULL, key, klen, flags, action, val, hash); in Perl_hv_common_key_len() 483 Perl_hv_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, in Perl_hv_common() argument 495 if (!hv) in Perl_hv_common() 497 if (SvIS_FREED(hv)) in Perl_hv_common() 500 assert(SvTYPE(hv) == SVt_PVHV); in Perl_hv_common() 502 if (SvSMAGICAL(hv) && SvGMAGICAL(hv) && !(action & HV_DISABLE_UVAR_XKEY)) { in Perl_hv_common() 504 if ((mg = mg_find((const SV *)hv, PERL_MAGIC_uvar))) { in Perl_hv_common() 517 magic_getuvar(MUTABLE_SV(hv), mg); in Perl_hv_common() 556 return (void *) hv_delete_common(hv, keysv, key, klen, in Perl_hv_common() [all …]
|
| D | mathoms.c | 442 Perl_hv_iternext(pTHX_ HV *hv) in Perl_hv_iternext() argument 446 return hv_iternext_flags(hv, 0); in Perl_hv_iternext() 450 Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how) in Perl_hv_magic() argument 454 sv_magic(MUTABLE_SV(hv), MUTABLE_SV(gv), how, NULL, 0); in Perl_hv_magic() 548 Perl_hv_store_ent(pTHX_ HV *hv, SV *keysv, SV *val, U32 hash) in Perl_hv_store_ent() argument 550 return (HE *)hv_common(hv, keysv, NULL, 0, 0, HV_FETCH_ISSTORE, val, hash); in Perl_hv_store_ent() 554 Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash) in Perl_hv_exists_ent() argument 558 return cBOOL(hv_common(hv, keysv, NULL, 0, 0, HV_FETCH_ISEXISTS, 0, hash)); in Perl_hv_exists_ent() 562 Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, U32 hash) in Perl_hv_fetch_ent() argument 566 return (HE *)hv_common(hv, keysv, NULL, 0, 0, in Perl_hv_fetch_ent() [all …]
|
| D | vutil.c | 295 SV * hv; in Perl_scan_version2() local 317 hv = newSVrv(rv, "version"); /* create an SV and upgrade the RV */ in Perl_scan_version2() 318 (void)sv_upgrade(hv, SVt_PVHV); /* needs to be an HV type */ in Perl_scan_version2() 321 HvSHAREKEYS_on(hv); /* key-sharing on by default */ in Perl_scan_version2() 325 (void)hv_stores(MUTABLE_HV(hv), "qv", newSViv(qv)); in Perl_scan_version2() 327 (void)hv_stores(MUTABLE_HV(hv), "alpha", newSViv(alpha)); in Perl_scan_version2() 329 (void)hv_stores(MUTABLE_HV(hv), "width", newSViv(width)); in Perl_scan_version2() 451 (void)hv_stores(MUTABLE_HV(hv), "original", orig); in Perl_scan_version2() 452 (void)hv_stores(MUTABLE_HV(hv), "vinf", newSViv(1)); in Perl_scan_version2() 460 (void)hv_stores(MUTABLE_HV(hv), "original", orig); in Perl_scan_version2() [all …]
|
| D | scope.c | 551 HV *ohv, *hv; in Perl_save_hash() local 560 hv = GvHVn(gv); in Perl_save_hash() 562 mg_localize(MUTABLE_SV(ohv), MUTABLE_SV(hv), TRUE); in Perl_save_hash() 563 return hv; in Perl_save_hash() 818 Perl_save_delete(pTHX_ HV *hv, char *key, I32 klen) in Perl_save_delete() argument 822 save_pushptri32ptr(key, klen, SvREFCNT_inc_simple(hv), SAVEt_DELETE); in Perl_save_delete() 835 Perl_save_hdelete(pTHX_ HV *hv, SV *keysv) in Perl_save_hdelete() argument 845 SvREFCNT_inc_simple_void_NN(hv); in Perl_save_hdelete() 846 save_pushptri32ptr(savepvn(key, len), klen, hv, SAVEt_DELETE); in Perl_save_hdelete() 1014 Perl_save_helem_flags(pTHX_ HV *hv, SV *key, SV **sptr, const U32 flags) in Perl_save_helem_flags() argument [all …]
|
| /openbsd/src/sys/dev/pv/ |
| D | pvbus.c | 152 struct pvbus_hv *hv; in pvbus_identify() local 179 hv = &pvbus_hv[i]; in pvbus_identify() 180 hv->hv_base = base; in pvbus_identify() 182 (pvbus_types[i].init)(hv); in pvbus_identify() 265 pvbus_kvm(struct pvbus_hv *hv) in pvbus_kvm() argument 269 CPUID(hv->hv_base + CPUID_OFFSET_KVM_FEATURES, in pvbus_kvm() 271 hv->hv_features = regs[0]; in pvbus_kvm() 277 pvbus_hyperv(struct pvbus_hv *hv) in pvbus_hyperv() argument 281 CPUID(hv->hv_base + CPUID_OFFSET_HYPERV_FEATURES, in pvbus_hyperv() 283 hv->hv_features = regs[0]; in pvbus_hyperv() [all …]
|
| D | pvclock.c | 84 struct pvbus_hv *hv; in pvclock_match() local 90 hv = &pva->pva_hv[PVBUS_KVM]; in pvclock_match() 91 if (hv->hv_base == 0) in pvclock_match() 92 hv = &pva->pva_hv[PVBUS_OPENBSD]; in pvclock_match() 93 if (hv->hv_base != 0) { in pvclock_match() 99 if ((hv->hv_features & (1 << KVM_FEATURE_CLOCKSOURCE2)) == 0) in pvclock_match() 108 if ((hv->hv_features & in pvclock_match()
|
| /openbsd/src/gnu/usr.bin/perl/ext/re/ |
| D | re.xs | 160 HV *hv; variable 181 hv = newHV(); 183 hv_stores(hv, "minlen", newSViv(r->minlen)); 184 hv_stores(hv, "minlenret", newSViv(r->minlenret)); 185 hv_stores(hv, "gofs", newSViv(r->gofs)); 188 hv_stores(hv, "anchored", data->substr 190 hv_stores(hv, "anchored utf8", data->utf8_substr 192 hv_stores(hv, "anchored min offset", newSViv(data->min_offset)); 193 hv_stores(hv, "anchored max offset", newSViv(data->max_offset)); 194 hv_stores(hv, "anchored end shift", newSViv(data->end_shift)); [all …]
|
| /openbsd/src/lib/libutil/ |
| D | ohash.c | 26 uint32_t hv; member 99 i = h->t[j].hv % ns; in ohash_resize() 100 incr = ((h->t[j].hv % (ns - 2)) & ~1) + 1; in ohash_resize() 106 n[i].hv = h->t[j].hv; in ohash_resize() 223 uint32_t hv) in ohash_lookup_interval() argument 232 i = hv % h->size; in ohash_lookup_interval() 233 incr = ((hv % (h->size-2)) & ~1) + 1; in ohash_lookup_interval() 241 } else if (h->t[i].hv == hv && in ohash_lookup_interval() 246 h->t[empty].hv = hv; in ohash_lookup_interval() 265 h->t[i].hv = hv; in ohash_lookup_interval() [all …]
|
| /openbsd/src/gnu/usr.bin/perl/ext/Hash-Util/ |
| D | Util.xs | 14 HV *hv; 16 hv = MUTABLE_HV(hashref); 17 hv_clear_placeholders(hv); 114 HV *hv = (HV *)SvRV(rhv); in hash_traversal_mask() local 116 hv_rand_set(hv, SvUV(ST(1))); in hash_traversal_mask() 118 if (HvHasAUX(hv)) { in hash_traversal_mask() 119 XSRETURN_UV(HvRAND_get(hv)); in hash_traversal_mask() 153 const HV * hv = NULL; in bucket_info() local 155 hv = (const HV *) SvRV(rhv); in bucket_info() 157 hv = PL_strtab; in bucket_info() [all …]
|
| /openbsd/src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/ |
| D | HvNAME | 18 __UNDEFINED__ HvNAME_get(hv) HvNAME(hv) 20 __UNDEFINED__ HvNAMELEN_get(hv) (HvNAME_get(hv) ? (I32)strlen(HvNAME_get(hv)) : 0) 25 HvNAME_get(hv) 26 HV *hv 29 HvNAMELEN_get(hv) 30 HV *hv
|
| D | pvs | 30 __UNDEFINED__ hv_fetchs(hv, key, lval) hv_fetch(hv, key "", sizeof(key) - 1, lval) 31 __UNDEFINED__ hv_stores(hv, key, val) hv_store(hv, key "", sizeof(key) - 1, val, 0) 85 hv_fetchs(hv) 86 SV *hv 90 s = hv_fetchs((HV *) SvRV(hv), "hv_fetchs", 0); 95 hv_stores(hv, sv) 96 SV *hv 99 (void) hv_stores((HV *) SvRV(hv), "hv_stores", SvREFCNT_inc_simple(sv));
|
| D | cop | 29 __UNDEFINED__ CopSTASH_set(c,hv) CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch) 30 __UNDEFINED__ CopSTASH_eq(c,hv) ((hv) && (CopSTASHPV(c) == HvNAME(hv) \ 31 || (CopSTASHPV(c) && HvNAME(hv) \ 32 && strEQ(CopSTASHPV(c), HvNAME(hv))))) 43 __UNDEFINED__ CopSTASH_set(c,hv) ((c)->cop_stash = (hv)) 46 __UNDEFINED__ CopSTASH_eq(c,hv) (CopSTASH(c) == (hv))
|
| /openbsd/src/usr.bin/ctfconv/ |
| D | hash.c | 27 uint32_t hv; member 85 i = h->t[j].hv % ns; in hash_resize() 86 incr = ((h->t[j].hv % (ns - 2)) & ~1) + 1; in hash_resize() 92 n[i].hv = h->t[j].hv; in hash_resize() 196 uint32_t hv; in hash_qlookup() local 198 hv = hash_interval(start, &end); in hash_qlookup() 201 i = hv % h->size; in hash_qlookup() 202 incr = ((hv % (h->size-2)) & ~1) + 1; in hash_qlookup() 207 } else if (h->t[i].hv == hv && in hash_qlookup() 211 h->t[empty].hv = hv; in hash_qlookup() [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Digest-SHA/src/ |
| D | sdf.c | 13 HV* hv = Nullhv; local 26 if (gvp && (gv = *gvp) != (GV*)&sv_undef && (hv = GvHV(gv))) { 28 SV** svp = (SV**)hv_fetch(hv, name, len, FALSE); 36 if(!hv) { 44 hv = GvHVn(gv); 46 if(hv) { 59 (void)hv_store(hv,name,len,&sv_yes,0); 63 (void)hv_store(hv,name,len,&sv_no,0);
|
| /openbsd/src/gnu/usr.bin/perl/ext/Devel-Peek/ |
| D | Peek.xs | 178 _mstats_to_hv(HV *hv, const struct mstats_buffer *b, int level) in _mstats_to_hv() argument 184 svp = hv_fetchs(hv, "topbucket", 1); in _mstats_to_hv() 187 svp = hv_fetchs(hv, "topbucket_ev", 1); in _mstats_to_hv() 190 svp = hv_fetchs(hv, "topbucket_odd", 1); in _mstats_to_hv() 193 svp = hv_fetchs(hv, "totfree", 1); in _mstats_to_hv() 196 svp = hv_fetchs(hv, "total", 1); in _mstats_to_hv() 199 svp = hv_fetchs(hv, "total_chain", 1); in _mstats_to_hv() 202 svp = hv_fetchs(hv, "total_sbrk", 1); in _mstats_to_hv() 205 svp = hv_fetchs(hv, "sbrks", 1); in _mstats_to_hv() 208 svp = hv_fetchs(hv, "sbrk_good", 1); in _mstats_to_hv() [all …]
|
| /openbsd/src/gnu/usr.bin/perl/dist/Storable/ |
| D | Storable.xs | 42 # define HvRITER_set(hv,r) (HvRITER(hv) = r) argument 45 # define HvEITER_set(hv,r) (HvEITER(hv) = r) argument 60 # define HvTOTALKEYS(hv) HvKEYS(hv) argument 64 # define HvUSEDKEYS(hv) HvKEYS(hv) argument 1359 static int store_hash(pTHX_ stcxt_t *cxt, HV *hv); 1412 static int store_lhash(pTHX_ stcxt_t *cxt, HV *hv, unsigned char hash_flags); 1414 static int store_hentry(pTHX_ stcxt_t *cxt, HV* hv, UV i, HEK *hek, SV *val, 2238 cleanup_recursive_hv(pTHX_ HV* hv) { in cleanup_recursive_hv() argument 2239 SSize_t i = HvTOTALKEYS(hv); in cleanup_recursive_hv() 2240 HE** arr = HvARRAY(hv); in cleanup_recursive_hv() [all …]
|
| /openbsd/src/gnu/usr.bin/gcc/gcc/ |
| D | simplify-rtx.c | 429 HOST_WIDE_INT hv, lv; local 433 lv = INTVAL (trueop), hv = HWI_SIGN_EXTEND (lv); 435 lv = CONST_DOUBLE_LOW (trueop), hv = CONST_DOUBLE_HIGH (trueop); 437 REAL_VALUE_FROM_INT (d, lv, hv, mode); 445 HOST_WIDE_INT hv, lv; local 449 lv = INTVAL (trueop), hv = HWI_SIGN_EXTEND (lv); 451 lv = CONST_DOUBLE_LOW (trueop), hv = CONST_DOUBLE_HIGH (trueop); 457 if (hv < 0) 463 hv = 0, lv &= GET_MODE_MASK (op_mode); 465 REAL_VALUE_FROM_UNSIGNED_INT (d, lv, hv, mode); [all …]
|
| /openbsd/src/gnu/usr.bin/perl/dist/Data-Dumper/ |
| D | Dumper.xs | 1455 HV *hv; variable 1508 && (hv = (HV*)SvRV((SV*)href)) 1509 && SvTYPE(hv) == SVt_PVHV) { 1511 if ((svp = hv_fetchs(hv, "seen", FALSE)) && SvROK(*svp)) 1515 if ((svp = hv_fetchs(hv, "noseen", FALSE))) 1517 if ((svp = hv_fetchs(hv, "todump", FALSE)) && SvROK(*svp)) 1519 if ((svp = hv_fetchs(hv, "names", FALSE)) && SvROK(*svp)) 1521 if ((svp = hv_fetchs(hv, "indent", FALSE))) 1523 if ((svp = hv_fetchs(hv, "purity", FALSE))) 1525 if ((svp = hv_fetchs(hv, "terse", FALSE))) [all …]
|
| /openbsd/src/usr.bin/make/ |
| D | targ.c | 192 uint32_t hv; in Targ_FindNodei() local 196 hv = ohash_interval(name, &ename); in Targ_FindNodei() 198 slot = ohash_lookup_interval(&targets, name, ename, hv); in Targ_FindNodei() 211 Targ_mk_special_node(const char *name, size_t n, uint32_t hv, in Targ_mk_special_node() argument 218 slot = ohash_lookup_interval(&targets, name, ename, hv); in Targ_mk_special_node()
|
| D | suff.c | 216 uint32_t hv; in reverse_slot() local 218 hv = reverse_hashi(s, e); in reverse_slot() 219 return ohash_lookup_interval(h, s, *e, hv); in reverse_slot() 356 uint32_t hv; in parse_transformi() local 371 hv = *--p; in parse_transformi() 373 slot = ohash_lookup_interval(&suffixes, p, e, hv); in parse_transformi() 397 reverse_hash_add_char(&hv, --p); in parse_transformi() 403 slot = ohash_lookup_interval(&suffixes, p, e, hv); in parse_transformi() 430 uint32_t hv; in find_best_suffix() local 438 hv = *--p; in find_best_suffix() [all …]
|
| /openbsd/src/gnu/usr.bin/perl/ext/XS-Typemap/ |
| D | Typemap.xs | 338 T_HVREF( hv ) 339 HV * hv 341 RETVAL = hv; 349 T_HVREF_REFCOUNT_FIXED( hv ) 350 HV_FIXED * hv 352 SvREFCNT_inc(hv); 353 RETVAL = hv;
|
| /openbsd/src/sys/arch/alpha/stand/netboot/ |
| D | if_prom.c | 185 int hv, lv; in prom_init() local 192 hv = dval(*enet_addr); enet_addr++; in prom_init() 196 if (hv == -1 || lv == -1) { in prom_init() 201 desc->myea[i] = (hv << 4) | lv; in prom_init()
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Encode/Unicode/ |
| D | Unicode.xs | 228 HV *hv = NULL; variable 328 …+SvCUR(result), ord, UNICODE_DISALLOW_ILLEGAL_INTERCHANGE | UNICODE_WARN_ILLEGAL_INTERCHANGE, &hv); 329 if (hv) { 330 SV *message = *hv_fetch(hv, "text", 4, 0); 331 U32 categories = SvUVx(*hv_fetch(hv, "warn_categories", 15, 0)); 332 sv_2mortal((SV *)hv); 444 HV *hv = (HV *)SvRV(sv); 445 SV *message = *hv_fetch(hv, "text", 4, 0); 446 U32 categories = SvUVx(*hv_fetch(hv, "warn_categories", 15, 0));
|
| /openbsd/src/usr.bin/mandoc/ |
| D | mandoc_xr.c | 70 uint32_t hv; in mandoc_xr_add() local 89 hv = ohash_interval(xr->hashkey, &pend); in mandoc_xr_add() 90 slot = ohash_lookup_memory(xr_hash, xr->hashkey, tsz, hv); in mandoc_xr_add()
|