[unix-history] / usr / src / cmd / lisp / franz / lamp.c

static char *sccsid = "@(#)lamp.c	35.1 5/6/81";

#include "global.h"

#define PBUFSZ 100000
short pbuf[PBUFSZ];

/* data space for fasl to put counters */
int mcounts[NMCOUNT];
int mcountp = (int) mcounts;
int doprof = TRUE;

lispval
Lmonitor()
{
	extern etext, countbase;

	if (np==lbot) { monitor(0); countbase = 0; }
	else if (TYPE(lbot->val)==INT) 
	 { monitor(2, lbot->val->i, pbuf, 200000, 7000); 
	   countbase = ((int)pbuf) +12; 
	}
	else {
	   monitor(2, sbrk(0), pbuf, 200000, 7000); 
	   countbase = ((int)pbuf) + 12; }
	return(tatom);
}
Commit	Line	Data
4b9ccde7 C	1	static char *sccsid = "@(#)lamp.c 35.1 5/6/81";
4b9ccde7 C	2
ea2f6e9b BJ	3	#include "global.h"
	4
	5	#define PBUFSZ 100000
	6	short pbuf[PBUFSZ];
	7
	8	/* data space for fasl to put counters */
	9	int mcounts[NMCOUNT];
	10	int mcountp = (int) mcounts;
	11	int doprof = TRUE;
	12
	13	lispval
	14	Lmonitor()
	15	{
	16	extern etext, countbase;
	17
	18	if (np==lbot) { monitor(0); countbase = 0; }
	19	else if (TYPE(lbot->val)==INT)
	20	{ monitor(2, lbot->val->i, pbuf, 200000, 7000);
	21	countbase = ((int)pbuf) +12;
	22	}
	23	else {
	24	monitor(2, sbrk(0), pbuf, 200000, 7000);
	25	countbase = ((int)pbuf) + 12; }
	26	return(tatom);
	27	}