142 	register Stk_t	*stkp = shp->stk;  in refvar()  local
152 		int n,offset = stktell(stkp);  in refvar()
159 				sfwrite(stkp,fcfirst()+type,off-offset);  in refvar()
160 			n = stktell(stkp)-lp->lexd.kiaoff;  in refvar()
161 			begin = stkptr(stkp,lp->lexd.kiaoff);  in refvar()
169 		savptr = stkfreeze(stkp,0);  in refvar()
171 		stkset(stkp,savptr,offset);  in refvar()
186 	Stk_t			*stkp = shp->stk;  in lex_advance()  local
211 			lp->arg = (struct argnod*)stkseek(stkp,ARGVAL);  in lex_advance()
218 		sfwrite(stkp,buff,size);  in lex_advance()
318 	Stk_t			*stkp = shp->stk;  in sh_lex()  local
650 					n = stktell(stkp)-c;  in sh_lex()
651 					stkseek(stkp,n);  in sh_lex()
817 					lp->lexd.kiaoff = stktell(stkp)+fcseek(0)-fcfirst();  in sh_lex()
1092 							lp->arg = (struct argnod*)stkfreeze(stkp,1);  in sh_lex()
1251 		lp->arg = (struct argnod*)stkseek(stkp,ARGVAL);  in sh_lex()
1253 		sfwrite(stkp,state,n);  in sh_lex()
1257 		sfputc(stkp,lp->lexd.balance);  in sh_lex()
1260 	sfputc(stkp,0);  in sh_lex()
1261 	stkseek(stkp,stktell(stkp)-1);  in sh_lex()
1262 	state = stkptr(stkp,ARGVAL);  in sh_lex()
1263 	n = stktell(stkp)-ARGVAL;  in sh_lex()
1289 			stkseek(stkp,stktell(stkp)-1);  in sh_lex()
1290 			lp->arg = (struct argnod*)stkfreeze(stkp,1);  in sh_lex()
1299 		stkseek(stkp,stktell(stkp)-1);  in sh_lex()
1300 		lp->arg = (struct argnod*)stkfreeze(stkp,1);  in sh_lex()
1311 		stkseek(stkp,stktell(stkp)-2);  in sh_lex()
1325 		lp->arg = (struct argnod*)stkfreeze(stkp,1);  in sh_lex()
1607 	Stk_t			*stkp = lp->sh->stk;  in nested_here()  local
1609 	if(offset=stktell(stkp))  in nested_here()
1610 		base = stkfreeze(stkp,0);  in nested_here()
1614 	stkseek(stkp,ARGVAL);  in nested_here()
1618 		sfmove(lp->sh->strbuf,stkp,lp->lexd.docextra,-1);  in nested_here()
1620 	sfwrite(stkp,lp->lexd.docend,n);  in nested_here()
1631 		stkset(stkp,base,offset);  in nested_here()
1633 		stkseek(stkp,0);  in nested_here()
2022 static char *stack_shift(Stk_t *stkp, register char *sp,char *dp)  in stack_shift()  argument
2025 	register int offset = stktell(stkp);  in stack_shift()
2026 	register int left = offset-(sp-stkptr(stkp,0));  in stack_shift()
2029 	stkseek(stkp,offset);  in stack_shift()
2030 	sp = stkptr(stkp,offset);  in stack_shift()
2054 	Stk_t		*stkp=shp->stk;  in sh_endword()  local
2055 	sfputc(stkp,0);  in sh_endword()
2056 	sp =  stkptr(stkp,ARGVAL);  in sh_endword()
2096 			stkseek(stkp,dp-stkptr(stkp,0));  in sh_endword()
2099 				argp = (struct argnod*)stkfreeze(stkp,0);  in sh_endword()
2150 						sp = stack_shift(stkp,sp,dp);  in sh_endword()
2199 						sp = stack_shift(stkp,sp,dp+1);  in sh_endword()
2239 					sp = stack_shift(stkp,sp,dp);  in sh_endword()
2255 						sp = stack_shift(stkp,sp,dp);  in sh_endword()