Lines Matching refs:tp
282 register struct nl *p, *op, *tp; local
284 tp = gtype(r->crang_ty.type);
285 if ( tp == NLNIL )
291 p = defnl ( 0, CRANGE, tp, 0 );
368 register struct nl *tp, *ltp; local
376 tp = gtype(s);
377 if (tp == NLNIL)
379 np = defnl((char *) 0, ARRAY, tp, 0);
380 np->nl_flags |= (tp->nl_flags) & NFILES;
386 tp = gtype(tl->list_node.list);
387 if (tp == NLNIL) {
391 if ((tp->class == RANGE || tp->class == CRANGE) &&
392 tp->type == nl+TDOUBLE) {
399 if (tp->class != RANGE && tp->class != SCAL && tp->class !=CRANGE){
401 error("Array index type is a %s, not a range or scalar as required", classes[tp->class]);
407 if (tp->class == RANGE && bytes(tp->range[0], tp->range[1]) > 2) {
414 if (tp->class != CRANGE)
415 tp = nlcopy(tp);
417 ltp->chain = tp;
418 ltp = tp;