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