radare2/libr/debug/arg.c
pancake c15ace8508 Initial support for D calling convention ##analysis
* Only for x86-32 for now
* Uses a reverse register list for passing arguments
* See libr/anal/d/README.md for more details
* Support ret2 (to return 64bit values)
* Add fcn->realname for demangled names
2023-08-25 20:00:33 +02:00

56 lines
1.5 KiB
C

/* radare - LGPL - Copyright 2010-2020 pancake */
#include <r_debug.h>
R_API ut64 r_debug_arg_get(RDebug *dbg, const char *cc, int num) {
r_return_val_if_fail (dbg, UT64_MAX);
if (!cc) {
cc = r_anal_syscc_default (dbg->anal);
}
if (dbg->anal) {
if (!R_STR_ISEMPTY (cc)) {
if (!strcmp (cc, "stdcall") || !strcmp (cc, "pascal")) {
ut64 sp = r_debug_reg_get (dbg, "SP");
if (dbg->bits == 64) {
ut64 n64;
sp += 8; // skip return address, assume we are inside the call
sp += 8 * num;
dbg->iob.read_at (dbg->iob.io, sp, (ut8*)&n64, sizeof (ut64));
// TODO: honor endianness of platform
return (ut64)n64;
} else {
sp += 4; // skip return address, assume we are inside the call
sp += 4 * num;
ut32 n32;
dbg->iob.read_at (dbg->iob.io, sp, (ut8*)&n32, sizeof (ut32));
// TODO: honor endianness of platform
return (ut64)n32;
}
}
const char *rn = r_anal_cc_arg (dbg->anal, cc, num, -1);
if (rn) {
return r_debug_reg_get (dbg, rn);
}
}
}
char reg[32];
snprintf (reg, sizeof (reg) - 1, "A%d", num);
return r_debug_reg_get (dbg, reg);
}
R_API bool r_debug_arg_set(RDebug *dbg, const char *cc, int num, ut64 val) {
r_return_val_if_fail (dbg, false);
if (!R_STR_ISEMPTY (cc)) {
cc = r_anal_syscc_default (dbg->anal);
}
const char *rn = r_anal_cc_arg (dbg->anal, cc, num, -1);
if (rn) {
r_debug_reg_set (dbg, rn, val);
return true;
}
char reg[32];
snprintf (reg, sizeof (reg) - 1, "A%d", num);
r_debug_reg_set (dbg, reg, val);
return true;
}