1984-05-19 11:42:19 +00:00
|
|
|
#ifndef NORCSID
|
|
|
|
|
static char rcsid[] = "$Header$";
|
|
|
|
|
#endif
|
|
|
|
|
|
1984-05-18 21:27:39 +00:00
|
|
|
#include "param.h"
|
|
|
|
|
#include "tables.h"
|
|
|
|
|
#include "types.h"
|
|
|
|
|
#include "glosym.h"
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
|
*
|
|
|
|
|
* This product is part of the Amsterdam Compiler Kit.
|
|
|
|
|
*
|
|
|
|
|
* Permission to use, sell, duplicate or disclose this software must be
|
|
|
|
|
* obtained in writing. Requests for such permissions may be sent to
|
|
|
|
|
*
|
|
|
|
|
* Dr. Andrew S. Tanenbaum
|
|
|
|
|
* Wiskundig Seminarium
|
|
|
|
|
* Vrije Universiteit
|
|
|
|
|
* Postbox 7161
|
|
|
|
|
* 1007 MC Amsterdam
|
|
|
|
|
* The Netherlands
|
|
|
|
|
*
|
|
|
|
|
* Author: Hans van Staveren
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
extern string myalloc();
|
|
|
|
|
|
|
|
|
|
glosym_p glolist= (glosym_p) 0;
|
|
|
|
|
|
|
|
|
|
enterglo(name,romp) string name; word *romp; {
|
|
|
|
|
register glosym_p gp;
|
|
|
|
|
register i;
|
|
|
|
|
|
|
|
|
|
gp = (glosym_p) myalloc(sizeof *gp);
|
|
|
|
|
gp->gl_next = glolist;
|
|
|
|
|
gp->gl_name = (string) myalloc(strlen(name)+1);
|
|
|
|
|
strcpy(gp->gl_name,name);
|
|
|
|
|
for (i=0;i<=MAXROM;i++)
|
|
|
|
|
gp->gl_rom[i] = romp[i];
|
|
|
|
|
glolist = gp;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
glosym_p lookglo(name) string name; {
|
|
|
|
|
register glosym_p gp;
|
|
|
|
|
|
|
|
|
|
for (gp=glolist;gp != (glosym_p) 0; gp=gp->gl_next)
|
|
|
|
|
if (strcmp(gp->gl_name,name)==0)
|
|
|
|
|
return(gp);
|
|
|
|
|
return((glosym_p) 0);
|
|
|
|
|
}
|
