1 /* Copyright (c) 1982 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)isactive.c 1.1 01/18/82"; 4 5 /* 6 * Decide a the given function is currently active. 7 */ 8 9 #include "defs.h" 10 #include "runtime.h" 11 #include "frame.rep" 12 #include "sym.h" 13 #include "machine.h" 14 #include "process.h" 15 16 BOOLEAN isactive(f) 17 SYM *f; 18 { 19 if (isfinished(process)) { 20 return(FALSE); 21 } else { 22 if (f == program) { 23 return(TRUE); 24 } 25 return(findframe(f) != NIL); 26 } 27 } 28