7 fmtinstall('A', Aconv);
8 fmtinstall('D', Dconv);
9 fmtinstall('P', Pconv);
10 fmtinstall('S', Sconv);
11 fmtinstall('N', Nconv);
12 fmtinstall('R', Rconv);
21 p = va_arg(fp->args, Prog*);
28 return fmtprint(fp, "(%ld) %A %D/%d,%D",
29 p->line, a, &p->from, p->reg, &p->to);
32 if(p->reg == NREG && p->from3.type == D_NONE)
33 return fmtprint(fp, "(%ld) %A %D,%D",
34 p->line, a, &p->from, &p->to);
35 else if(p->from.type == D_FREG)
36 return fmtprint(fp, "(%ld) %A %D,F%d,%D",
37 p->line, a, &p->from, p->reg, &p->to);
39 fmtprint(fp, "(%ld) %A %D", p->line, a, &p->from);
40 if(p->from3.type != D_NONE)
41 fmtprint(fp, ",%D", &p->from3);
43 fmtprint(fp, ",R%d", p->reg);
44 fmtprint(fp, ",%D", &p->to);
55 a = va_arg(fp->args, int);
57 if(a >= AXXX && a < ALAST && anames[a])
59 return fmtstrcpy(fp, s);
88 static char *extop[] = {".UB", ".UH", ".UW", ".UX", ".SB", ".SH", ".SW", ".SX"};
90 a = va_arg(fp->args, Adr*);
94 return fmtprint(fp, "GOK-type(%d)", a->type);
97 if(a->name != D_NONE || a->reg != NREG || a->sym != S)
98 return fmtprint(fp, "%N(R%d)(NONE)", a, a->reg);
102 if(a->reg == NREG || a->reg == REGZERO)
103 return fmtprint(fp, "$%N", a);
105 return fmtprint(fp, "$%N(R%d)", a, a->reg);
109 op = "<<>>->@>" + (((v>>22) & 3) << 1);
111 return fmtprint(fp, "R%ld%c%c%ld",
112 (v>>16)&0x1F, op[0], op[1], (v>>10)&0x3F);
114 return fmtprint(fp, "R%ld%c%c%ld(R%d)",
115 (v>>16)&0x1F, op[0], op[1], (v>>10)&0x3F, a->reg);
119 return fmtprint(fp, "$*$%N(R%d)(CONST)", a, a->reg);
121 return fmtprint(fp, "$*$%N", a);
125 return fmtprint(fp, "%N(R%d)", a, a->reg);
127 return fmtprint(fp, "%N", a);
131 return fmtprint(fp, "%N(R%d)!", a, a->reg);
133 return fmtprint(fp, "%N!", a);
137 return fmtprint(fp, "(R%d)%N!", a->reg, a);
139 return fmtprint(fp, "%N!", a);
144 return fmtprint(fp, "R%ld%s<<%ld", (v>>16)&31, extop[(v>>13)&7], (v>>10)&7);
146 return fmtprint(fp, "R%ld%s", (v>>16)&31, extop[(v>>13)&7]);
151 return fmtprint(fp, "(R%d)[R%ld%s]", a->reg, v&31, extop[(v>>8)&7]);
153 return fmtprint(fp, "(R%d)(R%ld%s)", a->reg, v&31, extop[(v>>8)&7]);
156 if(a->name != D_NONE || a->sym != S)
157 return fmtprint(fp, "%N(R%d)(REG)", a, a->reg);
159 return fmtprint(fp, "R%d", a->reg);
162 if(a->name != D_NONE || a->sym != S)
163 return fmtprint(fp, "%N(R%d)(REG)", a, a->reg);
165 return fmtprint(fp, "SP");
168 return fmtprint(fp, "%s", strcond[a->reg & 0xF]);
171 if(a->name != D_NONE || a->sym != S)
172 return fmtprint(fp, "%N(R%d)(REG)", a, a->reg);
174 return fmtprint(fp, "F%d", a->reg);
177 if(a->name != D_NONE || a->sym != S)
178 return fmtprint(fp, "%N(SPR%lld)(REG)", a, a->offset);
179 switch((ulong)a->offset){
181 return fmtprint(fp, "FPSR");
183 return fmtprint(fp, "FPCR");
185 return fmtprint(fp, "NZCV");
187 return fmtprint(fp, "SPR(%#llux)", a->offset);
190 case D_BRANCH: /* botch */
191 if(curp->cond != P) {
194 return fmtprint(fp, "%s+%#.5lux(BRANCH)", a->sym->name, v);
196 return fmtprint(fp, "%.5lux(BRANCH)", v);
199 return fmtprint(fp, "%s+%lld(APC)", a->sym->name, a->offset);
201 return fmtprint(fp, "%lld(APC)", a->offset);
205 return fmtprint(fp, "$%e", ieeedtod(a->ieee));
208 return fmtprint(fp, "$\"%S\"", a->sval);
218 a = va_arg(fp->args, Adr*);
222 return fmtprint(fp, "GOK-name(%d)", a->name);
225 return fmtprint(fp, "%lld", a->offset);
229 return fmtprint(fp, "%lld(SB)", a->offset);
231 return fmtprint(fp, "%s+%lld(SB)", s->name, a->offset);
235 return fmtprint(fp, "<>+%lld(SB)", a->offset);
237 return fmtprint(fp, "%s<>+%lld(SB)", s->name, a->offset);
241 return fmtprint(fp, "%lld(SP)", a->offset);
243 return fmtprint(fp, "%s-%lld(SP)", s->name, -a->offset);
247 return fmtprint(fp, "%lld(FP)", a->offset);
249 return fmtprint(fp, "%s+%lld(FP)", s->name, a->offset);
259 a = va_arg(fp->args, int);
261 if(a >= C_NONE && a <= C_NCLASS)
263 return fmtstrcpy(fp, s);
276 char str[STRINGSZ], *p, *a;
278 a = va_arg(fp->args, char*);
280 for(i=0; i<sizeof(long); i++) {
282 if(c >= 'a' && c <= 'z' ||
283 c >= 'A' && c <= 'Z' ||
284 c >= '0' && c <= '9' ||
285 c == ' ' || c == '%') {
306 *p++ = ((c>>3) & 7) + '0';
307 *p++ = (c & 7) + '0';
310 return fmtstrcpy(fp, str);
316 char buf[STRINGSZ], *tn;
320 if(curtext != P && curtext->from.sym != S)
321 tn = curtext->from.sym->name;
323 vseprint(buf, buf+sizeof(buf), fmt, arg);
325 print("%s: %s\n", tn, buf);
329 print("too many errors\n");