Return to getcod.c CVS log

Up to [MW Coherent from dump] / coherent / b / bin / c / n2 / i386

coherent

/*
 * n2/i386/getcod.c
 * The routines in this file read code from the intermediate file.
 * It is almost machine independent but it has been
 * broken out just in case a strange machine creeps along.
 * i386.
 */

#ifdef   vax
#include "INC$LIB:cc2.h"
#else
#include "cc2.h"
#endif

/*
 * Read in a code item.
 * Return a pointer to a filled in INS node.
 */
INS *
getcode()
{
	register INS	*ip;
	register OPINFO	*opp;
	register int	i;
	register int	opcode;

	opcode = bget();
	opp = &opinfo[opcode];
	if (opp->op_style == OF_LPTR) {
		if (iget() != (A_LID|A_DIR))
			cbotch("lptr");
		ip = newi(sizeof(INS));
		ip->i_type = LLLINK;
		ip->i_fp = NULL;
		ip->i_bp = NULL;
		ip->i_labno = iget();
		ip->i_sp = NULL;
		ip->i_ip = NULL;
		return ip;
	}
	if ((opp->op_flag&OP_JUMP) != 0) {
		if (iget() != (A_LID|A_DIR))
			cbotch("jump");
		ip = newi(sizeof(INS));
		ip->i_type = JUMP;
		ip->i_long = 0;
		ip->i_rel = opcode;
		ip->i_fp = NULL;
		ip->i_bp = NULL;
		ip->i_labno = iget();
		ip->i_sp = NULL;
		ip->i_ip = NULL;
		return ip;
	}
	ip = newn(opp->op_naddr);
	ip->i_type = CODE;
	ip->i_fp = NULL;
	ip->i_bp = NULL;
	for (i=0; i<opp->op_naddr; ++i)
		getfield(opcode, &ip->i_af[i]);
	ip->i_op = opcode;
	ip->i_naddr = opp->op_naddr;
	return ip;
}

/*
 * This routine reads in an AUTOS item within a function body.
 * It reads the size of the stack frame into the global cell 'framesize',
 * which is used by 'genprolog' to put out the function prolog.
 * It reads the used register field of the AUTOS item into 'usedregs'.
 */
getautos()
{
	framesize = iget();
	usedregs = iget();
}

/* end of n2/i386/getcod.c */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.