ack/util/opt/reg.c

#ifndef NORCSID
static char rcsid[] = "$Header$";
#endif

#include "assert.h"
#include "param.h"
#include "types.h"
#include "line.h"
#include "proinf.h"
#include "alloc.h"
#include "../../h/em_spec.h"
#include "../../h/em_pseu.h"
#include "../../h/em_mes.h"
#include "ext.h"

/*
 * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
 *
 *          This product is part of the Amsterdam Compiler Kit.
 *
 * Permission to use, sell, duplicate or disclose this software must be
 * obtained in writing. Requests for such permissions may be sent to
 *
 *      Dr. Andrew S. Tanenbaum
 *      Wiskundig Seminarium
 *      Vrije Universiteit
 *      Postbox 7161
 *      1007 MC Amsterdam
 *      The Netherlands
 *
 * Author: Hans van Staveren
 */

regvar(ap) register arg_p ap; {
	register reg_p rp;
	register i;

	rp = newreg();
	i=0;
	while (ap!=(arg_p)0 && ap->a_typ==ARGOFF && i<4) {
		rp->r_par[i++]=ap->a_a.a_offset;
		ap=ap->a_next;
	}
	/*
	 * Omit incomplete messages
	 */
	switch(i) {
	default:assert(FALSE);
	case 0:
	case 1:
	case 2:	oldreg(rp); return;
	case 3: rp->r_par[3]= (offset) 0; break;
	case 4: break;
	}
	rp->r_next = curpro.freg;
	curpro.freg = rp;
}

inreg(off) offset off; {
	register reg_p rp;

	for (rp=curpro.freg; rp != (reg_p) 0; rp=rp->r_next)
		if( rp->r_par[0] == off)
			return(TRUE);
	return(FALSE);
}

outregs() {
	register reg_p rp,tp;
	register i;

	for(rp=curpro.freg; rp != (reg_p) 0; rp = tp) {
		tp = rp->r_next;
		if (rp->r_par[3] != 0) {
			outinst(ps_mes);
			outoff((offset)ms_reg);
			for(i=0;i<4;i++)
				outoff(rp->r_par[i]);
			outinst(sp_cend);
		}
		oldreg(rp);
	}
	/* List of register messages is followed by an empty ms_reg
	 * unless an ms_gto was in this procedure, then the ms_gto
	 * will be output. Kludgy.
	 */
	outinst(ps_mes);
	outoff((offset)(curpro.gtoproc? ms_gto : ms_reg));
	outinst(sp_cend);
	curpro.freg = (reg_p) 0;
}

incregusage(off) offset off; {
	register reg_p rp;

	for(rp=curpro.freg; rp != (reg_p) 0; rp=rp->r_next)
		if (rp->r_par[0]==off) {
			rp->r_par[3]++;
			return;
		}
}