Lots of procedures removed (turned into macro in alloc.h or

moved to one specific phase).

diff --git a/util/ego/share/alloc.c b/util/ego/share/alloc.c
index c7cbc2d..1784420 100644 (file)
--- a/util/ego/share/alloc.c
+++ b/util/ego/share/alloc.c
@@ -165,46 +165,6 @@ oldargb(abp) register argb_p abp; {
        }
 }
 
-num_p newnum() {
-
-       return((num_p) newcore(sizeof(struct num)));
-}
-
-oldnum(lp) num_p lp; {
-
-       oldcore((short *) lp,sizeof(struct num));
-}
-
-
-sym_p newsym() {
-
-       return((sym_p) newcore(sizeof(struct sym)));
-}
-
-oldsym(sp) sym_p sp; {
-       oldcore((short *) sp,sizeof(struct sym));
-}
-
-
-prc_p newprc() {
-       return((prc_p) newcore(sizeof(struct prc)));
-}
-
-
-oldprc(pp) prc_p pp; {
-       oldcore((short *) pp,sizeof(struct prc));
-}
-
-
-argb_p newargb() {
-
-       return((argb_p) newcore(sizeof(argb_t)));
-}
-
-obj_p newobject() {
-       return((obj_p) newcore(sizeof(struct obj)));
-}
-
 oldobjects(op) register obj_p op; {
        register obj_p next;
 
@@ -215,18 +175,6 @@ oldobjects(op) register obj_p op; {
        }
 }
 
