usr.bin/f77/pass1.vax/bb.c
/*
 *  finds copy statements and enters information in table
 */
finds copy statements and enters information in table
finds copy statements and enters information in table
LOCAL findcopies ()
{
Slotp	sl;
expptr	expr;
chainp	cp;
for (sl = firstslot; sl; sl = sl->next)
	{
	expr = sl->expr;
	if (expr) switch (expr->tag)
	    {
	    case TEXPR:
		ckexpr (expr);
		break;
	    case TLIST:
		for (cp = expr->listblock.listp; cp; cp = cp->nextp)
			{
			expr = (expptr) cp->datap;
			ckexpr (expr);
			}
		break;
	    default:
		break;
	    }
	}
}
LOCAL findcopies ( ) { Slotp sl ; expptr expr ; chainp cp ; for ( sl = firstslot ; sl ; sl = sl -> next ) { expr = sl -> expr ; if ( expr ) switch ( expr -> tag ) { case TEXPR : ckexpr ( expr ) ; break ; case TLIST : for ( cp = expr -> listblock . listp ; cp ; cp = cp -> nextp ) { expr = ( expptr ) cp -> datap ; ckexpr ( expr ) ; } break ; default : break ; } } }
finds copy statements and enters information in table
finds copy statements and enters information in table