#include "java.h" static char *instname[MAXDIS]; /* * %A format conversion. */ intAconv(va_list *addr, Fconv *f){	Addr *a;	char buf[512]; 	a = va_arg(*addr, Addr*); 	switch(a->mode) {	case Anone:		sprint(buf, "none");		break;	case Aimm:		sprint(buf, "$%d", a->u.ival);		break;	case Afp:		sprint(buf, "%d(fp)", a->u.offset);		break;	case Amp:		sprint(buf, "%d(mp)", a->u.offset);		break;	case Afpind:		sprint(buf, "%d(%d(fp))", a->u.b.si, a->u.b.fi);		break;	case Ampind:		sprint(buf, "%d(%d(mp))", a->u.b.si, a->u.b.fi);		break;	}	strconv(buf, f);	return sizeof(Addr*);} /* * %I format conversion. */ intIconv(va_list *inst, Fconv *f){	int n;	Inst *in;	char buf[512], *p;	char *op, *comma; 	in = va_arg(*inst, Inst*);	if(in->op >= 0 && in->op < MAXDIS)		op = instname[in->op];	else		op = "??";	buf[0] = '\0';	n = sprint(buf, "\t%s\t", op);	p = buf+n; 	comma = "";	if(in->s.mode != Anone) {		n = sprint(p, "%A", &in->s);		p += n;		comma = ",";	}	if(in->m.mode != Anone) {		n = sprint(p, "%s%A", comma, &in->m);		p += n;		comma = ",";	}	if(in->d.mode != Anone)		sprint(p, "%s%A", comma, &in->d); 	strconv(buf, f);	return sizeof(Inst*);} static voidehtable(Code *c){	int i;	char *s;	Handler *h; 	if(c->nex == 0)		return;	Bprint(bout, "#\tException Table\n");	for(i = 0; i < c->nex; i++) {		h = c->ex[i];		if(h->catch_type == 0)			s = "*";		else			s = CLASSNAME(h->catch_type);		Bprint(bout, "#\t%d %d %d %s\n", h->start_pc, h->end_pc,			h->handler_pc, s);	}} static voidputinst(Inst *i){	while(i) {		if(i->pc % 10 == 0)			Bprint(bout, "#%d\n", i->pc);		Bprint(bout, "%I\n", i);		i = i->next;	}} Inst *clinitclone;	/* generated <clinit>, <clone> methods */ /* * Emit assembly instructions for a method. */ voidasminst(void){	Inst *i;	Jinst *j, *je;	int n; 	if(verbose == 0) {		putinst(ihead);		return;	} 	/* -v option */ 	for(n = 0; n < class->methods_count; n++) {		Bprint(bout, "#Method: %s%s\n", pcode[n].name, pcode[n].sig);		if(pcode[n].code == nil)			continue;		ehtable(pcode[n].code);		j = &pcode[n].code->j[0];		je = j + pcode[n].code->code_length;		while(j < je) {			Bprint(bout, "#J%d\t%J\n", j->pc, j);			for(i = j->dis; i && i->j == j; i = i->next) {				if(i->pc % 10 == 0)					Bprint(bout, "#%d\n", i->pc);				Bprint(bout, "%I\n", i);			}			j += j->size;		}	} 	if(clinitclone) {		Bprint(bout, "#Method: <clinit|clone>()V\n");		putinst(clinitclone);	}} voidsblinst(Biobuf *bsym){	Inst *i;	int curline, lastline, lastchar, blockid; 	Bprint(bsym, "%d\n", itail ? itail->pc + 1 : 0);	curline = 1;	lastline = -1;	lastchar = 6;	blockid = -1;	for(i = ihead; i; i = i->next) {		if(i->j)			curline = i->j->line;		if(curline != lastline) {			lastline = curline;			lastchar = 6;			blockid++;			Bprint(bsym, "%d.", curline);		}		Bprint(bsym, "1,%d %d\n", lastchar++, blockid);	}} /* * Dis opcode mnemonics.  Keep in sync with interp/tab.h! */ static char *instname[MAXDIS] ={	"nop",	"alt",	"nbalt",	"goto",	"call",	"frame",	"spawn",	"runt",	"load",	"mcall",	"mspawn",	"mframe",	"ret",	"jmp",	"case",	"exit",	"new",	"newa",	"newcb",	"newcw",	"newcf",	"newcp",	"newcm",	"newcmp",	"send",	"recv",	"consb",	"consw",	"consp",	"consf",	"consm",	"consmp",	"headb",	"headw",	"headp",	"headf",	"headm",	"headmp",	"tail",	"lea",	"indx",	"movp",	"movm",	"movmp",	"movb",	"movw",	"movf",	"cvtbw",	"cvtwb",	"cvtfw",	"cvtwf",	"cvtca",	"cvtac",	"cvtwc",	"cvtcw",	"cvtfc",	"cvtcf",	"addb",	"addw",	"addf",	"subb",	"subw",	"subf",	"mulb",	"mulw",	"mulf",	"divb",	"divw",	"divf",	"modw",	"modb",	"andb",	"andw",	"orb",	"orw",	"xorb",	"xorw",	"shlb",	"shlw",	"shrb",	"shrw",	"insc",	"indc",	"addc",	"lenc",	"lena",	"lenl",	"beqb",	"bneb",	"bltb",	"bleb",	"bgtb",	"bgeb",	"beqw",	"bnew",	"bltw",	"blew",	"bgtw",	"bgew",	"beqf",	"bnef",	"bltf",	"blef",	"bgtf",	"bgef",	"beqc",	"bnec",	"bltc",	"blec",	"bgtc",	"bgec",	"slicea",	"slicela",	"slicec",	"indw",	"indf",	"indb",	"negf",	"movl",	"addl",	"subl",	"divl",	"modl",	"mull",	"andl",	"orl",	"xorl",	"shll",	"shrl",	"bnel",	"bltl",	"blel",	"bgtl",	"bgel",	"beql",	"cvtlf",	"cvtfl",	"cvtlw",	"cvtwl",	"cvtlc",	"cvtcl",	"headl",	"consl",	"newcl",	"casec",	"indl",	"movpc",	"tcmp",	"mnewz",	"cvtrf",	"cvtfr",	"cvtws",	"cvtsw",	"lsrw",	"lsrl",	"eclr",	"newz",	"newaz",};