-proc_p newproc() {
-       return((proc_p) newcore(sizeof(struct proc)));
-}
-
-oldproc(p) proc_p p; {
-       oldcore((short *) p, sizeof(struct proc));
-}
-
-dblock_p newdblock() {
-       return((dblock_p) newcore(sizeof(struct dblock)));
-}
-
 olddblock(dbl) dblock_p dbl; {
        oldobjects(dbl->d_objlist);
        oldargs(dbl->d_values);
@@ -234,15 +182,6 @@ olddblock(dbl) dblock_p dbl; {
 }
 
 
-bblock_p newbblock() {
-       return((bblock_p) newcore(sizeof(struct bblock)));
-}
-
-oldbblock(b) bblock_p b; {
-       oldcore((short *) b, sizeof(struct bblock));
-}
-
-
 short **newmap(length) short length; {
        return((short **) newcore((length+1) * sizeof(short *)));
 }
@@ -252,16 +191,6 @@ oldmap(mp,length) short **mp, length; {
 }
 
 
-elem_p newelem() {
-       return((elem_p) newcore(sizeof(struct elemholder)));
-}
-
-
-oldelem(ep) elem_p ep; {
-       oldcore((short *) ep, sizeof(struct elemholder));
-}
-
-
 cset newbitvect(n) short n; {
        return((cset) newcore((n-1)*sizeof(int) + sizeof(struct bitvector)));
        /* sizeof(struct bitvector) equals to the size of a struct with
@@ -275,95 +204,6 @@ oldbitvect(s,n) cset s; short n; {
 }
 
 
-loop_p newloop() {
-       return((loop_p) newcore(sizeof(struct loop)));
-}
-
-
-oldloop(lp) loop_p lp; {
-       oldcore((short *) lp, sizeof(struct loop));
-}
-
-use_p newuse() {
-       return((use_p) newcore(sizeof(struct use)));
-}
-
-
-olduse(u) use_p u; {
-       oldcore((short *) u, sizeof(struct use));
-}
-
-
-change_p newchange() {
-       return((change_p) newcore(sizeof(struct change)));
-}
-
-
-oldchange(c) change_p c; {
-       oldcore((short *) c, sizeof(struct change));
-}
-
-
-iv_p newiv() {
-       return((iv_p) newcore(sizeof(struct iv)));
-}
-
-oldiv(i) iv_p i; {
-       oldcore((short *) i, sizeof(struct iv));
-}
-
-
-code_p newcinfo() {
-       return((code_p) newcore(sizeof(struct code_info)));
-}
-
-oldcinfo(c) code_p c; {
-       oldcore((short *) c, sizeof(struct code_info));
-}
-
-
-call_p newcall() {
-       return((call_p) newcore(sizeof(struct call)));
-}
-
-oldcall(c) call_p c; {
-       oldcore((short *) c, sizeof(struct call));
-}
-
-
-actual_p newactual() {
-       return((actual_p) newcore(sizeof(struct actual)));
-}
-
-oldactual(a) actual_p a; {
-       oldcore((short *) a, sizeof(struct actual));
-}
-
-formal_p newformal() {
-       return((formal_p) newcore(sizeof(struct formal)));
-}
-
-oldformal(f) formal_p f; {
-       oldcore((short *) f, sizeof(struct formal));
-}
-
-calcnt_p newcalcnt() {
-       return ((calcnt_p) newcore(sizeof(struct calcnt)));
-}
-
-oldcalcnt(cc) calcnt_p cc; {
-       oldcore((short *) cc, sizeof(struct calcnt));
-}
-
-local_p newlocal() {
-       return ((local_p) newcore(sizeof(struct local)));
-}
-
-oldlocal(lc) local_p lc; {
-       oldcore((short *) lc, sizeof(struct local));
-}
-
-
 short *newtable(length) short length; {
        return((short *) newcore((length+1) * sizeof(short)));
 }
@@ -372,84 +212,6 @@ oldtable(mp,length) short **mp, length; {
        oldcore((short *) mp, (length+1) * sizeof(short));
 }
 
-char **newnametab(tablen,namelen)
-       short tablen,namelen;
-{
-       register char **np, **tab;
-
-       tab = (char **) newmap(tablen);
-       for (np = &tab[1]; np <= &tab[tablen]; np++) {
-               *np = (char *) newcore(namelen);
-       }
-       return tab;
-}
-
-bext_p newcfbx() {
-       return ((bext_p) newcore(sizeof(struct bext_cf)));
-}
-
-oldcfbx(bxp) bext_p bxp; {
-       oldcore((short *) bxp,sizeof(struct bext_cf));
-}
-
-lpext_p newcflpx() {
-       return ((lpext_p) newcore (sizeof(struct lpext_cf)));
-}
-
-oldcflpx(lxp) lpext_p lxp; {
-       oldcore((short *) lxp,sizeof(struct lpext_cf));
-}
-
-lpext_p newsrlpx() {
-       return ((lpext_p) newcore (sizeof(struct lpext_sr)));
-}
-
-oldsrlpx(lxp) lpext_p lxp; {
-       oldcore((short *) lxp,sizeof(struct lpext_sr));
-}
-
-pext_p newilpx() {
-       return ((pext_p) newcore(sizeof(struct pext_il)));
-}
-
-oldilpx(pxp) pext_p pxp; {
-       oldcore((short *) pxp,sizeof(struct pext_il));
-}
-
-
-bext_p newudbx() {
-       return ((bext_p) newcore(sizeof(struct bext_ud)));
-}
-
-oldudbx(bxp) bext_p bxp; {
-       oldcore((short *) bxp,sizeof(struct bext_ud));
-}
-
-bext_p newlvbx() {
-       return ((bext_p) newcore(sizeof(struct bext_lv)));
-}
-
-oldlvbx(bxp) bext_p bxp; {
-       oldcore((short *) bxp,sizeof(struct bext_lv));
-}
-
-lpext_p newralpx() {
-       return ((lpext_p) newcore (sizeof(struct lpext_ra)));
-}
-
-oldralpx(lxp) lpext_p lxp; {
-       oldcore((short *) lxp,sizeof(struct lpext_ra));
-}
-
-bext_p newrabx() {
-       return ((bext_p) newcore(sizeof(struct bext_ra)));
-}
-
-oldrabx(bxp) bext_p bxp; {
-       oldcore((short *) bxp,sizeof(struct bext_ra));
-}
-
-
 cond_p newcondtab(l) int l;
 {
        return (cond_p) newcore(l * (sizeof (struct cond_tab)));