148095Sbostic /*-
2*62145Sbostic  * Copyright (c) 1980, 1993
3*62145Sbostic  *	The Regents of the University of California.  All rights reserved.
448095Sbostic  *
548095Sbostic  * %sccs.include.redist.c%
622520Sdist  */
75513Slinton 
822520Sdist #ifndef lint
9*62145Sbostic static char sccsid[] = "@(#)isactive.c	8.1 (Berkeley) 06/06/93";
1048095Sbostic #endif /* not lint */
1148095Sbostic 
125513Slinton /*
135513Slinton  * Decide a the given function is currently active.
145513Slinton  */
155513Slinton 
165513Slinton #include "defs.h"
175513Slinton #include "runtime.h"
185513Slinton #include "frame.rep"
195513Slinton #include "sym.h"
205513Slinton #include "machine.h"
215513Slinton #include "process.h"
225513Slinton 
isactive(f)235513Slinton BOOLEAN isactive(f)
245513Slinton SYM *f;
255513Slinton {
265513Slinton 	if (isfinished(process)) {
275513Slinton 		return(FALSE);
285513Slinton 	} else {
295513Slinton 		if (f == program) {
305513Slinton 			return(TRUE);
315513Slinton 		}
325513Slinton 		return(findframe(f) != NIL);
335513Slinton 	}
345513Slinton }
35