2025-10-01 11:25:38 -07:00
|
|
|
/* SPDX-License-Identifier: BSD-2-Clause */
|
|
|
|
|
/* Copyright 1996-2017 The NASM Authors - All Rights Reserved */
|
2017-02-28 18:13:43 -08:00
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* 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) {
|
2025-09-30 09:31:40 -07:00
|
|
|
snprintf(seg_str, sizeof seg_str, "%sseg %lu",
|
2017-02-28 18:13:43 -08:00
|
|
|
(type - EXPR_SEGBASE) == location.segment ? "this " : "",
|
2025-09-30 09:31:40 -07:00
|
|
|
(unsigned long)(type - EXPR_SEGBASE));
|
2017-02-28 18:13:43 -08:00
|
|
|
return seg_str;
|
|
|
|
|
} else {
|
|
|
|
|
return "ERR";
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void dump_expr(const expr *e)
|
|
|
|
|
{
|
|
|
|
|
printf("[");
|
|
|
|
|
for (; e->type; e++)
|
2025-09-30 09:31:40 -07:00
|
|
|
printf("<%s(%"PRId32"),%"PRId64">",
|
|
|
|
|
expr_type(e->type), e->type, e->value);
|
2017-02-28 18:13:43 -08:00
|
|
|
printf("]\n");
|
|
|
|
|
}
|