[unix-history] / usr / src / usr.bin / pascal / libpc / LINO.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)LINO.c 1.2 %G%";

#include "h00vars.h"

LINO()
{
	if (++_stcnt >= _stlim) {
		ERROR("Statement count limit of %D exceeded\n", _stcnt);
		return;
	}
}
Commit	Line	Data
0b6435eb KM	1	/* Copyright (c) 1979 Regents of the University of California */
0b6435eb KM	2
86997b19	3	static char sccsid[] = "@(#)LINO.c 1.2 %G%";
0b6435eb KM	4
0b6435eb KM	5	#include "h00vars.h"
0b6435eb KM	6
	7	LINO()
	8	{
	9	if (++_stcnt >= _stlim) {
86997b19	10	ERROR("Statement count limit of %D exceeded\n", _stcnt);
0b6435eb KM	11	return;
	12	}
	13	}