d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source 
Lots of such procedures removed and made local to one specific phase.
This commit is contained in:
bal 1984-11-30 10:12:37 +00:00
parent 4ab54c85a8
commit e5a282c621
1 changed files with 19 additions and 52 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

71
util/ego/share/alloc.h
View file

@ -16,18 +16,9 @@ extern short *myalloc();
#define oldstruct(t,p) oldcore((short *) p,sizeof (struct t)) #define oldstruct(t,p) oldcore((short *) p,sizeof (struct t))
extern line_p newline(); /* (byte optype) */ 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 arg_p newarg(); /* (byte argtype) */
extern argb_p newargb();
extern bblock_p newbblock();
extern short **newmap(); /* (short length) */ extern short **newmap(); /* (short length) */
extern elem_p newelem();
extern cset newbitvect(); /* (short nrbytes) */ extern cset newbitvect(); /* (short nrbytes) */
extern loop_p newloop();
extern use_p newuse();
extern change_p newchange();
extern cond_p newcondtab(); extern cond_p newcondtab();
@ -35,53 +26,29 @@ extern oldline() ;
extern oldargs() ; extern oldargs() ;
extern oldargb() ; extern oldargb() ;
extern oldobjects() ; extern oldobjects() ;
extern oldproc() ;
extern olddblock() ; extern olddblock() ;
extern oldbblock();
extern oldmap(); extern oldmap();
extern oldelem();
extern oldbitvect(); /* (cset s, short nrbytes) */ extern oldbitvect(); /* (cset s, short nrbytes) */
extern oldloop();
extern olduse();
extern oldchange();
extern oldcondtab(); 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 short *newtable();
extern oldtable(); extern oldtable();
extern char **newnametab();
extern bext_p newcfbx(); #define newdblock() (dblock_p) newstruct(dblock)
extern oldcfbx(); #define newobject() (obj_p) newstruct(obj)
extern lpext_p newcflpx(); #define newproc() (proc_p) newstruct(proc)
extern oldcflpx(); #define newargb() (argb_p) newstruct(argbytes)
extern lpext_p newsrlpx(); #define newbblock() (bblock_p) newstruct(bblock)
extern oldsrlpx(); #define newelem() (elem_p) newstruct(elemholder)
extern pext_p newilpx(); #define newloop() (loop_p) newstruct(loop)
extern oldilpx(); #define newuse() (use_p) newstruct(use)
extern bext_p newudbx(); #define newchange() (change_p) newstruct(change)
extern oldudbx(); #define newlocal() (local_p) newstruct(local)
extern bext_p newlvbx();
extern oldlvbx(); #define oldproc(x) oldstruct(proc,x)
extern bext_p newrabx(); #define oldbblock(x) oldstruct(bblock,x)
extern oldrabx(); #define oldelem(x) oldstruct(elemholder,x)
extern lpext_p newralpx(); #define oldloop(x) oldstruct(loop,x)
extern oldralpx(); #define olduse(x) oldstruct(use,x)
#define oldchange(x) oldstruct(change,x)
#define oldlocal(x) oldstruct(local,x)