util/ego/cs/cs_alloc.c

   1 /* $Id: cs_alloc.c,v 1.5 1994/06/24 10:21:46 ceriel Exp $ */
   2 /*
   3  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   4  * See the copyright notice in the ACK home directory, in the file "Copyright".
   5  */
   6 #include "../share/types.h"
   7 #include "../share/alloc.h"
   8 #include "cs.h"
   9
  10 occur_p newoccur(l1, l2, b)
  11         line_p l1, l2;
  12         bblock_p b;
  13 {
  14         /* Allocate a new struct occur and initialize it. */
  15
  16         register occur_p rop;
  17
  18         rop = (occur_p) newcore(sizeof(struct occur));
  19         rop->oc_lfirst = l1; rop->oc_llast = l2; rop->oc_belongs = b;
  20         return rop;
  21 }
  22
  23 oldoccur(ocp)
  24         occur_p ocp;
  25 {
  26         oldcore((char *) ocp, sizeof(struct occur));
  27 }
  28
  29 avail_p newavail()
  30 {
  31         return (avail_p) newcore(sizeof(struct avail));
  32 }
  33
  34 oldavail(avp)
  35         avail_p avp;
  36 {
  37         oldcore((char *) avp, sizeof(struct avail));
  38 }
  39
  40 entity_p newentity()
  41 {
  42         return (entity_p) newcore(sizeof(struct entity));
  43 }
  44
  45 oldentity(enp)
  46         entity_p enp;
  47 {
  48         oldcore((char *) enp, sizeof(struct entity));
  49 }