- /*
- * with the shadowing of for loop variables
- * the variable is always sizeof(long) hence
- * nullifying the need for shorter length
- * assignments
- */
+ tl1 = *pc.cp++; /* tl1 loop branch */
+ if (tl1 == 0)
+ tl1 = *pc.sp++;
+ tcp = popaddr(); /* tcp = ptr to index var */
+ tl = pop4(); /* tl upper bound */
+ if (*tcp == tl) /* loop is done, fall through */
+ continue;
+ *tcp += 1; /* inc index var */
+ pc.cp += tl1; /* return to top of loop */
+ continue;