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