From b25797dfbd8e27f3ab3e9f79766164607af19018 Mon Sep 17 00:00:00 2001 From: Kirk McKusick Date: Thu, 30 Oct 1980 08:40:38 -0800 Subject: [PATCH] date and time created 80/10/30 00:40:38 by mckusick SCCS-vsn: usr.bin/pascal/libpc/PMFLUSH.c 1.1 --- usr/src/usr.bin/pascal/libpc/PMFLUSH.c | 29 ++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 usr/src/usr.bin/pascal/libpc/PMFLUSH.c diff --git a/usr/src/usr.bin/pascal/libpc/PMFLUSH.c b/usr/src/usr.bin/pascal/libpc/PMFLUSH.c new file mode 100644 index 0000000000..dc9011c249 --- /dev/null +++ b/usr/src/usr.bin/pascal/libpc/PMFLUSH.c @@ -0,0 +1,29 @@ +/* Copyright (c) 1979 Regents of the University of California */ + +static char sccsid[] = "@(#)PMFLUSH.c 1.1 %G%"; + +#include "h00vars.h" + +PMFLUSH(cntrs, rtns) + + long cntrs; /* total number of counters (stmt + routine) */ + long rtns; /* number of func and proc counters */ +{ + register FILE *filep; + + _pcpcount[0] = 0426; + _pcpcount[1] = time(); + _pcpcount[2] = cntrs; + _pcpcount[3] = rtns; + filep = fopen(PXPFILE, "w"); + if (filep == NULL) + goto ioerr; + fwrite(&_pcpcount[0], cntrs + 1, sizeof(long), filep); + if (ferror(filep)) + goto ioerr; + fclose(filep); + if (!ferror(filep)) + return; +ioerr: + perror(PXPFILE); +} -- 2.20.1