Lines Matching refs:tbl
9596 PTR_TBL_t *tbl;
9597 Newz(0, tbl, 1, PTR_TBL_t);
9598 tbl->tbl_max = 511;
9599 tbl->tbl_items = 0;
9600 Newz(0, tbl->tbl_ary, tbl->tbl_max + 1, PTR_TBL_ENT_t*);
9601 return tbl;
9613 Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, void *sv)
9617 assert(tbl);
9618 tblent = tbl->tbl_ary[hash & tbl->tbl_max];
9629 Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, void *oldv, void *newv)
9638 assert(tbl);
9639 otblent = &tbl->tbl_ary[hash & tbl->tbl_max];
9651 tbl->tbl_items++;
9652 if (!empty && tbl->tbl_items > tbl->tbl_max)
9653 ptr_table_split(tbl);
9659 Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl)
9661 PTR_TBL_ENT_t **ary = tbl->tbl_ary;
9662 UV oldsize = tbl->tbl_max + 1;
9668 tbl->tbl_max = --newsize;
9669 tbl->tbl_ary = ary;
9691 Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl)
9699 if (!tbl || !tbl->tbl_items) {
9703 array = tbl->tbl_ary;
9705 max = tbl->tbl_max;
9721 tbl->tbl_items = 0;
9727 Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl)
9729 if (!tbl) {
9732 ptr_table_clear(tbl);
9733 Safefree(tbl->tbl_ary);
9734 Safefree(tbl);