Initial revision

util/ego/cs/cs_alloc.c

@@ -0,0 +1,44 @@
+#include "../share/types.h"
+#include "../share/alloc.h"
+#include "cs.h"
+
+occur_p newoccur(l1, l2, b)
+	line_p l1, l2;
+	bblock_p b;
+{
+	/* Allocate a new struct occur and initialize it. */
+
+	register occur_p rop;
+
+	rop = (occur_p) newcore(sizeof(struct occur));
+	rop->oc_lfirst = l1; rop->oc_llast = l2; rop->oc_belongs = b;
+	return rop;
+}
+
+oldoccur(ocp)
+	occur_p ocp;
+{
+	oldcore((short *) ocp, sizeof(struct occur));
+}
+
+avail_p newavail()
+{
+	return (avail_p) newcore(sizeof(struct avail));
+}
+
+oldavail(avp)
+	avail_p avp;
+{
+	oldcore((short *) avp, sizeof(struct avail));
+}
+
+entity_p newentity()
+{
+	return (entity_p) newcore(sizeof(struct entity));
+}
+
+oldentity(enp)
+	entity_p enp;
+{
+	oldcore((short *) enp, sizeof(struct entity));
+}