Lots of procedure newxxx() and oldxxx() turned into macros.

Lots of such procedures removed and made local to one specific phase.

diff --git a/util/ego/share/alloc.h b/util/ego/share/alloc.h
index 8fa5cd4..61029a1 100644 (file)
--- a/util/ego/share/alloc.h
+++ b/util/ego/share/alloc.h
@@ -16,18 +16,9 @@ extern short *myalloc();
 #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();
 
 
@@ -35,53 +26,29 @@ 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();
+
+#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)