mirror of
https://github.com/radareorg/radare2.git
synced 2024-12-12 15:38:09 +00:00
122 lines
3.2 KiB
C
122 lines
3.2 KiB
C
/* radare - LGPL - Copyright 2010 */
|
|
/* nibble<.ds@gmail.com> */
|
|
/* pancake<nopcode.org> */
|
|
|
|
#include <r_anal.h>
|
|
#include <r_util.h>
|
|
#include <r_list.h>
|
|
|
|
R_API RAnalysisFcn *r_anal_fcn_new() {
|
|
return r_anal_fcn_init (R_NEW (RAnalysisFcn));
|
|
}
|
|
|
|
R_API RList *r_anal_fcn_list_new() {
|
|
RList *list = r_list_new ();
|
|
list->free = &r_anal_fcn_free;
|
|
return list;
|
|
}
|
|
|
|
R_API void r_anal_fcn_free(void *fcn) {
|
|
if (fcn) {
|
|
if (((RAnalysisFcn*)fcn)->name)
|
|
free (((RAnalysisFcn*)fcn)->name);
|
|
if (((RAnalysisFcn*)fcn)->refs)
|
|
r_list_destroy (((RAnalysisFcn*)fcn)->refs);
|
|
if (((RAnalysisFcn*)fcn)->xrefs)
|
|
r_list_destroy (((RAnalysisFcn*)fcn)->xrefs);
|
|
if (((RAnalysisFcn*)fcn)->vars)
|
|
r_list_destroy (((RAnalysisFcn*)fcn)->vars);
|
|
}
|
|
free (fcn);
|
|
}
|
|
|
|
R_API RAnalysisFcn *r_anal_fcn_init(RAnalysisFcn *fcn) {
|
|
if (fcn) {
|
|
memset (fcn, 0, sizeof (RAnalysisFcn));
|
|
fcn->addr = -1;
|
|
fcn->vars = r_anal_var_list_new ();
|
|
fcn->refs = r_anal_ref_list_new ();
|
|
fcn->xrefs = r_anal_ref_list_new ();
|
|
}
|
|
return fcn;
|
|
}
|
|
|
|
R_API int r_anal_fcn(RAnalysis *anal, RAnalysisFcn *fcn, ut64 addr, ut8 *buf, ut64 len) {
|
|
RAnalysisRef *ref, *refi;
|
|
RListIter *iter;
|
|
RAnalysisAop aop;
|
|
ut64 *jump;
|
|
char *varname;
|
|
int oplen, idx = 0;
|
|
|
|
if (fcn->addr == -1)
|
|
fcn->addr = addr;
|
|
while (idx < len) {
|
|
if ((oplen = r_anal_aop (anal, &aop, addr+idx, buf+idx, len-idx)) == 0) {
|
|
if (idx == 0)
|
|
return R_ANAL_RET_ERROR;
|
|
else break;
|
|
}
|
|
idx += oplen;
|
|
fcn->size += oplen;
|
|
/* TODO: Parse fastargs (R_ANAL_VAR_ARGREG), check negative ref meaning */
|
|
switch (aop.stackop) {
|
|
case R_ANAL_STACK_LOCAL_SET:
|
|
if (aop.ref > 0) {
|
|
varname = r_str_dup_printf ("arg_%x", aop.ref);
|
|
r_anal_var_add (anal, fcn, aop.addr, aop.ref, R_ANAL_VAR_TYPE_ARG,
|
|
NULL, varname, 1);
|
|
} else {
|
|
varname = r_str_dup_printf ("local_%x", -aop.ref);
|
|
r_anal_var_add (anal, fcn, aop.addr, -aop.ref, R_ANAL_VAR_TYPE_LOCAL,
|
|
NULL, varname, 1);
|
|
}
|
|
free (varname);
|
|
break;
|
|
case R_ANAL_STACK_ARG_SET:
|
|
varname = r_str_dup_printf ("arg_%x", r_num_abs (aop.ref));
|
|
r_anal_var_add (anal, fcn, aop.addr, r_num_abs (aop.ref), R_ANAL_VAR_TYPE_ARG,
|
|
NULL, varname, 1);
|
|
free (varname);
|
|
break;
|
|
case R_ANAL_STACK_ARG_GET:
|
|
varname = r_str_dup_printf ("arg_%x", r_num_abs (aop.ref));
|
|
r_anal_var_add (anal, fcn, aop.addr, r_num_abs (aop.ref), R_ANAL_VAR_TYPE_ARG,
|
|
NULL, varname, 0);
|
|
free (varname);
|
|
break;
|
|
case R_ANAL_STACK_LOCAL_GET:
|
|
if (aop.ref > 0) {
|
|
varname = r_str_dup_printf ("arg_%x", aop.ref);
|
|
r_anal_var_add (anal, fcn, aop.addr, aop.ref, R_ANAL_VAR_TYPE_ARG,
|
|
NULL, varname, 0);
|
|
} else {
|
|
varname = r_str_dup_printf ("local_%x", -aop.ref);
|
|
r_anal_var_add (anal, fcn, aop.addr, -aop.ref, R_ANAL_VAR_TYPE_LOCAL,
|
|
NULL, varname, 0);
|
|
}
|
|
free (varname);
|
|
break;
|
|
}
|
|
switch (aop.type) {
|
|
case R_ANAL_OP_TYPE_CALL:
|
|
r_list_foreach (fcn->refs, iter, refi) {
|
|
jump = (ut64*)refi;
|
|
if (aop.jump == *jump)
|
|
goto _dup_ref;
|
|
}
|
|
if (!(ref = r_anal_ref_new())) {
|
|
eprintf ("Error: new (ref)\n");
|
|
return R_ANAL_RET_ERROR;
|
|
}
|
|
*ref = aop.jump;
|
|
r_list_append (fcn->refs, ref);
|
|
_dup_ref:
|
|
break;
|
|
case R_ANAL_OP_TYPE_RET:
|
|
return R_ANAL_RET_END;
|
|
}
|
|
}
|
|
return fcn->size;
|
|
}
|