1*40865Sbostic /*- 2*40865Sbostic * Copyright (c) 1979 The Regents of the University of California. 3*40865Sbostic * All rights reserved. 4*40865Sbostic * 5*40865Sbostic * %sccs.include.redist.c% 6*40865Sbostic */ 71672Smckusick 8*40865Sbostic #ifndef lint 9*40865Sbostic static char sccsid[] = "@(#)PCLOSE.c 1.7 (Berkeley) 04/09/90"; 10*40865Sbostic #endif /* not lint */ 111672Smckusick 127969Smckusick /* 137969Smckusick * Close all files associated with the topmost stack frame. 147969Smckusick */ 157969Smckusick 161672Smckusick #include "h00vars.h" 177969Smckusick #include "libpc.h" 181672Smckusick 191672Smckusick PCLOSE(level) 201672Smckusick 211672Smckusick struct iorec *level; 221672Smckusick { 231672Smckusick register struct iorec *next; 241672Smckusick 251672Smckusick next = _fchain.fchain; 261672Smckusick while(next != FILNIL && next->flev <= level) { 2710563Smckusick next = PFCLOSE(next, TRUE); 281672Smckusick } 291672Smckusick _fchain.fchain = next; 301672Smckusick } 31