1*22520Sdist /*
2*22520Sdist  * Copyright (c) 1980 Regents of the University of California.
3*22520Sdist  * All rights reserved.  The Berkeley software License Agreement
4*22520Sdist  * specifies the terms and conditions for redistribution.
5*22520Sdist  */
65513Slinton 
7*22520Sdist #ifndef lint
8*22520Sdist static char sccsid[] = "@(#)isactive.c	5.1 (Berkeley) 06/06/85";
9*22520Sdist #endif not lint
105513Slinton /*
115513Slinton  * Decide a the given function is currently active.
125513Slinton  */
135513Slinton 
145513Slinton #include "defs.h"
155513Slinton #include "runtime.h"
165513Slinton #include "frame.rep"
175513Slinton #include "sym.h"
185513Slinton #include "machine.h"
195513Slinton #include "process.h"
205513Slinton 
215513Slinton BOOLEAN isactive(f)
225513Slinton SYM *f;
235513Slinton {
245513Slinton 	if (isfinished(process)) {
255513Slinton 		return(FALSE);
265513Slinton 	} else {
275513Slinton 		if (f == program) {
285513Slinton 			return(TRUE);
295513Slinton 		}
305513Slinton 		return(findframe(f) != NIL);
315513Slinton 	}
325513Slinton }
33