11720Smckusick /* Copyright (c) 1979 Regents of the University of California */
21720Smckusick 
3*2126Smckusic static char sccsid[] = "@(#)PMFLUSH.c 1.2 01/13/81";
41720Smckusick 
51720Smckusick #include "h00vars.h"
61720Smckusick 
7*2126Smckusic PMFLUSH(cntrs, rtns, bufaddr)
81720Smckusick 
9*2126Smckusic 	long cntrs;	/* total number of counters (stmt + routine) */
10*2126Smckusic 	long rtns;	/* number of func and proc counters */
11*2126Smckusic 	long *bufaddr;	/* address of count buffers */
121720Smckusick {
131720Smckusick 	register FILE	*filep;
141720Smckusick 
15*2126Smckusic 	bufaddr[0] = 0426;
16*2126Smckusic 	bufaddr[1] = time();
17*2126Smckusic 	bufaddr[2] = cntrs;
18*2126Smckusic 	bufaddr[3] = rtns;
191720Smckusick 	filep = fopen(PXPFILE, "w");
201720Smckusick 	if (filep == NULL)
211720Smckusick 		goto ioerr;
22*2126Smckusic 	fwrite(bufaddr, cntrs + 1, sizeof(long), filep);
231720Smckusick 	if (ferror(filep))
241720Smckusick 		goto ioerr;
251720Smckusick 	fclose(filep);
261720Smckusick 	if (!ferror(filep))
271720Smckusick 		return;
281720Smckusick ioerr:
291720Smckusick 	perror(PXPFILE);
301720Smckusick }
31