2 * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
4 * $Id: filePutc.c,v 1.1 1998/04/10 10:54:26 simonm Exp $
6 * hPutChar Runtime Support
14 filePutc(StgAddr fp, I_ c)
18 /* Try to write a character */
19 while ((rc = putc((int) c, (FILE *) fp)) == EOF && errno == EINTR)
20 clearerr((FILE *) fp);