Initial revision

util/ego/share/alloc.h

@@ -0,0 +1,87 @@
+/*  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
+ */
+
+#ifdef DEBUG
+extern short *newcore();
+extern oldcore();
+#else
+extern short *myalloc();
+#define newcore(size) myalloc(size)
+#define oldcore(p,size) free(p)
+#endif
+
+#define newstruct(t)	(newcore (sizeof (struct t)))
+#define oldstruct(t,p)	oldcore((short *) p,sizeof (struct t))
+
+extern line_p	newline();		/* (byte optype) */
+extern dblock_p newdblock();
+extern obj_p	newobject();
+extern proc_p	newproc();
+extern arg_p	newarg();		/* (byte argtype) */
+extern argb_p	newargb();
+extern bblock_p	newbblock();
+extern short    **newmap();		/* (short length)	*/
+extern elem_p	newelem();
+extern cset	newbitvect();		/* (short nrbytes)	*/
+extern loop_p	newloop();
+extern use_p	newuse();
+extern change_p newchange();
+extern cond_p 	newcondtab();
+
+
+extern oldline() ;
+extern oldargs() ;
+extern oldargb() ;
+extern oldobjects() ;
+extern oldproc() ;
+extern olddblock() ;
+extern oldbblock();
+extern oldmap();
+extern oldelem();
+extern oldbitvect();			/* (cset s, short nrbytes)	*/
+extern oldloop();
+extern olduse();
+extern oldchange();
+extern oldcondtab();
+
+extern sym_p	newsym();
+extern prc_p	newprc();
+extern num_p	newnum();
+extern oldnum() ;
+extern oldsym();
+extern oldprc();
+extern iv_p newiv();
+extern oldiv();
+extern code_p newcinfo();
+extern oldcinfo();
+extern call_p newcall();
+extern oldcall();
+extern actual_p newactual();
+extern oldactual();
+extern formal_p newformal();
+extern oldformal();
+extern calcnt_p newcalcnt();
+extern oldcalcnt();
+extern local_p newlocal();
+extern oldlocal();
+extern short *newtable();
+extern oldtable();
+extern char **newnametab();
+extern bext_p newcfbx();
+extern oldcfbx();
+extern lpext_p newcflpx();
+extern oldcflpx();
+extern lpext_p newsrlpx();
+extern oldsrlpx();
+extern pext_p newilpx();
+extern oldilpx();
+extern bext_p newudbx();
+extern oldudbx();
+extern bext_p newlvbx();
+extern oldlvbx();
+extern bext_p newrabx();
+extern oldrabx();
+extern lpext_p newralpx();
+extern oldralpx();