Initial revision

1984-11-26 13:43:22 +00:00
parent 5481dd47a9
commit 7b798175ad
36 changed files with 4585 additions and 0 deletions
--- a/util/ego/cs/cs_entity.c
+++ b/util/ego/cs/cs_entity.c
@@ -0,0 +1,142 @@
+/* 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();
+}