Initial revision

util/ego/cs/cs_aux.c

@@ -0,0 +1,64 @@
+#include "../share/types.h"
+#include "../share/debug.h"
+#include "../share/aux.h"
+#include "../share/global.h"
+#include "../share/lset.h"
+#include "cs.h"
+#include "cs_entity.h"
+
+offset array_elemsize(vn)
+	valnum vn;
+{
+	/* Vn is the valuenumber of an entity that points to
+	 * an array-descriptor. The third element of this descriptor holds
+	 * the size of the array-elements.
+	 * IF we can find this entity, AND IF we can find the descriptor AND IF
+	 * this descriptor is located in ROM, then we return the size.
+	 */
+	entity_p enp;
+
+	enp = find_entity(vn);
+
+	if (enp == (entity_p) 0)
+		return UNKNOWN_SIZE;
+
+	if (enp->en_kind != ENAEXTERNAL)
+		return UNKNOWN_SIZE;
+
+	if (enp->en_ext->o_dblock->d_pseudo != DROM)
+		return UNKNOWN_SIZE;
+
+	return aoff(enp->en_ext->o_dblock->d_values, 2);
+}
+
+occur_p occ_elem(i)
+	Lindex i;
+{
+	return (occur_p) Lelem(i);
+}
+
+entity_p en_elem(i)
+	Lindex i;
+{
+	return (entity_p) Lelem(i);
+}
+
+/* The value numbers associated with each distinct value
+ * start at 1.
+ */
+
+STATIC valnum val_no;
+
+valnum newvalnum()
+{
+	/* Return a completely new value number. */
+
+	return ++val_no;
+}
+
+start_valnum()
+{
+	/* Restart value numbering. */
+
+	val_no = 0;
+}