1*5513Slinton /* Copyright (c) 1982 Regents of the University of California */
2*5513Slinton 
3*5513Slinton static char sccsid[] = "@(#)isactive.c 1.1 01/18/82";
4*5513Slinton 
5*5513Slinton /*
6*5513Slinton  * Decide a the given function is currently active.
7*5513Slinton  */
8*5513Slinton 
9*5513Slinton #include "defs.h"
10*5513Slinton #include "runtime.h"
11*5513Slinton #include "frame.rep"
12*5513Slinton #include "sym.h"
13*5513Slinton #include "machine.h"
14*5513Slinton #include "process.h"
15*5513Slinton 
16*5513Slinton BOOLEAN isactive(f)
17*5513Slinton SYM *f;
18*5513Slinton {
19*5513Slinton 	if (isfinished(process)) {
20*5513Slinton 		return(FALSE);
21*5513Slinton 	} else {
22*5513Slinton 		if (f == program) {
23*5513Slinton 			return(TRUE);
24*5513Slinton 		}
25*5513Slinton 		return(findframe(f) != NIL);
26*5513Slinton 	}
27*5513Slinton }
28