56 lines
1.1 KiB
C
56 lines
1.1 KiB
C
/* H I G H L E V E L S Y M B O L E N T R Y A N D L O O K U P */
|
|
|
|
static char *RcsId = "$Header$";
|
|
|
|
#include <alloc.h>
|
|
#include <em_arith.h>
|
|
#include <em_label.h>
|
|
#include "idf.h"
|
|
#include "def.h"
|
|
#include "type.h"
|
|
#include "scope.h"
|
|
#include "misc.h"
|
|
|
|
extern struct idf *str2idf();
|
|
extern struct def *define();
|
|
|
|
struct def *
|
|
Enter(name, kind, type, pnam)
|
|
char *name;
|
|
struct type *type;
|
|
{
|
|
struct idf *id;
|
|
struct def *df;
|
|
|
|
id = str2idf(name, 0);
|
|
if (!id) fatal("Out of core");
|
|
df = define(id, CurrentScope, kind);
|
|
df->df_type = type;
|
|
if (kind == D_STDPROC || kind == D_STDFUNC) {
|
|
df->df_value.df_stdname = pnam;
|
|
}
|
|
return df;
|
|
}
|
|
|
|
EnterIdList(idlist, kind, flags, type)
|
|
register struct id_list *idlist;
|
|
struct type *type;
|
|
{
|
|
register struct def *df;
|
|
struct def *last = 0;
|
|
int assval = 0;
|
|
|
|
while (idlist) {
|
|
df = define(idlist->id_ptr, CurrentScope, kind);
|
|
df->df_type = type;
|
|
df->df_flags = flags;
|
|
if (kind == D_ENUM) {
|
|
df->df_value.df_enum.en_val = assval++;
|
|
if (last) last->df_value.df_enum.en_next = df;
|
|
last = df;
|
|
}
|
|
idlist = idlist->next;
|
|
}
|
|
if (last) last->df_value.df_enum.en_next = 0;
|
|
}
|