50 lines
909 B
C
50 lines
909 B
C
/* $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));
|
|
}
|