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