97 	struct tbl *vp, **vpp = l->vars.tbls, *vq;  in popblock()  local
105 			if ((vq = global(vp->name))->flag & ISSET)  in popblock()
106 				setspec(vq);  in popblock()
108 				unsetspec(vq);  in popblock()
351 		struct tbl *vq;  in local()  local
353 		varsearch(l->next, &vq, vn, h);  in local()
354 		if (vq != NULL) {  in local()
355 			vp->flag |= vq->flag &  in local()
358 			if (vq->flag & INTEGER)  in local()
359 				vp->type = vq->type;  in local()
360 			vp->u2.field = vq->u2.field;  in local()
451 setstr(struct tbl *vq, const char *s, int error_ok)  in setstr()  argument
457 	if ((vq->flag & RDONLY) && !no_ro_check) {  in setstr()
458 		warningf(true, Tf_ro, vq->name);  in setstr()
463 	if (!(vq->flag&INTEGER)) {  in setstr()
465 		if ((vq->flag&ALLOC)) {  in setstr()
468 			if (s >= vq->val.s &&  in setstr()
469 			    s <= strnul(vq->val.s)) {  in setstr()
472 				    vq->name, s);  in setstr()
475 			afree(vq->val.s, vq->areap);  in setstr()
477 		vq->flag &= ~(ISSET|ALLOC);  in setstr()
478 		vq->type = 0;  in setstr()
479 		if (s && (vq->flag & (UCASEV_AL|LCASEV|LJUST|RJUST)))  in setstr()
480 			s = salloc = formatstr(vq, s);  in setstr()
481 		if ((vq->flag&EXPORT))  in setstr()
482 			exportprep(vq, s);  in setstr()
484 			strdupx(vq->val.s, s, vq->areap);  in setstr()
485 			vq->flag |= ALLOC;  in setstr()
489 		if (!v_evaluate(vq, s, error_ok, true))  in setstr()
492 	vq->flag |= ISSET;  in setstr()
493 	if ((vq->flag&SPECIAL))  in setstr()
494 		setspec(vq);  in setstr()
501 setint(struct tbl *vq, mksh_ari_t n)  in setint()  argument
503 	if (!(vq->flag&INTEGER)) {  in setint()
509 		setstr(vq, str_val(vtemp), KSH_RETURN_ERROR);  in setint()
511 		vq->val.i = n;  in setint()
512 	vq->flag |= ISSET;  in setint()
513 	if ((vq->flag&SPECIAL))  in setint()
514 		setspec(vq);  in setint()
616 setint_v(struct tbl *vq, struct tbl *vp, bool arith)  in setint_v()  argument
623 	setint_n(vq, num.i, 0);  in setint_v()
624 	if (vq->type == 0)  in setint_v()
626 		vq->type = base;  in setint_v()
627 	return (vq);  in setint_v()
632 setint_n(struct tbl *vq, mksh_ari_t num, int newbase)  in setint_n()  argument
634 	if (!(vq->flag & INTEGER) && (vq->flag & ALLOC)) {  in setint_n()
635 		vq->flag &= ~ALLOC;  in setint_n()
636 		vq->type = 0;  in setint_n()
637 		afree(vq->val.s, vq->areap);  in setint_n()
639 	vq->val.i = num;  in setint_n()
641 		vq->type = newbase;  in setint_n()
642 	vq->flag |= ISSET|INTEGER;  in setint_n()
643 	if (vq->flag&SPECIAL)  in setint_n()
644 		setspec(vq);  in setint_n()
1595 	struct tbl *vp, *vq;  in set_array()  local
1628 		for (vq = vp; vq; vq = vq->u.array) {  in set_array()
1629 			if (!(vq->flag & ISSET))  in set_array()
1631 			if (arrayindex(vq) >= j)  in set_array()
1632 				j = arrayindex(vq) + 1;  in set_array()
1661 		vq = arraysearch(vp, j);  in set_array()
1663 		setstr(vq, ccp, KSH_RETURN_ERROR);  in set_array()