143 lines
3 KiB
C
143 lines
3 KiB
C
|
/* F U N C T I O N S F O R A C C E S S I N G T H E S E T
|
||
|
|
*
|
||
|
|
* O F E N T I T I E S
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "../share/types.h"
|
||
|
|
#include "../share/global.h"
|
||
|
|
#include "../share/lset.h"
|
||
|
|
#include "../share/debug.h"
|
||
|
|
#include "cs.h"
|
||
|
|
#include "cs_alloc.h"
|
||
|
|
#include "cs_aux.h"
|
||
|
|
|
||
|
|
lset entities; /* Our pseudo symbol-table. */
|
||
|
|
|
||
|
|
entity_p find_entity(vn)
|
||
|
|
valnum vn;
|
||
|
|
{
|
||
|
|
/* Try to find the entity with valuenumber vn. */
|
||
|
|
|
||
|
|
register Lindex i;
|
||
|
|
|
||
|
|
for (i = Lfirst(entities); i != (Lindex) 0; i = Lnext(i, entities)) {
|
||
|
|
if (en_elem(i)->en_vn == vn)
|
||
|
|
return en_elem(i);
|
||
|
|
}
|
||
|
|
|
||
|
|
return (entity_p) 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
STATIC bool same_entity(enp1, enp2)
|
||
|
|
entity_p enp1, enp2;
|
||
|
|
{
|
||
|
|
if (enp1->en_kind != enp2->en_kind) return FALSE;
|
||
|
|
if (enp1->en_size != enp2->en_size) return FALSE;
|
||
|
|
if (enp1->en_size == UNKNOWN_SIZE) return FALSE;
|
||
|
|
|
||
|
|
switch (enp1->en_kind) {
|
||
|
|
case ENCONST:
|
||
|
|
return enp1->en_val == enp2->en_val;
|
||
|
|
case ENLOCAL:
|
||
|
|
case ENALOCAL:
|
||
|
|
return enp1->en_loc == enp2->en_loc;
|
||
|
|
case ENEXTERNAL:
|
||
|
|
case ENAEXTERNAL:
|
||
|
|
return enp1->en_ext == enp2->en_ext;
|
||
|
|
case ENINDIR:
|
||
|
|
return enp1->en_ind == enp2->en_ind;
|
||
|
|
case ENOFFSETTED:
|
||
|
|
case ENAOFFSETTED:
|
||
|
|
return enp1->en_base == enp2->en_base &&
|
||
|
|
enp1->en_off == enp2->en_off;
|
||
|
|
case ENALOCBASE:
|
||
|
|
case ENAARGBASE:
|
||
|
|
return enp1->en_levels == enp2->en_levels;
|
||
|
|
case ENPROC:
|
||
|
|
return enp1->en_pro == enp2->en_pro;
|
||
|
|
case ENARRELEM:
|
||
|
|
return enp1->en_arbase == enp2->en_arbase &&
|
||
|
|
enp1->en_index == enp2->en_index &&
|
||
|
|
enp1->en_adesc == enp2->en_adesc;
|
||
|
|
default:
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
STATIC copy_entity(src, dst)
|
||
|
|
entity_p src, dst;
|
||
|
|
{
|
||
|
|
dst->en_static = src->en_static;
|
||
|
|
dst->en_kind = src->en_kind;
|
||
|
|
dst->en_size = src->en_size;
|
||
|
|
|
||
|
|
switch (src->en_kind) {
|
||
|
|
case ENCONST:
|
||
|
|
dst->en_val = src->en_val;
|
||
|
|
break;
|
||
|
|
case ENLOCAL:
|
||
|
|
case ENALOCAL:
|
||
|
|
dst->en_loc = src->en_loc;
|
||
|
|
break;
|
||
|
|
case ENEXTERNAL:
|
||
|
|
case ENAEXTERNAL:
|
||
|
|
dst->en_ext = src->en_ext;
|
||
|
|
break;
|
||
|
|
case ENINDIR:
|
||
|
|
dst->en_ind = src->en_ind;
|
||
|
|
break;
|
||
|
|
case ENOFFSETTED:
|
||
|
|
case ENAOFFSETTED:
|
||
|
|
dst->en_base = src->en_base;
|
||
|
|
dst->en_off = src->en_off;
|
||
|
|
break;
|
||
|
|
case ENALOCBASE:
|
||
|
|
case ENAARGBASE:
|
||
|
|
dst->en_levels = src->en_levels;
|
||
|
|
break;
|
||
|
|
case ENPROC:
|
||
|
|
dst->en_pro = src->en_pro;
|
||
|
|
break;
|
||
|
|
case ENARRELEM:
|
||
|
|
dst->en_arbase = src->en_arbase;
|
||
|
|
dst->en_index = src->en_index;
|
||
|
|
dst->en_adesc = src->en_adesc;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
entity_p en_enter(enp)
|
||
|
|
register entity_p enp;
|
||
|
|
{
|
||
|
|
/* Put the entity in enp in the entity set, if it is not already there.
|
||
|
|
* Return pointer to stored entity.
|
||
|
|
*/
|
||
|
|
register Lindex i;
|
||
|
|
register entity_p new;
|
||
|
|
|
||
|
|
for (i = Lfirst(entities); i != (Lindex) 0; i = Lnext(i, entities)) {
|
||
|
|
if (same_entity(en_elem(i), enp))
|
||
|
|
return en_elem(i);
|
||
|
|
}
|
||
|
|
/* A new entity. */
|
||
|
|
new = newentity();
|
||
|
|
new->en_vn = newvalnum();
|
||
|
|
copy_entity(enp, new);
|
||
|
|
Ladd(new, &entities);
|
||
|
|
|
||
|
|
return new;
|
||
|
|
}
|
||
|
|
|
||
|
|
clr_entities()
|
||
|
|
{
|
||
|
|
/* Throw away all pseudo-symboltable information. */
|
||
|
|
|
||
|
|
register Lindex i;
|
||
|
|
|
||
|
|
for (i = Lfirst(entities); i != (Lindex) 0; i = Lnext(i, entities)) {
|
||
|
|
oldentity(en_elem(i));
|
||
|
|
}
|
||
|
|
Ldeleteset(entities);
|
||
|
|
entities = Lempty_set();
|
||
|
|
}
|