[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.1 %G%";

#include "h00vars.h"
#include "h01errs.h"

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