/* $Header$ */
/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 */
#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));
}