static int Aconv(Fmt *fp);
static int Dconv(Fmt *fp);
-static int Nconv(Fmt *fp);
+static int Mconv(Fmt *fp);
static int Pconv(Fmt *fp);
static int Rconv(Fmt *fp);
-static int Sconv(Fmt *fp);
+static int DSconv(Fmt *fp);
void
listinit5(void)
{
fmtinstall('A', Aconv);
fmtinstall('P', Pconv);
- fmtinstall('S', Sconv);
- fmtinstall('N', Nconv);
+ fmtinstall('$', DSconv);
+ fmtinstall('M', Mconv);
fmtinstall('D', Dconv);
fmtinstall('R', Rconv);
}
case D_NONE:
str[0] = 0;
if(a->name != D_NONE || a->reg != NREG || a->sym != nil)
- sprint(str, "%N(R%d)(NONE)", a, a->reg);
+ sprint(str, "%M(R%d)(NONE)", a, a->reg);
break;
case D_CONST:
if(a->reg != NREG)
- sprint(str, "$%N(R%d)", a, a->reg);
+ sprint(str, "$%M(R%d)", a, a->reg);
else
- sprint(str, "$%N", a);
+ sprint(str, "$%M", a);
break;
case D_CONST2:
case D_OREG:
if(a->reg != NREG)
- sprint(str, "%N(R%d)", a, a->reg);
+ sprint(str, "%M(R%d)", a, a->reg);
else
- sprint(str, "%N", a);
+ sprint(str, "%M", a);
break;
case D_REG:
sprint(str, "R%d", a->reg);
if(a->name != D_NONE || a->sym != nil)
- sprint(str, "%N(R%d)(REG)", a, a->reg);
+ sprint(str, "%M(R%d)(REG)", a, a->reg);
break;
case D_FREG:
sprint(str, "F%d", a->reg);
if(a->name != D_NONE || a->sym != nil)
- sprint(str, "%N(R%d)(REG)", a, a->reg);
+ sprint(str, "%M(R%d)(REG)", a, a->reg);
break;
case D_PSR:
sprint(str, "PSR");
if(a->name != D_NONE || a->sym != nil)
- sprint(str, "%N(PSR)(REG)", a);
+ sprint(str, "%M(PSR)(REG)", a);
break;
case D_BRANCH:
break;
case D_SCONST:
- sprint(str, "$\"%S\"", a->u.sval);
+ sprint(str, "$\"%$\"", a->u.sval);
break;
}
return fmtstrcpy(fp, str);
}
static int
-Sconv(Fmt *fp)
+DSconv(Fmt *fp)
{
int i, c;
char str[STRINGSZ], *p, *a;
}
static int
-Nconv(Fmt *fp)
+Mconv(Fmt *fp)
{
char str[STRINGSZ];
Addr *a;
#include <link.h>
#include "../cmd/6l/6.out.h"
+//
+// Format conversions
+// %A int Opcodes (instruction mnemonics)
+//
+// %D Addr* Addresses (instruction operands)
+// Flags: "%lD": seperate the high and low words of a constant by "-"
+//
+// %P Prog* Instructions
+//
+// %R int Registers
+//
+// %$ char* String constant addresses (for internal use only)
+
static int Aconv(Fmt *fp);
static int Dconv(Fmt *fp);
static int Pconv(Fmt *fp);
static int Rconv(Fmt *fp);
-static int Sconv(Fmt *fp);
+static int DSconv(Fmt *fp);
enum
{
{
fmtinstall('A', Aconv);
fmtinstall('P', Pconv);
- fmtinstall('S', Sconv);
+ fmtinstall('$', DSconv);
fmtinstall('D', Dconv);
fmtinstall('R', Rconv);
}
break;
case D_SCONST:
- sprint(str, "$\"%S\"", a->u.sval);
+ sprint(str, "$\"%$\"", a->u.sval);
break;
case D_ADDR:
}
static int
-Sconv(Fmt *fp)
+DSconv(Fmt *fp)
{
int i, c;
char str[STRINGSZ], *p, *a;
static int Dconv(Fmt *fp);
static int Pconv(Fmt *fp);
static int Rconv(Fmt *fp);
-static int Sconv(Fmt *fp);
+static int DSconv(Fmt *fp);
enum
{
{
fmtinstall('A', Aconv);
fmtinstall('P', Pconv);
- fmtinstall('S', Sconv);
+ fmtinstall('$', DSconv);
fmtinstall('D', Dconv);
fmtinstall('R', Rconv);
}
break;
case D_SCONST:
- sprint(str, "$\"%S\"", a->u.sval);
+ sprint(str, "$\"%$\"", a->u.sval);
break;
case D_ADDR:
}
static int
-Sconv(Fmt *fp)
+DSconv(Fmt *fp)
{
int i, c;
char str[STRINGSZ], *p, *a;