11672Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21672Smckusick 3*7969Smckusick static char sccsid[] = "@(#)PCLOSE.c 1.5 08/29/82"; 41672Smckusick 5*7969Smckusick /* 6*7969Smckusick * Close all files associated with the topmost stack frame. 7*7969Smckusick */ 8*7969Smckusick 91672Smckusick #include "h00vars.h" 10*7969Smckusick #include "libpc.h" 111672Smckusick 121672Smckusick PCLOSE(level) 131672Smckusick 141672Smckusick struct iorec *level; 151672Smckusick { 161672Smckusick register struct iorec *next; 171672Smckusick 181672Smckusick next = _fchain.fchain; 191672Smckusick while(next != FILNIL && next->flev <= level) { 20*7969Smckusick next = PFCLOSE(next); 211672Smckusick } 221672Smckusick _fchain.fchain = next; 231672Smckusick } 24