12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061 |
- /* $Id$ */
- /*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
- /* I N T E R M E D I A T E C O D E
- *
- * C O R E A L L O C A T I O N A N D D E A L L O C A T I O N
- */
- #include <stdlib.h>
- #ifdef DEBUG
- char *newcore(int size);
- void oldcore(char *p, int size);
- void coreusage()
- #else
- char *myalloc(int size);
- #define newcore(size) myalloc(size)
- #define oldcore(p,size) free((char *)p)
- #endif
- #define newstruct(t) ((struct t *) newcore (sizeof (struct t)))
- #define oldstruct(t,p) oldcore((char *) p,sizeof (struct t))
- line_p newline(int optyp);
- arg_p newarg(int kind);
- short **newmap(short length);
- cset newbitvect(short n);
- cond_p newcondtab(int l);
- void oldline(line_p lnp);
- void oldargs(arg_p ap);
- void oldargb(argb_p abp);
- void oldobjects(obj_p op);
- void olddblock(dblock_p dbl);
- void oldmap(short **mp, short length);
- void oldbitvect(cset s, short n);
- void oldcondtab(cond_p tab);
- short *newtable(short length);
- void oldtable(short **mp, short length);
- #define newdblock() (dblock_p) newstruct(dblock)
- #define newobject() (obj_p) newstruct(obj)
- #define newproc() (proc_p) newstruct(proc)
- #define newargb() (argb_p) newstruct(argbytes)
- #define newbblock() (bblock_p) newstruct(bblock)
- #define newelem() (elem_p) newstruct(elemholder)
- #define newloop() (loop_p) newstruct(loop)
- #define newuse() (use_p) newstruct(use)
- #define newchange() (change_p) newstruct(change)
- #define newlocal() (local_p) newstruct(local)
- #define oldproc(x) oldstruct(proc,x)
- #define oldbblock(x) oldstruct(bblock,x)
- #define oldelem(x) oldstruct(elemholder,x)
- #define oldloop(x) oldstruct(loop,x)
- #define olduse(x) oldstruct(use,x)
- #define oldchange(x) oldstruct(change,x)
- #define oldlocal(x) oldstruct(local,x)
|