1988-05-30 17:17:16 +00:00
|
|
|
#define NAMESIZE 100
|
|
|
|
|
#define FNAMESIZE 100
|
|
|
|
|
#define ARGTPSSIZE 2000
|
|
|
|
|
#define TYPESIZE 1000
|
|
|
|
|
|
|
|
|
|
struct inpdef {
|
|
|
|
|
struct inpdef *next;
|
1988-08-07 22:55:20 +00:00
|
|
|
|
|
|
|
|
/* filled by get_id() */
|
|
|
|
|
int id_class; /* see ../lpass1/l_class.h */
|
1988-05-30 17:17:16 +00:00
|
|
|
char id_name[NAMESIZE];
|
1988-08-07 22:55:20 +00:00
|
|
|
int id_statnr;
|
1988-05-30 17:17:16 +00:00
|
|
|
char id_file[FNAMESIZE];
|
1988-07-08 22:24:06 +00:00
|
|
|
int id_line;
|
1988-05-30 17:17:16 +00:00
|
|
|
char id_type[TYPESIZE];
|
1988-08-07 22:55:20 +00:00
|
|
|
|
|
|
|
|
int id_args; /* set if arguments given */
|
|
|
|
|
int id_nrargs; /* number of args, neg. for varargs */
|
|
|
|
|
char id_argtps[ARGTPSSIZE]; /* argument types, colon separated */
|
|
|
|
|
int id_valreturned; /* for def/decl, set if val returned */
|
|
|
|
|
int id_valused; /* for FC, see ../lpass1/l_lint.h */
|
|
|
|
|
|
|
|
|
|
/* not filled by get_id() */
|
1988-05-30 17:17:16 +00:00
|
|
|
int id_called;
|
|
|
|
|
int id_used;
|
|
|
|
|
int id_ignored;
|
|
|
|
|
int id_voided;
|
|
|
|
|
};
|
|
|
|
|
|
1988-07-08 22:24:06 +00:00
|
|
|
#define is_def(id) (is_def_class(id->id_class))
|
|
|
|
|
|
1988-05-30 17:17:16 +00:00
|
|
|
/* ALLOCDEF "inpdef" 10 */
|
