3867cfdaca
* Fixing of potential crash issue with function tables in compiler. + SYSTEM.h is now renamed to SYSTEMM2.h to avoid conflicts on non case sensitive filesystems.
73 lines
1.6 KiB
C
73 lines
1.6 KiB
C
/*
|
|
* (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
|
|
*/
|
|
|
|
/* T O K E N D E S C R I P T O R D E F I N I T I O N */
|
|
|
|
/* $Id$ */
|
|
|
|
#include "real.h"
|
|
|
|
/* Structure to store a string constant
|
|
*/
|
|
struct string {
|
|
unsigned s_length; /* length of a string */
|
|
char *s_str; /* the string itself */
|
|
};
|
|
|
|
union tk_attr {
|
|
struct string *tk_str;
|
|
arith tk_int;
|
|
struct real *tk_real;
|
|
struct {
|
|
union {
|
|
arith *tky_set;
|
|
struct idf *tky_idf;
|
|
struct def *tky_def;
|
|
} tk_yy;
|
|
struct node *tky_next;
|
|
} tk_y;
|
|
struct {
|
|
struct node *tkx_left, *tkx_right;
|
|
} tk_x;
|
|
};
|
|
#define tk_left tk_x.tkx_left
|
|
#define tk_right tk_x.tkx_right
|
|
#define tk_next tk_y.tky_next
|
|
#define tk_idf tk_y.tk_yy.tky_idf
|
|
#define tk_def tk_y.tk_yy.tky_def
|
|
#define tk_set tk_y.tk_yy.tky_set
|
|
|
|
/* Token structure. Keep it small, as it is part of a parse-tree node
|
|
*/
|
|
struct token {
|
|
short tk_symb; /* token itself */
|
|
unsigned short tk_lineno; /* linenumber on which it occurred */
|
|
union tk_attr tk_data;
|
|
};
|
|
|
|
typedef struct token t_token;
|
|
|
|
#define TOK_IDF tk_data.tk_idf
|
|
#define TOK_SSTR tk_data.tk_str
|
|
#define TOK_STR tk_data.tk_str->s_str
|
|
#define TOK_SLE tk_data.tk_str->s_length
|
|
#define TOK_INT tk_data.tk_int
|
|
#define TOK_REAL tk_data.tk_real
|
|
#define TOK_RSTR tk_data.tk_real->r_real
|
|
#define TOK_RVAL tk_data.tk_real->r_val
|
|
|
|
extern t_token dot, aside;
|
|
extern struct type *toktype;
|
|
|
|
#define DOT dot.tk_symb
|
|
#define ASIDE aside.tk_symb
|
|
|
|
extern int token_nmb;
|
|
extern int tk_nmb_at_last_syn_err;
|
|
|
|
void CheckForLineDirective(void);
|