#include "l.h" voidlistinit(void){ 	fmtinstall('A', Aconv);	fmtinstall('D', Dconv);	fmtinstall('P', Pconv);	fmtinstall('S', Sconv);	fmtinstall('N', Nconv);} voidprasm(Prog *p){	print("%P\n", p);} intPconv(Fmt *fp){	char str[STRINGSZ], *s;	Prog *p;	int a; 	p = va_arg(fp->args, Prog*);	curp = p;	a = p->as;	if(a == ADATA || a == ADYNT || a == AINIT)		sprint(str, "(%ld)	%A	%D/%d,%D",			p->line, a, &p->from, p->reg, &p->to);	else{		s = str;		s += sprint(s, "(%ld)", p->line);		if(p->mark & NOSCHED)			s += sprint(s, "*");		if(p->reg == NREG)			sprint(s, "	%A	%D,%D",				a, &p->from, &p->to);		else		if(p->from.type != D_FREG)			sprint(s, "	%A	%D,R%d,%D",				a, &p->from, p->reg, &p->to);		else			sprint(s, "	%A	%D,F%d,%D",				a, &p->from, p->reg, &p->to);	}	return fmtstrcpy(fp, str);} intAconv(Fmt *fp){	char *s;	int a; 	a = va_arg(fp->args, int);	s = "???";	if(a >= AXXX && a < ALAST)		s = anames[a];	return fmtstrcpy(fp, s);} intDconv(Fmt *fp){	char str[STRINGSZ];	Adr *a;	long v; 	a = va_arg(fp->args, Adr*);	switch(a->type) { 	default:		sprint(str, "GOK-type(%d)", a->type);		break; 	case D_NONE:		str[0] = 0;		if(a->name != D_NONE || a->reg != NREG || a->sym != S)			sprint(str, "%N(R%d)(NONE)", a, a->reg);		break; 	case D_CONST:		sprint(str, "$%N", a);		if(a->reg != NREG)			sprint(str, "%N(R%d)(CONST)", a, a->reg);		break; 	case D_OCONST:		sprint(str, "$*$%N", a);		if(a->reg != NREG)			sprint(str, "%N(R%d)(CONST)", a, a->reg);		break; 	case D_OREG:		if(a->reg != NREG)			sprint(str, "%N(R%d)", a, a->reg);		else			sprint(str, "%N", a);		break; 	case D_REG:		sprint(str, "R%d", a->reg);		if(a->name != D_NONE || a->sym != S)			sprint(str, "%N(R%d)(REG)", a, a->reg);		break; 	case D_MREG:		sprint(str, "M%d", a->reg);		if(a->name != D_NONE || a->sym != S)			sprint(str, "%N(R%d)(REG)", a, a->reg);		break; 	case D_FREG:		sprint(str, "F%d", a->reg);		if(a->name != D_NONE || a->sym != S)			sprint(str, "%N(R%d)(REG)", a, a->reg);		break; 	case D_FCREG:		sprint(str, "FC%d", a->reg);		if(a->name != D_NONE || a->sym != S)			sprint(str, "%N(R%d)(REG)", a, a->reg);		break; 	case D_LO:		sprint(str, "LO");		if(a->name != D_NONE || a->sym != S)			sprint(str, "%N(LO)(REG)", a);		break; 	case D_HI:		sprint(str, "HI");		if(a->name != D_NONE || a->sym != S)			sprint(str, "%N(HI)(REG)", a);		break; 	case D_BRANCH:	/* botch */		if(curp->cond != P) {			v = curp->cond->pc;			if(v >= INITTEXT)				v -= INITTEXT-HEADR;			if(a->sym != S)				sprint(str, "%s+%.5lux(BRANCH)", a->sym->name, v);			else				sprint(str, "%.5lux(BRANCH)", v);		} else			if(a->sym != S)				sprint(str, "%s+%ld(APC)", a->sym->name, a->offset);			else				sprint(str, "%ld(APC)", a->offset);		break; 	case D_FCONST:		sprint(str, "$%e", ieeedtod(a->ieee));		break; 	case D_SCONST:		sprint(str, "$\"%S\"", a->sval);		break;	}	return fmtstrcpy(fp, str);} intNconv(Fmt *fp){	char str[STRINGSZ];	Adr *a;	Sym *s; 	a = va_arg(fp->args, Adr*);	s = a->sym;	switch(a->name) {	default:		sprint(str, "GOK-name(%d)", a->name);		break; 	case D_NONE:		sprint(str, "%ld", a->offset);		break; 	case D_EXTERN:		if(s == S)			sprint(str, "%ld(SB)", a->offset);		else			sprint(str, "%s+%ld(SB)", s->name, a->offset);		break; 	case D_STATIC:		if(s == S)			sprint(str, "<>+%ld(SB)", a->offset);		else			sprint(str, "%s<>+%ld(SB)", s->name, a->offset);		break; 	case D_AUTO:		if(s == S)			sprint(str, "%ld(SP)", a->offset);		else			sprint(str, "%s-%ld(SP)", s->name, -a->offset);		break; 	case D_PARAM:		if(s == S)			sprint(str, "%ld(FP)", a->offset);		else			sprint(str, "%s+%ld(FP)", s->name, a->offset);		break;	} 	return fmtstrcpy(fp, str);} intSconv(Fmt *fp){	int i, c;	char str[STRINGSZ], *p, *a; 	a = va_arg(fp->args, char*);	p = str;	for(i=0; i<sizeof(long); i++) {		c = a[i] & 0xff;		if(c >= 'a' && c <= 'z' ||		   c >= 'A' && c <= 'Z' ||		   c >= '0' && c <= '9' ||		   c == ' ' || c == '%') {			*p++ = c;			continue;		}		*p++ = '\\';		switch(c) {		case 0:			*p++ = 'z';			continue;		case '\\':		case '"':			*p++ = c;			continue;		case '\n':			*p++ = 'n';			continue;		case '\t':			*p++ = 't';			continue;		}		*p++ = (c>>6) + '0';		*p++ = ((c>>3) & 7) + '0';		*p++ = (c & 7) + '0';	}	*p = 0;	return fmtstrcpy(fp, str);} voiddiag(char *fmt, ...){	char buf[STRINGSZ], *tn;	va_list arg; 	tn = "??none??";	if(curtext != P && curtext->from.sym != S)		tn = curtext->from.sym->name;	va_start(arg, fmt);	vseprint(buf, buf+sizeof(buf), fmt, arg);	va_end(arg);	print("%s: %s\n", tn, buf); 	nerrors++;	if(nerrors > 10) {		print("too many errors\n");		errorexit();	}}