File: exprdump.c

package info (click to toggle)
nasm 3.01-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 23,660 kB
  • sloc: ansic: 129,101; asm: 40,471; perl: 8,238; sh: 4,146; makefile: 1,281; xml: 726; python: 582; lisp: 578; sed: 11
file content (50 lines) | stat: -rw-r--r-- 1,171 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
/* SPDX-License-Identifier: BSD-2-Clause */
/* Copyright 1996-2017 The NASM Authors - All Rights Reserved */

/*
 * exprdump.c
 *
 * Debugging code to dump the contents of an expression vector to stdout
 */

#include "nasm.h"

static const char *expr_type(int32_t type)
{
    static char seg_str[64];

    switch (type) {
    case 0:
        return "null";
    case EXPR_UNKNOWN:
        return "unknown";
    case EXPR_SIMPLE:
        return "simple";
    case EXPR_WRT:
        return "wrt";
    case EXPR_RDSAE:
        return "sae";
    default:
        break;
    }

    if (type >= EXPR_REG_START && type <= EXPR_REG_END) {
        return nasm_reg_names[type - EXPR_REG_START];
    } else if (type >= EXPR_SEGBASE) {
        snprintf(seg_str, sizeof seg_str, "%sseg %lu",
                 (type - EXPR_SEGBASE) == location.segment ? "this " : "",
                 (unsigned long)(type - EXPR_SEGBASE));
        return seg_str;
    } else {
        return "ERR";
    }
}

void dump_expr(const expr *e)
{
    printf("[");
    for (; e->type; e++)
        printf("<%s(%"PRId32"),%"PRId64">",
               expr_type(e->type), e->type, e->value);
    printf("]\n");
}