88 lines
2 KiB
C
88 lines
2 KiB
C
/* I N T E R M E D I A T E C O D E
|
|
*
|
|
* C O R E A L L O C A T I O N A N D D E A L L O C A T I O N
|
|
*/
|
|
|
|
#ifdef DEBUG
|
|
extern short *newcore();
|
|
extern oldcore();
|
|
#else
|
|
extern short *myalloc();
|
|
#define newcore(size) myalloc(size)
|
|
#define oldcore(p,size) free(p)
|
|
#endif
|
|
|
|
#define newstruct(t) (newcore (sizeof (struct t)))
|
|
#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();
|
|
|
|
|
|
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();
|