Browse Source

Lots of procedure newxxx() and oldxxx() turned into macros.
Lots of such procedures removed and made local to one specific phase.

bal 40 years ago
parent
commit
e5a282c621
1 changed files with 19 additions and 52 deletions
  1. 19 52
      util/ego/share/alloc.h

+ 19 - 52
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)