1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- #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));
- }
|