12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 |
- /* $Id$ */
- /*
- * (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((char *) ocp, sizeof(struct occur));
- }
- avail_p newavail()
- {
- return (avail_p) newcore(sizeof(struct avail));
- }
- oldavail(avp)
- avail_p avp;
- {
- oldcore((char *) avp, sizeof(struct avail));
- }
- entity_p newentity()
- {
- return (entity_p) newcore(sizeof(struct entity));
- }
- oldentity(enp)
- entity_p enp;
- {
- oldcore((char *) enp, sizeof(struct entity));
- }
|