xref: /csrg-svn/usr.bin/pascal/libpc/STLIM.c (revision 3869)
11703Smckusick /* Copyright (c) 1979 Regents of the University of California */
21703Smckusick 
3*3869Smckusic static char sccsid[] = "@(#)STLIM.c 1.2 06/10/81";
41703Smckusick 
51703Smckusick #include "h00vars.h"
61703Smckusick 
71703Smckusick STLIM(limit)
81703Smckusick 
91703Smckusick 	long	limit;
101703Smckusick {
111703Smckusick 	if (_stcnt >= limit) {
12*3869Smckusic 		ERROR("Statement count limit of %D exceeded\n", _stcnt);
131703Smckusick 		return;
141703Smckusick 	}
151703Smckusick 	_stlim = limit;
161703Smckusick }
17