1*48095Sbostic /*-
2*48095Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*48095Sbostic  * All rights reserved.
4*48095Sbostic  *
5*48095Sbostic  * %sccs.include.redist.c%
622520Sdist  */
75513Slinton 
822520Sdist #ifndef lint
9*48095Sbostic static char sccsid[] = "@(#)isactive.c	5.2 (Berkeley) 04/16/91";
10*48095Sbostic #endif /* not lint */
11*48095Sbostic 
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 
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