Searched refs:tabidx (Results 1 – 1 of 1) sorted by relevance
9640 unsigned int len, tabct = 8, tabidx = 0; local9764 for (tabidx = 0;9765 len = my_trnlnm("PERL_ENV_TABLES",eqv,tabidx);9766 tabidx++) {9767 if (!tabidx) {9772 else if (tabidx >= tabct) {9777 tabvec[tabidx] = (struct dsc$descriptor_s *) PerlMem_malloc(sizeof(struct dsc$descriptor_s));9778 if (tabvec[tabidx] == NULL) _ckvmssts_noperl(SS$_INSFMEM);9779 tabvec[tabidx]->dsc$w_length = len;9780 tabvec[tabidx]->dsc$b_dtype = DSC$K_DTYPE_T;[all …]