2 * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
4 * $Id: closeFile.c,v 1.1 1998/04/10 10:54:14 simonm Exp $
6 * hClose Runtime Support
17 if (unlockFile(fileno((FILE *) fp))) {
18 /* If it has been unlocked, don't bother fclose()ing */
22 while ((rc = fclose((FILE *) fp)) != 0) {