mirror of
https://github.com/radareorg/radare2.git
synced 2024-12-28 00:16:55 +00:00
127 lines
3.4 KiB
C
127 lines
3.4 KiB
C
/* radare - LGPL - Copyright 2014 - pancake */
|
|
|
|
#include <r_reg.h>
|
|
|
|
#undef Z
|
|
#undef S
|
|
#undef C
|
|
#undef O
|
|
#undef P
|
|
#define Z f->z
|
|
#define S f->s
|
|
#define C f->c
|
|
#define O f->o
|
|
#define P f->p
|
|
|
|
// old new
|
|
// XXX: word size matters
|
|
// TODO: needs more rethinking
|
|
/*
|
|
R_API int r_reg_cond_set(RReg *reg, ut64 o, ut64 n, int nsz, RRegFlags *f) {
|
|
Z = n? 0: 1;
|
|
S = 0;
|
|
C = 0; // TODO
|
|
O = 0;
|
|
P = n&1;
|
|
}
|
|
*/
|
|
|
|
R_API RRegItem *r_reg_cond_get(RReg *reg, const char *name) {
|
|
int i = R_REG_TYPE_GPR;
|
|
RListIter *iter;
|
|
RRegItem *r;
|
|
if (name) {
|
|
r_list_foreach (reg->regset[i].regs, iter, r) {
|
|
if (r->flags && !strcmp (name, r->flags))
|
|
return r;
|
|
}
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
R_API int r_reg_cond_get_value(RReg *r, const char *name) {
|
|
return (int)r_reg_get_value (r, r_reg_cond_get (r, name))? 1: 0;
|
|
}
|
|
|
|
R_API const char *r_reg_cond_to_string(int n) {
|
|
const char *cs[] = {
|
|
"eq", "ne", "cf", "neg", "of", "hi", "he",
|
|
"lo", "loe", "ge", "gt", "lt", "le"};
|
|
if (n < 0 || (n > (sizeof (cs) / sizeof (*cs)) - 1))
|
|
return NULL;
|
|
return cs[n];
|
|
}
|
|
|
|
R_API int r_reg_cond_from_string(const char *str) {
|
|
if (!strcmp (str, "eq")) return R_REG_COND_EQ;
|
|
if (!strcmp (str, "ne")) return R_REG_COND_NE;
|
|
if (!strcmp (str, "cf")) return R_REG_COND_CF;
|
|
if (!strcmp (str, "neg")) return R_REG_COND_NEG;
|
|
if (!strcmp (str, "of")) return R_REG_COND_OF;
|
|
if (!strcmp (str, "hi")) return R_REG_COND_HI;
|
|
if (!strcmp (str, "he")) return R_REG_COND_HE;
|
|
if (!strcmp (str, "lo")) return R_REG_COND_LO;
|
|
if (!strcmp (str, "loe")) return R_REG_COND_LOE;
|
|
if (!strcmp (str, "ge")) return R_REG_COND_GE;
|
|
if (!strcmp (str, "gt")) return R_REG_COND_GT;
|
|
if (!strcmp (str, "lt")) return R_REG_COND_LT;
|
|
if (!strcmp (str, "le")) return R_REG_COND_LE;
|
|
eprintf ("| Usage: drc [condition]\n"
|
|
"| eq equal\n"
|
|
"| ne not equal\n"
|
|
"| cf carry flag set\n"
|
|
"| neg negative value (has sign)\n"
|
|
"| of overflow\n"
|
|
"|unsigned:\n"
|
|
"| hi higher\n"
|
|
"| he higher or equal\n"
|
|
"| lo lower\n"
|
|
"| loe lower or equal\n"
|
|
"|signed:\n"
|
|
"| ge greater or equal\n"
|
|
"| gt greater than\n"
|
|
"| le less or equal\n"
|
|
"| lt less than\n");
|
|
return -1;
|
|
}
|
|
|
|
R_API int r_reg_cond_bits(RReg *r, int type, RRegFlags *f) {
|
|
switch (type) {
|
|
case R_REG_COND_EQ: return Z;
|
|
case R_REG_COND_NE: return !Z;
|
|
case R_REG_COND_CF: return C;
|
|
case R_REG_COND_NEG: return S;
|
|
case R_REG_COND_OF:
|
|
return O;
|
|
// unsigned
|
|
case R_REG_COND_HI: return (!Z && C); // HIGUER
|
|
case R_REG_COND_HE: return Z || (!Z && C); // HIGUER OR EQUAL
|
|
case R_REG_COND_LO: return (Z || !C); // LOWER
|
|
case R_REG_COND_LOE:
|
|
return (Z || !C); // LOWER OR EQUAL
|
|
// signed
|
|
case R_REG_COND_GE: return ((S && O) || (!S && !O));
|
|
case R_REG_COND_GT: return ((S && !Z && O) || (!S && !Z && !O));
|
|
case R_REG_COND_LT: return ((S && !O) || (!S && O));
|
|
case R_REG_COND_LE: return (Z || (S && !O) || (!S && O));
|
|
}
|
|
return false;
|
|
}
|
|
|
|
R_API int r_reg_cond(RReg *r, int type) {
|
|
RRegFlags f = { 0 };
|
|
r_reg_cond_retrieve (r, &f);
|
|
return r_reg_cond_bits (r, type, &f);
|
|
}
|
|
|
|
R_API RRegFlags *r_reg_cond_retrieve(RReg *r, RRegFlags *f) {
|
|
if (!f) f = R_NEW0 (RRegFlags);
|
|
if (!f) return NULL;
|
|
f->s = r_reg_cond_get_value (r, "sign"); // sign, negate flag, less than zero
|
|
f->z = r_reg_cond_get_value (r, "zero"); // zero flag
|
|
f->c = r_reg_cond_get_value (r, "carry"); // carry flag
|
|
f->o = r_reg_cond_get_value (r, "overflow"); // overflow flag
|
|
f->p = r_reg_cond_get_value (r, "parity"); // parity // intel only
|
|
return f;
|
|
}
|