1987-04-29 10:22:07 +00:00
|
|
|
/*
|
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
|
*
|
|
|
|
|
* Author: Ceriel J.H. Jacobs
|
|
|
|
|
*/
|
|
|
|
|
|
1986-06-17 12:04:05 +00:00
|
|
|
/* E X P R E S S I O N C H E C K I N G */
|
|
|
|
|
|
1987-04-29 10:22:07 +00:00
|
|
|
/* $Header$ */
|
|
|
|
|
|
1986-06-26 09:39:36 +00:00
|
|
|
extern int (*ExprChkTable[])(); /* table of expression checking
|
|
|
|
|
functions, indexed by node class
|
|
|
|
|
*/
|
|
|
|
|
extern int (*DesigChkTable[])(); /* table of designator checking
|
1986-06-17 12:04:05 +00:00
|
|
|
functions, indexed by node class
|
|
|
|
|
*/
|
|
|
|
|
|
1987-10-19 11:28:37 +00:00
|
|
|
#define ChkExpression(expp) ((*ExprChkTable[(expp)->nd_class])(expp,D_USED))
|
|
|
|
|
#define ChkDesignator(expp) ((*DesigChkTable[(expp)->nd_class])(expp,0))
|
|
|
|
|
#define ChkDesig(expp, flags) ((*DesigChkTable[(expp)->nd_class])(expp,flags))
|
1987-09-23 16:39:43 +00:00
|
|
|
|
1988-03-22 17:54:01 +00:00
|
|
|
/* handle reference counts for sets */
|
|
|
|
|
#define inc_refcount(s) (*((int *)(s) - 1) += 1)
|
|
|
|
|
#define dec_refcount(s) (*((int *)(s) - 1) -= 1)
|
|
|
|
|
#define refcount(s) (*((int *)(s) - 1))
|
