1984-10-08 14:14:53 +00:00
|
|
|
/* $Header$ */
|
1985-11-25 15:50:51 +00:00
|
|
|
#ifdef LL_DEBUG
|
|
|
|
|
#define LL_assert(x) if(!(x)) LL_badassertion("x",__FILE__,__LINE__)
|
|
|
|
|
#else
|
|
|
|
|
#define LL_assert(x) /* nothing */
|
|
|
|
|
#endif
|
1984-10-08 14:14:53 +00:00
|
|
|
|
|
|
|
|
extern int LLsymb;
|
1985-11-25 15:50:51 +00:00
|
|
|
|
|
|
|
|
#define LL_SAFE(x) /* Nothing */
|
1987-02-16 21:36:05 +00:00
|
|
|
#define LL_SSCANDONE(x) if (LLsymb != x) LLerror(x); else
|
1985-11-25 15:50:51 +00:00
|
|
|
#define LL_SCANDONE(x) if (LLsymb != x) LLerror(x); else
|
1988-06-24 14:55:27 +00:00
|
|
|
#define LL_NOSCANDONE(x) LLscan(x)
|
|
|
|
|
#ifdef LL_FASTER
|
|
|
|
|
#define LLscan(x) if ((LLsymb = LL_LEXI()) != x) LLerror(x); else
|
|
|
|
|
#endif
|
1984-10-08 14:14:53 +00:00
|
|
|
|
|
|
|
|
# include "Lpars.h"
|
1985-11-25 15:50:51 +00:00
|
|
|
|
|
|
|
|
extern unsigned int LLscnt[];
|
|
|
|
|
extern unsigned int LLtcnt[];
|
|
|
|
|
extern int LLcsymb;
|
|
|
|
|
|
|
|
|
|
#define LLsdecr(d) {LL_assert(LLscnt[d] > 0); LLscnt[d]--;}
|
|
|
|
|
#define LLtdecr(d) {LL_assert(LLtcnt[d] > 0); LLtcnt[d]--;}
|
|
|
|
|
#define LLsincr(d) LLscnt[d]++
|
|
|
|
|
#define LLtincr(d) LLtcnt[d]++
|
