#include <lib9.h>#include <bio.h>#include "mach.h"/* * Mips-specific debugger interface */ extern	char	*mipsexcep(Map*, Rgetter);extern	int	mipsfoll(Map*, ulong, Rgetter, ulong*);extern	int	mipsinst(Map*, ulong, char, char*, int);extern	int	mipsdas(Map*, ulong, char*, int);extern	int	mipsinstlen(Map*, ulong);/* *	Debugger interface */Machdata mipsmach ={	{0, 0, 0, 0xD},		/* break point */	4,			/* break point size */ 	beswab,			/* short to local byte order */	beswal,			/* long to local byte order */	beswav,			/* vlong to local byte order */	risctrace,		/* C traceback */	riscframe,		/* Frame finder */	mipsexcep,		/* print exception */	0,			/* breakpoint fixup */	beieeesftos,		/* single precision float printer */	beieeedftos,		/* double precisioin float printer */	mipsfoll,		/* following addresses */	mipsinst,		/* print instruction */	mipsdas,		/* dissembler */	mipsinstlen,		/* instruction size */}; static char *excname[] ={	"external interrupt",	"TLB modification",	"TLB miss (load or fetch)",	"TLB miss (store)",	"address error (load or fetch)",	"address error (store)",	"bus error (fetch)",	"bus error (data load or store)",	"system call",	"breakpoint",	"reserved instruction",	"coprocessor unusable",	"arithmetic overflow",	"undefined 13",	"undefined 14",	"system call",	/* the following is made up */	"floating point exception"		/* FPEXC */}; char*mipsexcep(Map *map, Rgetter rget){	int e;	long c; 	c = (*rget)(map, "CAUSE");	if(c & 0x00002000)	/* INTR3 */		e = 16;		/* Floating point exception */	else		e = (c>>2)&0x0F;	return excname[e];} 	/* mips disassembler and related functions */ static	char FRAMENAME[] = ".frame"; typedef struct {	ulong addr;	uchar op;			/* bits 31-26 */	uchar rs;			/* bits 25-21 */	uchar rt;			/* bits 20-16 */	uchar rd;			/* bits 15-11 */	uchar sa;			/* bits 10-6 */	uchar function;			/* bits 5-0 */	long immediate;			/* bits 15-0 */	ulong cofun;			/* bits 24-0 */	ulong target;			/* bits 25-0 */	long w0;	long w1;	int size;			/* instruction size */	char *curr;			/* fill point in buffer */	char *end;			/* end of buffer */	char *err;			/* error message */} Instr; static Map *mymap; static intdecode(ulong pc, Instr *i){	long w; 	if (get4(mymap, pc, &w) < 0) {		werrstr("can't read instruction: %r");		return -1;	}	i->addr = pc;	i->size = 1;	i->op = (w >> 26) & 0x3F;	i->rs = (w >> 21) & 0x1F;	i->rt = (w >> 16) & 0x1F;	i->rd = (w >> 11) & 0x1F;	i->sa = (w >> 6) & 0x1F;	i->function = w & 0x3F;	i->immediate = w & 0x0000FFFF;	if (i->immediate & 0x8000)		i->immediate |= ~0x0000FFFF;	i->cofun = w & 0x01FFFFFF;	i->target = w & 0x03FFFFFF;	i->w0 = w;	return 1;} static intmkinstr(ulong pc, Instr *i){	Instr x; 	if (decode(pc, i) < 0)		return -1;	/*	 * if it's a LUI followed by an ORI,	 * it's an immediate load of a large constant.	 * fix the LUI immediate in any case.	 */	if (i->op == 0x0F) {		if (decode(pc+4, &x) < 0)			return 0;		i->immediate <<= 16;		if (x.op == 0x0D && x.rs == x.rt && x.rt == i->rt) {			i->immediate |= (x.immediate & 0xFFFF);			i->w1 = x.w0;			i->size++;			return 1;		}	}	/*	 * if it's a LWC1 followed by another LWC1	 * into an adjacent register, it's a load of	 * a floating point double.	 */	else if (i->op == 0x31 && (i->rt & 0x01)) {		if (decode(pc+4, &x) < 0)			return 0;		if (x.op == 0x31 && x.rt == (i->rt - 1) && x.rs == i->rs) {			i->rt -= 1;			i->w1 = x.w0;			i->size++;			return 1;		}	}	/*	 * similarly for double stores	 */	else if (i->op == 0x39 && (i->rt & 0x01)) {		if (decode(pc+4, &x) < 0)			return 0;		if (x.op == 0x39 && x.rt == (i->rt - 1) && x.rs == i->rs) {			i->rt -= 1;			i->w1 = x.w0;			i->size++;		}	}	return 1;} static voidbprint(Instr *i, char *fmt, ...){	va_list arg; 	va_start(arg, fmt);	i->curr = vseprint(i->curr, i->end, fmt, arg);	va_end(arg);} typedef struct Opcode Opcode; struct Opcode {	char *mnemonic;	void (*f)(Opcode *, Instr *);	char *ken;}; static void format(char *, Instr *, char *); static voidbranch(Opcode *o, Instr *i){	if (i->rs == 0 && i->rt == 0)		format("JMP", i, "%b");	else if (i->rs == 0)		format(o->mnemonic, i, "R%t,%b");	else if (i->rt < 2)		format(o->mnemonic, i, "R%s,%b");	else		format(o->mnemonic, i, "R%s,R%t,%b");} static voidaddi(Opcode *o, Instr *i){	if (i->rs == i->rt)		format(o->mnemonic, i, "%i,R%t");	else if (i->rs == 0)		format("MOVW", i, "%i,R%t");	else if (i->rs == 30) {		bprint(i, "MOVW\t$");		i->curr += symoff(i->curr, i->end-i->curr,					i->immediate+mach->sb, CANY);		bprint(i, "(SB),R%d", i->rt);	}	else		format(o->mnemonic, i, o->ken);} static voidandi(Opcode *o, Instr *i){	if (i->rs == i->rt)		format(o->mnemonic, i, "%i,R%t");	else		format(o->mnemonic, i, o->ken);} static intplocal(Instr *i, char *m, char r, int store){	int offset;	char *reg;	Symbol s; 	if (!findsym(i->addr, CTEXT, &s) || !findlocal(&s, FRAMENAME, &s))		return 0;	if (s.value > i->immediate) {		if(!getauto(&s, s.value-i->immediate, CAUTO, &s))			return 0;		reg = "(SP)";		offset = i->immediate;	} else {		offset = i->immediate-s.value;		if (!getauto(&s, offset-4, CPARAM, &s))			return 0;		reg = "(FP)";	}	if (store)		bprint(i, "%s\t%c%d,%s+%d%s", m, r, i->rt, s.name, offset, reg);	else		bprint(i, "%s\t%s+%d%s,%c%d", m, s.name, offset, reg, r, i->rt);	return 1;} static voidlw(Opcode *o, Instr *i, char r){	char *m; 	if (r == 'F') {		if (i->size == 2)			m = "MOVD";		else			m = "MOVF";	}	else		m = o->mnemonic;	if (i->rs == 29 && plocal(i, m, r, 0))			return; 	if (i->rs == 30 && mach->sb) {		bprint(i, "%s\t", m);		i->curr += symoff(i->curr, i->end-i->curr, i->immediate+mach->sb, CANY);		bprint(i, "(SB),%c%d", r, i->rt);		return;	}	if (r == 'F')		format(m, i, "%l,F%t");	else		format(m, i, o->ken);} static voidload(Opcode *o, Instr *i){	lw(o, i, 'R');} static voidlwc1(Opcode *o, Instr *i){	lw(o, i, 'F');} static voidsw(Opcode *o, Instr *i, char r){	char *m; 	if (r == 'F') {		if (i->size == 2)			m = "MOVD";		else			m = "MOVF";	}	else		m = o->mnemonic;	if (i->rs == 29 && plocal(i, m, r, 1))			return; 	if (i->rs == 30 && mach->sb) {		bprint(i, "%s\t%c%d,", m, r, i->rt);		i->curr += symoff(i->curr, i->end-i->curr, i->immediate+mach->sb, CANY);		bprint(i, "(SB)");		return;	}	if (r == 'F')		format(m, i, "F%t,%l");	else		format(m, i, o->ken);} static voidstore(Opcode *o, Instr *i){	sw(o, i, 'R');} static voidswc1(Opcode *o, Instr *i){	sw(o, i, 'F');} static voidsll(Opcode *o, Instr *i){	if (i->w0 == 0)		bprint(i, "NOOP");	else if (i->rd == i->rt)		format(o->mnemonic, i, "$%a,R%d");	else		format(o->mnemonic, i, o->ken);} static voidsl32(Opcode *o, Instr *i){	i->sa += 32;	if (i->rd == i->rt)		format(o->mnemonic, i, "$%a,R%d");	else		format(o->mnemonic, i, o->ken);} static voidsllv(Opcode *o, Instr *i){	if (i->rd == i->rt)		format(o->mnemonic, i, "R%s,R%d");	else		format(o->mnemonic, i, o->ken);} static voidjal(Opcode *o, Instr *i){	if (i->rd == 31)		format("JAL", i, "(R%s)");	else		format(o->mnemonic, i, o->ken);} static voidadd(Opcode *o, Instr *i){	if (i->rd == i->rs)		format(o->mnemonic, i, "R%t,R%d");	else if (i->rd == i->rt)		format(o->mnemonic, i, "R%s,R%d");	else		format(o->mnemonic, i, o->ken);} static voidsub(Opcode *o, Instr *i){	if (i->rd == i->rs)		format(o->mnemonic, i, "R%t,R%d");	else		format(o->mnemonic, i, o->ken);} static voidor(Opcode *o, Instr *i){	if (i->rs == 0 && i->rt == 0)		format("MOVW", i, "$0,R%d");	else if (i->rs == 0)		format("MOVW", i, "R%t,R%d");	else if (i->rt == 0)		format("MOVW", i, "R%s,R%d");	else		add(o, i);} static voidnor(Opcode *o, Instr *i){	if (i->rs == 0 && i->rt == 0 && i->rd == 0)		format("NOP", i, 0);	else		add(o, i);} static char mipscoload[] = "r%t,%l";static char mipsload[] = "%l,R%t";static char mipsstore[] = "R%t,%l";static char mipsalui[] = "%i,R%s,R%t";static char mipsalu3op[] = "R%t,R%s,R%d";static char mipsrtrs[] = "R%t,R%s";static char mipscorsrt[] = "r%s,r%t";static char mipscorsi[] = "r%s,%i";static char mipscoxxx[] = "%w";static char mipscofp3[] = "f%a,f%d,f%t";	/* fd,fs,ft */static char mipsfp3[] = "F%t,F%d,F%a";static char mipscofp2[] = "f%a,f%d";		/* fd,fs */static char mipsfp2[] = "F%d,F%a";static char mipscofpc[] = "f%d,f%t";		/* fs,ft */static char mipsfpc[] = "F%t,F%d"; static Opcode opcodes[64] = {	0,		0,	0,	0,		0,	0,	"JMP",		0,	"%j",	"JAL",		0,	"%j",	"BEQ",	   branch,	0,	"BNE",	   branch,	0,	"BLEZ",	   branch,	0,	"BGTZ",	   branch,	0,	"ADD",	     addi,	mipsalui,	"ADDU",	     addi,	mipsalui,	"SGT",		0,	mipsalui,	"SGTU",		0,	mipsalui,	"AND",	     andi,	mipsalui,	"OR",	     andi,	mipsalui,	"XOR",	     andi,	mipsalui,	"MOVW",		0,	"$%u,R%t",	"cop0",		0,	0,	"cop1",		0,	0,	"cop2",		0,	0,	"cop3",		0,	0,	"BEQL",	   branch,	0,	"BNEL",	   branch,	0,	"BLEZL",   branch,	0,	"BGTZL",   branch,	0,	"instr18",	0,	mipscoxxx,	"instr19",	0,	mipscoxxx,	"MOVVL",     load,	mipsload,	"MOVVR",     load,	mipsload,	"instr1C",	0,	mipscoxxx,	"instr1D",	0,	mipscoxxx,	"instr1E",	0,	mipscoxxx,	"instr1F",	0,	mipscoxxx,	"MOVB",	     load,	mipsload,	"MOVH",	     load,	mipsload,	"lwl",		0,	mipscoload,	"MOVW",	     load,	mipsload,	"MOVBU",     load,	mipsload,	"MOVHU",     load,	mipsload,	"lwr",		0,	mipscoload,	"instr27",	0,	mipscoxxx,	"MOVB",	    store,	mipsstore,	"MOVH",	    store,	mipsstore,	"swl",		0,	mipscoload,	"MOVW",	    store,	mipsstore,	"MOVVL",    store,	mipsstore,	"MOVVR",    store,	mipsstore,	"swr",		0,	mipscoload,	"CACHE",	0,	"%C,%l",	"ll",		0,	mipscoload,	"MOVW",	     lwc1,	mipscoload,	"lwc2",		0,	mipscoload,	"lwc3",		0,	mipscoload,	"instr34",	0,	mipscoxxx,	"ldc1",		0,	mipscoload,	"ldc2",		0,	mipscoload,	"MOVV",	    load,	mipsload,	"sc",		0,	mipscoload,	"swc1",	     swc1,	mipscoload,	"swc2",		0,	mipscoload,	"swc3",		0,	mipscoload,	"instr3C",	0,	mipscoxxx,

Lines 1–500 of 1094. Load more