mirror of
https://github.com/radareorg/radare2.git
synced 2024-12-05 12:08:24 +00:00
130 lines
2.9 KiB
C
130 lines
2.9 KiB
C
/* radare - LGPL - Copyright 2015 - pancake */
|
|
|
|
#include <r_reg.h>
|
|
#include <r_util.h>
|
|
|
|
#if __SDB_WINDOWS__ && !__CYGWIN__
|
|
#define CASTLDBL (double)
|
|
#else
|
|
#define CASTLDBL
|
|
#endif
|
|
|
|
// TODO: add support for 80bit floating point value
|
|
|
|
// long double = 128 bit
|
|
R_API double r_reg_get_double(RReg *reg, RRegItem *item) {
|
|
RRegSet *regset;
|
|
double vld = 0.0f;
|
|
int off;
|
|
double ret = 0.0f;
|
|
if (!reg || !item) {
|
|
return 0LL;
|
|
}
|
|
off = BITS2BYTES (item->offset);
|
|
regset = ®->regset[item->arena];
|
|
switch (item->size) {
|
|
case 64:
|
|
if (regset->arena->size - off - 1 >= 0) {
|
|
memcpy (&vld, regset->arena->bytes + off, sizeof (double));
|
|
ret = vld;
|
|
}
|
|
break;
|
|
default:
|
|
eprintf ("r_reg_set_double: Bit size %d not supported\n", item->size);
|
|
return 0.0f;
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
R_API bool r_reg_set_double(RReg *reg, RRegItem *item, double value) {
|
|
ut8 *src;
|
|
|
|
if (!item) {
|
|
eprintf ("r_reg_set_value: item is NULL\n");
|
|
return false;
|
|
}
|
|
switch (item->size) {
|
|
case 64:
|
|
// FIXME: endian
|
|
src = (ut8 *)&value;
|
|
break;
|
|
default:
|
|
eprintf ("r_reg_set_double: Bit size %d not supported\n", item->size);
|
|
return false;
|
|
}
|
|
if (reg->regset[item->arena].arena->size - BITS2BYTES (item->offset) - BITS2BYTES (item->size) >= 0) {
|
|
r_mem_copybits (reg->regset[item->arena].arena->bytes +
|
|
BITS2BYTES (item->offset),
|
|
src, item->size);
|
|
return true;
|
|
}
|
|
eprintf ("r_reg_set_value: Cannot set %s to %lf\n", item->name, value);
|
|
return false;
|
|
}
|
|
|
|
// long double = 80 bit
|
|
R_API long double r_reg_get_longdouble(RReg *reg, RRegItem *item) {
|
|
RRegSet *regset;
|
|
long double vld = 0.0f;
|
|
int off;
|
|
long double ret = 0.0f;
|
|
if (!reg || !item) {
|
|
return 0LL;
|
|
}
|
|
off = BITS2BYTES (item->offset);
|
|
regset = ®->regset[item->arena];
|
|
switch (item->size) {
|
|
case 80:
|
|
case 96:
|
|
case 128:
|
|
if (regset->arena->size - off - 1 >= 0) {
|
|
memcpy (&vld, regset->arena->bytes + off, sizeof (long double));
|
|
ret = vld;
|
|
}
|
|
break;
|
|
default:
|
|
eprintf ("r_reg_get_longdouble: Bit size %d not supported\n", item->size);
|
|
return 0.0f;
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
R_API bool r_reg_set_longdouble(RReg *reg, RRegItem *item, long double value) {
|
|
ut8 *src = NULL;
|
|
|
|
if (!item) {
|
|
eprintf ("r_reg_set_value: item is NULL\n");
|
|
return false;
|
|
}
|
|
switch (item->size) {
|
|
case 80:
|
|
case 96:
|
|
case 128:
|
|
// FIXME: endian
|
|
src = (ut8 *)&value;
|
|
break;
|
|
default:
|
|
eprintf ("r_reg_set_longdouble: Bit size %d not supported\n", item->size);
|
|
return false;
|
|
}
|
|
if (reg->regset[item->arena].arena->size - BITS2BYTES (item->offset) - BITS2BYTES (item->size) >= 0) {
|
|
r_mem_copybits (reg->regset[item->arena].arena->bytes +
|
|
BITS2BYTES (item->offset),
|
|
src, item->size);
|
|
return true;
|
|
}
|
|
|
|
eprintf ("r_reg_set_value: Cannot set %s to %" LDBLFMT "\n", item->name, CASTLDBL value);
|
|
return false;
|
|
}
|
|
|
|
/* floating point . deprecate maybe? */
|
|
R_API float r_reg_get_float(RReg *reg, RRegItem *item) {
|
|
// TODO
|
|
return 0.0f;
|
|
}
|
|
|
|
R_API bool r_reg_set_float(RReg *reg, RRegItem *item, float value) {
|
|
return false;
|
|
}
|