Lots of procedures removed (turned into macro in alloc.h or
moved to one specific phase).
This commit is contained in:
bal
parent
594a5bb49b
commit
49137da06b
|
|
@ -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)));
|
||||
|
|
|
|||
Loading…
Reference in a new issue