From 49137da06b1bbfa955b9ba032a750fd646130432 Mon Sep 17 00:00:00 2001 From: bal Date: Fri, 30 Nov 1984 10:15:24 +0000 Subject: [PATCH] Lots of procedures removed (turned into macro in alloc.h or moved to one specific phase). --- util/ego/share/alloc.c | 238 ----------------------------------------- 1 file changed, 238 deletions(-) diff --git a/util/ego/share/alloc.c b/util/ego/share/alloc.c index c7cbc2d32..1784420a7 100644 --- 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))); -- 2.34.1