xref: /csrg-svn/usr.bin/pascal/libpc/LINO.c (revision 1661)
1*1661Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1661Smckusick 
3*1661Smckusick static char sccsid[] = "@(#)LINO.c 1.1 10/30/80";
4*1661Smckusick 
5*1661Smckusick #include "h00vars.h"
6*1661Smckusick #include "h01errs.h"
7*1661Smckusick 
8*1661Smckusick LINO()
9*1661Smckusick {
10*1661Smckusick 	if (++_stcnt >= _stlim) {
11*1661Smckusick 		ERROR(ESTLIM, _stcnt);
12*1661Smckusick 		return;
13*1661Smckusick 	}
14*1661Smckusick }
15