17 _(a) _(b) _(c) _(d) _(si) _(di) _(bp)
18 #elif defined(__x86_64__)
20 _(a) _(b) _(c) _(d) _(si) _(di) _(bp) \
21 _(r8) _(r9) _(r10) _(r11) _(r12) _(r13) _(r14) _(r15)
22 #elif defined(__arm__)
24 _(r0) _(r1) _(r2) _(r3) _(r4) _(r5) _(r6) _(r7) \
25 _(r8) _(r9) _(r10) _(r11) _(r12)
26 #elif defined(__aarch64__)
28 _(x0) _(x1) _(x2) _(x3) _(x4) _(x5) _(x6) _(x7) \
29 _(x8) _(x9) _(x10) _(x11) _(x12) _(x13) _(x14) _(x15)
31 # error "not supported"
35 #define DEFCONST(r) R_##r,
42 static const char *const rname
[] = {
43 #define DEFNAME(r) #r,
58 #define N(v) (sizeof(v)/sizeof((v)[0]))
60 #define STRCMP(a, op, b) (strcmp((a), (b)) op 0)
61 #define STRNCMP(a, op, b, n) (strncmp((a), (b), (n)) op 0)
62 #define CTYPE_HACK(func, ch) func((unsigned char)(ch))
63 #define ISDIGIT(ch) CTYPE_HACK(isdigit, ch)
64 #define ISSPACE(ch) CTYPE_HACK(isspace, ch)
67 _(x00) _(x01) _(x02) _(x03) _(x04) _(x05) _(x06) _(x07) \
68 _(x08) _(x09) _(x0a) _(x0b) _(x0c) _(x0d) _(x0e) _(x0f) \
69 _(x10) _(x11) _(x12) _(x13) _(x14) _(x15) _(x16) _(x17) \
70 _(x18) _(x19) _(x1a) _(x1b) _(x1c) _(x1d) _(x1e) _(x1f) \
71 _(x20) _(x21) _(x22) _(x23) _(x24) _(x25) _(x26) _(x27) \
72 _(x28) _(x29) _(x2a) _(x2b) _(x2c) _(x2d) _(x2e) _(x2f) \
73 _(x30) _(x31) _(x32) _(x33) _(x34) _(x35) _(x36) _(x37) \
74 _(x38) _(x39) _(x3a) _(x3b) _(x3c) _(x3d) _(x3e) _(x3f)
76 #define DECL(x) extern const int x;
80 static const int *x
[] = {
85 extern void call_example(const int *f
, struct regs
*r
);
87 static const char *prog
= "???";
89 __attribute__((format(printf
, 1, 2), noreturn
))
90 static void barf(const char *m
, ...)
95 fprintf(stderr
, "%s: ", prog
);
96 vfprintf(stderr
, m
, ap
);
102 static void *xmalloc(size_t sz
)
108 if (!p
) barf("malloc failed");
112 #define DEF_PARSEINT(name, ty, strto) \
113 static ty parse_##name(const char *what, const char *p, ty min, ty max) \
115 const char *pp = p; \
120 if (ISSPACE(*p)) goto bad; \
121 err = errno; errno = 0; \
122 i = strto(p, &q, 0); \
123 if (errno) goto bad; \
125 if (i < min || i > max) goto bad; \
130 barf("bad %s `%s'", what, pp); \
132 DEF_PARSEINT(long, long, strtol
)
133 DEF_PARSEINT(ulong
, unsigned long, strtoul
)
135 static int hex_digit(char ch
)
137 if ('0' <= ch
&& ch
<= '9') return (ch
- '0');
138 else if ('A' <= ch
&& ch
<= 'F') return (ch
- 'A' + 10);
139 else if ('a' <= ch
&& ch
<= 'f') return (ch
- 'a' + 10);
143 static void setreg(union reg
*r
, struct seg
**seg_inout
, const char *p
)
151 #define LONG_REG(p) (parse_long("signed register", (p), LONG_MIN, LONG_MAX))
152 #define ULONG_REG(p) (parse_ulong("unsigned register", (p), 0, ULONG_MAX))
156 if (p
[1]) r
->i
= LONG_REG(p
);
159 if (p
[1] != ':') goto bad
;
160 r
->i
= LONG_REG(p
+ 2);
163 if (p
[1] != ':') goto bad
;
164 r
->u
= ULONG_REG(p
+ 2);
167 if (p
[1] != ':' || p
[3]) goto bad
;
171 if (p
[1] != ':') goto bad
;
172 pp
= p
+ 2; n
= strlen(pp
) + 1;
173 seg
= (*seg_inout
)++; seg
->p
= xmalloc(n
); seg
->sz
= n
;
174 memcpy(seg
->p
, pp
, n
); r
->p
= seg
->p
;
177 if (p
[1] != ':') goto bad
;
178 pp
= p
+ 2; n
= strlen(pp
); if (n
%2) goto bad
;
179 seg
= (*seg_inout
)++; seg
->p
= q
= xmalloc(n
/2); seg
->sz
= n
/2;
181 hi
= hex_digit(pp
[0]); lo
= hex_digit(pp
[1]);
182 if (hi
< 0 || lo
< 0) goto bad
;
183 *q
++ = 16*hi
+ lo
; n
-= 2; pp
+= 2;
188 if (p
[1] != ':') goto bad
;
189 n
= parse_ulong("buffer length", p
+ 2, 0, ~(size_t)0);
190 seg
= (*seg_inout
)++; seg
->p
= q
= xmalloc(n
); seg
->sz
= n
;
191 r
->p
= q
; memset(q
, 0, n
);
194 if (ISDIGIT(*p
)) r
->u
= ULONG_REG(p
);
195 else if (*p
== '+') r
->i
= LONG_REG(p
);
196 else if (*p
== '\'' && p
[2] == '\'' && !p
[3]) r
->u
= p
[1];
200 barf("bad regspec `%s'", p
);
207 static void dumpreg(const char *name
, const union reg
*r
,
208 const struct seg
*seg
, size_t nseg
)
212 #if ULONG_MAX == 0xffffffff
213 printf("%3s = 0x%08lx = %20ld = %20lu", name
, r
->u
, r
->i
, r
->u
);
215 printf("%3s = 0x%016lx = %20ld = %20lu", name
, r
->u
, r
->i
, r
->u
);
217 if (r
->u
>= ' ' && r
->u
<= '~') printf(" = '%c'", (int)r
->u
);
218 for (i
= 0; i
< nseg
; i
++) {
219 if (r
->p
== seg
[i
].p
)
220 printf(" = seg[%zu] base", i
);
221 else if (r
->p
== seg
[i
].p
+ seg
[i
].sz
)
222 printf(" = seg[%zu] limit", i
);
223 else if (seg
[i
].p
< r
->p
&& r
->p
< seg
[i
].p
+ seg
[i
].sz
)
224 printf(" = seg[%zu] + %zu", i
, (size_t)(r
->p
- seg
[i
].p
));
229 static void dumpseg(const struct seg
*seg
)
234 for (i
= 0; i
< seg
->sz
; i
+= 8) {
235 printf("\t%8zx :", i
);
236 for (j
= 0; j
< 8; j
++)
237 if (i
+ j
>= seg
->sz
) printf(" **");
238 else printf(" %02x", seg
->p
[i
+ j
]);
240 for (j
= 0; j
< 8; j
++)
241 if (i
+ j
>= seg
->sz
) putchar('*');
244 if (' ' <= ch
&& ch
<= '~') putchar(ch
);
251 int main(int argc
, char *argv
[])
254 struct seg seg
[16], *segp
= seg
;
262 prog
= strrchr(argv
[0], '/'); if (prog
) prog
++; else prog
= argv
[0];
265 barf("usage: %s I [REG...]",
268 j
= parse_long("program index", argv
[1], -1, N(x
) - 1);
270 #if ULONG_MAX == 0xffffffff
271 # define DEAD 0xdeadbeef
273 # define DEAD 0xdeadbeefdeadbeef
275 for (i
= 0; i
< NREGS
- 1; i
++) r
.r
[i
].u
= DEAD
;
284 l
= strtoul(p
, &q
, 10);
285 if (l
< NREGS
&& *q
== '=') { p
= q
+ 1; i
= l
; }
286 } else for (k
= 0; k
< NREGS
; k
++) {
287 n
= strlen(rname
[k
]);
288 if (STRNCMP(p
, ==, rname
[k
], n
) && p
[n
] == '=')
289 { i
= k
; p
+= n
+ 1; break; }
291 if (i
>= NREGS
) barf("too many registers");
292 setreg(&r
.r
[i
], &segp
, p
); i
++;
296 call_example(j
< 0 ?
&nop
: x
[j
], &r
);
298 for (i
= 0; i
< NREGS
; i
++) dumpreg(rname
[i
], &r
.r
[i
], seg
, nseg
);
302 #if defined(__i386__) || defined(__x86_64__)
310 printf("\tstatus: %ccf %cpf %caf %czf %csf %cdf %cof\n",
311 (f
>> 0)&1u ?
'+' : '-',
312 (f
>> 2)&1u ?
'+' : '-',
313 (f
>> 4)&1u ?
'+' : '-',
314 (f
>> 6)&1u ?
'+' : '-',
315 (f
>> 7)&1u ?
'+' : '-',
316 (f
>> 10)&1u ?
'+' : '-',
317 (f
>> 11)&1u ?
'+' : '-');
319 if (f
&CF
) printf(" c/b/nae"); else printf(" nc/ae/nb");
320 if (f
&ZF
) printf(" e/z"); else printf(" ne/nz");
321 if (f
&SF
) printf(" s"); else printf(" ns");
322 if (f
&OF
) printf(" o"); else printf(" no");
323 if (f
&PF
) printf(" p"); else printf(" np");
324 if ((f
&CF
) || (f
&ZF
)) printf(" be/na"); else printf(" a/nbe");
325 if (!(f
&OF
) == !(f
&SF
)) printf(" ge/nl"); else printf(" l/nge");
326 if (!(f
&OF
) == !(f
&SF
) && !(f
&ZF
))
327 printf(" g/nle"); else printf(" le/ng");
329 printf("\tsystem: %ctf %cif iopl=%d %cnt "
330 "%crf %cvm %cac %cvif %cvip %cid\n",
331 (f
>> 8)&1u ?
'+' : '-',
332 (f
>> 9)&1u ?
'+' : '-',
334 (f
>> 14)&1u ?
'+' : '-',
335 (f
>> 16)&1u ?
'+' : '-',
336 (f
>> 17)&1u ?
'+' : '-',
337 (f
>> 18)&1u ?
'+' : '-',
338 (f
>> 19)&1u ?
'+' : '-',
339 (f
>> 20)&1u ?
'+' : '-',
340 (f
>> 21)&1u ?
'+' : '-');
348 #elif defined(__arm__)
350 #define NF (1u << 31)
351 #define ZF (1u << 30)
352 #define CF (1u << 29)
353 #define VF (1u << 28)
357 *modetab
[] = { "?00", "?01", "?02", "?03", "?04", "?05", "?06", "?07",
358 "?08", "?09", "?10", "?11", "?12", "?13", "?14", "?15",
359 "usr", "fiq", "irq", "svc", "?20", "?21", "mon", "abt",
360 "?24", "?25", "hyp", "und", "?28", "?29", "?30", "sys" },
361 *condtab
[] = { "eq", "ne", "cs", "cc", "mi", "pl", "vs", "vc",
362 "hi", "ls", "ge", "lt", "gt", "le", "al", "nv" };
364 printf("\tuser: %cn %cz %cc %cv %cq ge=%c%c%c%c;",
365 (f
>> 31)&1u ?
'+' : '-',
366 (f
>> 30)&1u ?
'+' : '-',
367 (f
>> 29)&1u ?
'+' : '-',
368 (f
>> 28)&1u ?
'+' : '-',
369 (f
>> 27)&1u ?
'+' : '-',
370 (f
>> 19)&1u ?
'1' : '0',
371 (f
>> 18)&1u ?
'1' : '0',
372 (f
>> 17)&1u ?
'1' : '0',
373 (f
>> 16)&1u ?
'1' : '0');
374 if (f
&NF
) printf(" mi"); else printf(" pl");
375 if (f
&ZF
) printf(" eq"); else printf(" ne");
376 if (f
&CF
) printf(" cs/hs"); else printf(" cc/lo");
377 if (f
&VF
) printf(" vs"); else printf(" vc");
378 if ((f
&CF
) && !(f
&ZF
)) printf(" hi"); else printf(" ls");
379 if (!(f
&VF
) == !(f
&NF
)) printf(" ge"); else printf(" lt");
380 if (!(f
&VF
) == !(f
&NF
) && !(f
&ZF
)) printf(" gt"); else printf(" le");
382 printf("\tsystem: %cj it=%s:%c%c%c%c %ce %ca %ci %cf %ct m=%s\n",
383 (f
>> 24)&1u ?
'+' : '-',
384 condtab
[(f
>> 12)&15u],
385 (f
>> 11)&1u ?
'1' : '0',
386 (f
>> 10)&1u ?
'1' : '0',
387 (f
>> 26)&1u ?
'1' : '0',
388 (f
>> 25)&1u ?
'1' : '0',
389 (f
>> 9)&1u ?
'+' : '-',
390 (f
>> 8)&1u ?
'+' : '-',
391 (f
>> 7)&1u ?
'+' : '-',
392 (f
>> 6)&1u ?
'+' : '-',
393 (f
>> 5)&1u ?
'+' : '-',
394 modetab
[(f
>> 0)&31u]);
402 #elif defined(__aarch64__)
404 #define NF (1u << 31)
405 #define ZF (1u << 30)
406 #define CF (1u << 29)
407 #define VF (1u << 28)
409 printf("\tuser: %cn %cz %cc %cv;",
410 (f
>> 31)&1u ?
'+' : '-',
411 (f
>> 30)&1u ?
'+' : '-',
412 (f
>> 29)&1u ?
'+' : '-',
413 (f
>> 28)&1u ?
'+' : '-');
414 if (f
&NF
) printf(" mi"); else printf(" pl");
415 if (f
&ZF
) printf(" eq"); else printf(" ne");
416 if (f
&CF
) printf(" cs/hs"); else printf(" cc/lo");
417 if (f
&VF
) printf(" vs"); else printf(" vc");
418 if ((f
&CF
) && !(f
&ZF
)) printf(" hi"); else printf(" ls");
419 if (!(f
&VF
) == !(f
&NF
)) printf(" ge"); else printf(" lt");
420 if (!(f
&VF
) == !(f
&NF
) && !(f
&ZF
)) printf(" gt"); else printf(" le");
429 # error "not supported"
432 for (i
= 0; i
< nseg
; i
++)
433 { printf("seg[%d] (%p):\n", i
, seg
[i
].p
); dumpseg(&seg
[i
]); }