1 /*
2  * Copyright (c) 1980 Regents of the University of California.
3  * All rights reserved.  The Berkeley software License Agreement
4  * specifies the terms and conditions for redistribution.
5  */
6 
7 #ifndef lint
8 static char sccsid[] = "@(#)isactive.c	5.1 (Berkeley) 06/06/85";
9 #endif not lint
10 /*
11  * Decide a the given function is currently active.
12  */
13 
14 #include "defs.h"
15 #include "runtime.h"
16 #include "frame.rep"
17 #include "sym.h"
18 #include "machine.h"
19 #include "process.h"
20 
21 BOOLEAN isactive(f)
22 SYM *f;
23 {
24 	if (isfinished(process)) {
25 		return(FALSE);
26 	} else {
27 		if (f == program) {
28 			return(TRUE);
29 		}
30 		return(findframe(f) != NIL);
31 	}
32 }
33