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