1/* ----------------------------------------------------------------------- *
2 *
3 * Copyright 1996-2017 The NASM Authors - All Rights Reserved
4 * See the file AUTHORS included with the NASM distribution for
5 * the specific copyright holders.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following
9 * conditions are met:
10 *
11 * * Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * * Redistributions in binary form must reproduce the above
14 * copyright notice, this list of conditions and the following
15 * disclaimer in the documentation and/or other materials provided
16 * with the distribution.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
19 * CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
20 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
21 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
22 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
24 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
25 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
26 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
28 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
29 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
30 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
31 *
32 * ----------------------------------------------------------------------- */
33
34/*
35 * exprdump.c
36 *
37 * Debugging code to dump the contents of an expression vector to stdout
38 */
39
40#include "nasm.h"
41
42static const char *expr_type(int32_t type)
43{
44 static char seg_str[64];
45
46 switch (type) {
47 case 0:
48 return "null";
49 case EXPR_UNKNOWN:
50 return "unknown";
51 case EXPR_SIMPLE:
52 return "simple";
53 case EXPR_WRT:
54 return "wrt";
55 case EXPR_RDSAE:
56 return "sae";
57 default:
58 break;
59 }
60
61 if (type >= EXPR_REG_START && type <= EXPR_REG_END) {
62 return nasm_reg_names[type - EXPR_REG_START];
63 } else if (type >= EXPR_SEGBASE) {
64 snprintf(seg_str, sizeof seg_str, "%sseg %d",
65 (type - EXPR_SEGBASE) == location.segment ? "this " : "",
66 type - EXPR_SEGBASE);
67 return seg_str;
68 } else {
69 return "ERR";
70 }
71}
72
73void dump_expr(const expr *e)
74{
75 printf("[");
76 for (; e->type; e++)
77 printf("<%s(%d),%"PRId64">", expr_type(e->type), e->type, e->value);
78 printf("]\n");
79}
80