-
-
Notifications
You must be signed in to change notification settings - Fork 3k
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Initial support for stm8 pseudo ##decompilation
- Loading branch information
Showing
13 changed files
with
278 additions
and
46 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,4 +1,5 @@ | ||
| OBJ_STM8=p/stm8/plugin.o | ||
| OBJ_STM8+=p/stm8/pseudo.o | ||
|
|
||
| STATIC_OBJ+=$(OBJ_STM8) | ||
| TARGET_STM8=arch_stm8.$(EXT_SO) | ||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,200 @@ | ||
| /* radare - LGPL - Copyright 2024 - pancake */ | ||
|
|
||
| #include <r_lib.h> | ||
| #include <r_util.h> | ||
| #include <r_flag.h> | ||
| #include <r_anal.h> | ||
| #include <r_parse.h> | ||
|
|
||
| static int replace(int argc, const char *argv[], char *newstr) { | ||
| #define MAXPSEUDOOPS 10 | ||
| int i, j, k, d; | ||
| char ch; | ||
| struct { | ||
| int narg; | ||
| const char *op; | ||
| const char *str; | ||
| int args[MAXPSEUDOOPS]; | ||
| } ops[] = { | ||
| // { 0, "ldw", "# = [#]", { 1, 2 } }, | ||
| { 0, "ldf", "# = #", { 1, 2 } }, | ||
| { 0, "ldw", "# = [#]", { 1, 2 } }, | ||
| { 3, "ld", "# = [# + #]", { 3, 2, 1 } }, | ||
| { 2, "ld", "# = #", { 2, 1 } }, | ||
| { 0, "dec", "# --", { 1 } }, | ||
| // { 2, "dec", "# -= #", { 1, 2 } }, | ||
| { 0, "inc", "# ++", { 1 } }, | ||
| { 0, "subw", "# -= #", { 1, 2 } }, | ||
| { 0, "addw", "# += #", { 1, 2 } }, | ||
| { 0, "jrne", "if (!zero) goto #", { 1 } }, | ||
| { 0, "jra", "goto #", { 1 } }, | ||
| { 0, "clrw", "# = 0", { 1 } }, | ||
| { 0, "sllw", "# <<= 1", { 1 } }, | ||
| { 0, "slaw", "# <<= 1", { 1 } }, | ||
| { 0, "srlw", "# >>= 1", { 1 } }, | ||
| { 0, "sraw", "# >>= 1", { 1 } }, | ||
| { 0, "add", "# += #", { 1, 2 } }, | ||
| { 0, NULL } | ||
| }; | ||
| if (!newstr) { | ||
| return false; | ||
| } | ||
|
|
||
| for (i = 0; ops[i].op; i++) { | ||
| if (ops[i].narg) { | ||
| if (argc - 1 != ops[i].narg) { | ||
| continue; | ||
| } | ||
| } | ||
| if (!strcmp (ops[i].op, argv[0])) { | ||
| if (newstr) { | ||
| d = 0; | ||
| j = 0; | ||
| ch = ops[i].str[j]; | ||
| for (j = 0, k = 0; ch != '\0'; j++, k++) { | ||
| ch = ops[i].str[j]; | ||
| if (ch == '#') { | ||
| if (d >= MAXPSEUDOOPS) { | ||
| // XXX Shouldn't ever happen... | ||
| continue; | ||
| } | ||
| int idx = ops[i].args[d]; | ||
| d++; | ||
| if (idx <= 0) { | ||
| // XXX Shouldn't ever happen... | ||
| continue; | ||
| } | ||
| const char *w = argv[idx]; | ||
| if (w) { | ||
| strcpy (newstr + k, w); | ||
| k += strlen (w) - 1; | ||
| } | ||
| } else { | ||
| newstr[k] = ch; | ||
| } | ||
| } | ||
| newstr[k] = '\0'; | ||
| } | ||
| // r_str_replace_char (newstr, '{', '('); | ||
| // r_str_replace_char (newstr, '}', ')'); | ||
| return true; | ||
| } | ||
| } | ||
|
|
||
| /* TODO: this is slow */ | ||
| newstr[0] = '\0'; | ||
| for (i = 0; i < argc; i++) { | ||
| strcat (newstr, argv[i]); | ||
| strcat (newstr, (!i || i == argc - 1)? " " : ","); | ||
| } | ||
| return false; | ||
| } | ||
|
|
||
| static int parse(RParse *p, const char *data, char *str) { | ||
| char w0[256], w1[256], w2[256], w3[256], w4[256]; | ||
| int i, len = strlen (data); | ||
| char *buf, *ptr, *optr; | ||
|
|
||
| if (len >= sizeof (w0)) { | ||
| return false; | ||
| } | ||
| // malloc can be slow here :? | ||
| if (!(buf = malloc (len + 1))) { | ||
| return false; | ||
| } | ||
| memcpy (buf, data, len + 1); | ||
| #if 0 | ||
| buf = r_str_replace (buf, "(0", "0", true); | ||
| buf = r_str_replace (buf, "p)", "p", true); | ||
| buf = r_str_replace (buf, "x)", "x", true); | ||
| #endif | ||
| #if 0 | ||
| r_str_replace_char (buf, '(', '{'); | ||
| r_str_replace_char (buf, ')', '}'); | ||
| #endif | ||
| if (*buf) { | ||
| *w0 = *w1 = *w2 = *w3 = *w4 = '\0'; | ||
| ptr = strchr (buf, ' '); | ||
| if (!ptr) { | ||
| ptr = strchr (buf, '\t'); | ||
| } | ||
| if (ptr) { | ||
| *ptr = '\0'; | ||
| ptr = (char *)r_str_trim_head_ro (ptr + 1); | ||
| strncpy (w0, buf, sizeof (w0) - 1); | ||
| strncpy (w1, ptr, sizeof (w1) - 1); | ||
| optr = ptr; | ||
| if (ptr && *ptr == '[') { | ||
| ptr = strchr (ptr + 1, ']'); | ||
| } | ||
| if (ptr && *ptr == '{') { | ||
| ptr = strchr (ptr + 1, '}'); | ||
| } | ||
| if (!ptr) { | ||
| R_LOG_ERROR ("Unbalanced bracket"); | ||
| free (buf); | ||
| return false; | ||
| } | ||
| ptr = strchr (ptr, ','); | ||
| if (ptr) { | ||
| *ptr = '\0'; | ||
| ptr = (char *)r_str_trim_head_ro (ptr + 1); | ||
| strncpy (w1, optr, sizeof (w1) - 1); | ||
| strncpy (w2, ptr, sizeof (w2) - 1); | ||
| optr = ptr; | ||
| ptr = strchr (ptr, ','); | ||
| if (ptr) { | ||
| *ptr = '\0'; | ||
| ptr = (char *)r_str_trim_head_ro (ptr + 1); | ||
| strncpy (w2, optr, sizeof (w2) - 1); | ||
| strncpy (w3, ptr, sizeof (w3) - 1); | ||
| optr = ptr; | ||
| ptr = strchr (ptr, ','); | ||
| if (ptr) { | ||
| *ptr = '\0'; | ||
| ptr = (char *)r_str_trim_head_ro (ptr + 1); | ||
| strncpy (w3, optr, sizeof (w3) - 1); | ||
| strncpy (w4, ptr, sizeof (w4) - 1); | ||
| } | ||
| } | ||
| } | ||
| } | ||
| { | ||
| const char *wa[] = { w0, w1, w2, w3, w4 }; | ||
| int nw = 0; | ||
| for (i = 0; i < 5; i++) { | ||
| if (wa[i][0]) { | ||
| nw++; | ||
| } | ||
| } | ||
| replace (nw, wa, str); | ||
| } | ||
| } | ||
| char *s = strdup (str); | ||
| if (s) { | ||
| s = r_str_replace (s, "wzr", "0", 1); | ||
| s = r_str_replace (s, " lsl ", " << ", 1); | ||
| s = r_str_replace (s, " lsr ", " >> ", 1); | ||
| s = r_str_replace (s, "+ -", "- ", 1); | ||
| s = r_str_replace (s, "- -", "+ ", 1); | ||
| strcpy (str, s); | ||
| free (s); | ||
| } | ||
| free (buf); | ||
| r_str_fixspaces (str); | ||
| return true; | ||
| } | ||
|
|
||
| RParsePlugin r_parse_plugin_stm8_pseudo = { | ||
| .name = "stm8.pseudo", | ||
| .desc = "STM8 pseudo syntax", | ||
| .parse = parse, | ||
| }; | ||
|
|
||
| #ifndef R2_PLUGIN_INCORE | ||
| R_API RLibStruct radare_plugin = { | ||
| .type = R_LIB_TYPE_PARSE, | ||
| .data = &r_parse_plugin_stm8_pseudo, | ||
| .version = R2_VERSION | ||
| }; | ||
| #endif |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,18 @@ | ||
| OBJ_STM8PSEUDO+=$(LIBR)/arch/p/stm8/pseudo.o | ||
|
|
||
| TARGET_STM8PSEUDO=parse_stm8_pseudo.${EXT_SO} | ||
| STATIC_OBJ+=${OBJ_STM8PSEUDO} | ||
| ifeq ($(CC),cccl) | ||
| LIBDEPS=-L../../util -llibr_util | ||
| LIBDEPS+=-L../../flag -llibr_flag | ||
| else | ||
| LIBDEPS=-L../../util -lr_util | ||
| LIBDEPS+=-L../../flag -lr_flag | ||
| endif | ||
|
|
||
| ifeq ($(WITHPIC),1) | ||
| ALL_TARGETS+=${TARGET_STM8PSEUDO} | ||
| ${TARGET_STM8PSEUDO}: ${OBJ_STM8PSEUDO} | ||
| ${CC} $(call libname,parse_stm8_pseudo) ${LIBDEPS} $(LDFLAGS) \ | ||
| $(LDFLAGS_SHARED) ${CFLAGS} -o ${TARGET_STM8PSEUDO} ${OBJ_STM8PSEUDO} | ||
| endif |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.