radare2/libr/reg/cond.c
2015-12-08 23:55:23 +01:00

126 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 R_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);
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;
}