xref: /csrg-svn/usr.bin/pascal/libpc/LINO.c (revision 9136)
11661Smckusick /* Copyright (c) 1979 Regents of the University of California */
21661Smckusick 
3*9136Smckusick static char sccsid[] = "@(#)LINO.c 1.3 11/12/82";
41661Smckusick 
51661Smckusick #include "h00vars.h"
61661Smckusick 
7*9136Smckusick char ELINO[] = "Statement count limit of %D exceeded\n";
8*9136Smckusick 
91661Smckusick LINO()
101661Smckusick {
111661Smckusick 	if (++_stcnt >= _stlim) {
12*9136Smckusick 		ERROR(ELINO, _stcnt);
131661Smckusick 		return;
141661Smckusick 	}
151661Smckusick }
16