45 lines
730 B
C
45 lines
730 B
C
|
#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));
|
||
|
|
}
|