#define EXTERN#include "gc.h" voidlistinit(void){ 	fmtinstall('A', Aconv);	fmtinstall('P', Pconv);	fmtinstall('S', Sconv);	fmtinstall('N', Nconv);	fmtinstall('D', Dconv);	fmtinstall('B', Bconv);} intBconv(Fmt *fp){	char str[STRINGSZ], ss[STRINGSZ], *s;	Bits bits;	int i; 	str[0] = 0;	bits = va_arg(fp->args, Bits);	while(bany(&bits)) {		i = bnum(bits);		if(str[0])			strcat(str, " ");		if(var[i].sym == S) {			sprint(ss, "$%ld", var[i].offset);			s = ss;		} else			s = var[i].sym->name;		if(strlen(str) + strlen(s) + 1 >= STRINGSZ)			break;		strcat(str, s);		bits.b[i/32] &= ~(1L << (i%32));	}	return fmtstrcpy(fp, str);} intPconv(Fmt *fp){	char str[STRINGSZ], *s;	Prog *p;	int a; 	p = va_arg(fp->args, Prog*);	a = p->as;	if(a == ADATA)		sprint(str, "	%A	%D/%d,%D", a, &p->from, p->reg, &p->to);	else if(p->as == ATEXT)		sprint(str, "	%A	%D,%d,%D", a, &p->from, p->reg, &p->to);	else {		s = seprint(str, str+sizeof(str), "	%A	%D", a, &p->from);		if(p->reg != NREG)			s = seprint(s, str+sizeof(str), ",%c%d", p->from.type==D_FREG? 'F': 'R', p->reg);		if(p->from3.type != D_NONE)			s = seprint(s, str+sizeof(str), ",%D", &p->from3);		seprint(s, s+sizeof(str), ",%D", &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; 	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:		if(a->reg != NREG)			sprint(str, "$%N(R%d)", a, a->reg);		else			sprint(str, "$%N", a);		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_FREG:		sprint(str, "F%d", a->reg);		if(a->name != D_NONE || a->sym != S)			sprint(str, "%N(F%d)(REG)", a, a->reg);		break; 	case D_CREG:		sprint(str, "C%d", a->reg);		if(a->name != D_NONE || a->sym != S)			sprint(str, "%N(C%d)(REG)", a, a->reg);		break; 	case D_BRANCH:		sprint(str, "%ld(PC)", a->offset-pc);		break; 	case D_FCONST:		sprint(str, "$%.17e", a->dval);		break; 	case D_SCONST:		sprint(str, "$\"%S\"", a->sval);		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<NSNAME; 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;		case '\r':			*p++ = 'r';			continue;		case '\f':			*p++ = 'f';			continue;		}		*p++ = (c>>6) + '0';		*p++ = ((c>>3) & 7) + '0';		*p++ = (c & 7) + '0';	}	*p = 0;	return fmtstrcpy(fp, str);} intNconv(Fmt *fp){	char str[STRINGSZ];	Adr *a;	Sym *s;	int i, l, b, n; 	a = va_arg(fp->args, Adr*);	s = a->sym;	if(s == S) {		if(a->offset > 64 || -a->offset > 64) {			n = 0;			l = a->offset & 1;			for(i=0; i<32; i++){				b = (a->offset >> i) & 1;				if(b != l)					n++;				l = b;			}			if(n < 2) {				sprint(str, "%#lux", a->offset);				goto out;			}		}		sprint(str, "%ld", a->offset);		goto out;	}	switch(a->name) {	default:		sprint(str, "GOK-name(%d)", a->name);		break; 	case D_EXTERN:		sprint(str, "%s+%ld(SB)", s->name, a->offset);		break; 	case D_STATIC:		sprint(str, "%s<>+%ld(SB)", s->name, a->offset);		break; 	case D_AUTO:		sprint(str, "%s-%ld(SP)", s->name, -a->offset);		break; 	case D_PARAM:		sprint(str, "%s+%ld(FP)", s->name, a->offset);		break;	}out:	return fmtstrcpy(fp, str);}