usr.bin/f77/pass1.tahoe/proc.c
/* Allocate extra argument array if needed. Generate prologs. */
Allocate extra argument array if needed. Generate prologs.
Allocate extra argument array if needed . Generate prologs .
LOCAL procode()
{
register struct Entrypoint *p;
Addrp argvec;
#if TARGET==GCOS 
	argvec = autovar(lastargslot/SZADDR, TYADDR, PNULL);
#else
	if(lastargslot>0 && nentry>1)
#if TARGET == VAX || TARGET == TAHOE
		argvec = autovar(1 + lastargslot/SZADDR, TYADDR, PNULL);
#else
		argvec = autovar(lastargslot/SZADDR, TYADDR, PNULL);
#endif
	else
		argvec = NULL;
#endif
#if TARGET == PDP11
	if(fudgelabel)
		putlabel(fudgelabel);
#endif
for(p = entries ; p ; p = p->entnextp)
	prolog(p, argvec);
#if FAMILY == PCC
	putrbrack(procno);
#endif
prendproc();
}
LOCAL procode ( ) { register struct Entrypoint * p ; Addrp argvec ; #if TARGET == GCOS argvec = autovar ( lastargslot / SZADDR , TYADDR , PNULL ) ; #else if ( lastargslot > 0 && nentry > 1 ) #if TARGET == VAX || TARGET == TAHOE argvec = autovar ( 1 + lastargslot / SZADDR , TYADDR , PNULL ) ; #else argvec = autovar ( lastargslot / SZADDR , TYADDR , PNULL ) ; #endif else argvec = NULL ; #endif #if TARGET == PDP11 if ( fudgelabel ) putlabel ( fudgelabel ) ; #endif for ( p = entries ; p ; p = p -> entnextp ) prolog ( p , argvec ) ; #if FAMILY == PCC putrbrack ( procno ) ; #endif prendproc ( ) ; }
Allocate extra argument array if needed.
Allocate extra argument array if needed .
/* for the optimizer */