archive-gh-me/jerryscript
1
0
Fork 0
mirror of https://github.com/jerryscript-project/jerryscript.git synced 2025-12-15 16:29:21 +00:00
Code Issues Projects Releases Wiki Activity

Pretty-print native_calls

Browse Source
This commit is contained in:
Ilmir Usmanov 2014-10-05 17:13:34 +04:00
parent a79c816553
commit d3dc64ca53
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/liboptimizer/pretty-printer.c
View File

@ -16,6 +16,7 @@
#include "pretty-printer.h" #include "pretty-printer.h"
#include "jerry-libc.h" #include "jerry-libc.h"
#include "lexer.h" #include "lexer.h"
#include "opcodes-native-call.h"
#define NAME_TO_ID(op) (__op__idx_##op) #define NAME_TO_ID(op) (__op__idx_##op)
@ -209,6 +210,23 @@ dump_variable (idx_t id)
dump_arg_list (opcode.data.op.arg_list); \ dump_arg_list (opcode.data.op.arg_list); \
break; break;
#define CASE_NATIVE_CALL(op, lhs, equals, new, name, arg_list) \
case NAME_TO_ID (op): \
dump_variable (opcode.data.op.lhs); \
__printf (" " equals " " new " "); \
switch (opcode.data.op.name) \
{ \
case OPCODE_NATIVE_CALL_LED_TOGGLE: __printf ("LEDToggle"); break; \
case OPCODE_NATIVE_CALL_LED_ON: __printf ("LEDOn"); break; \
case OPCODE_NATIVE_CALL_LED_OFF: __printf ("LEDOff"); break; \
case OPCODE_NATIVE_CALL_LED_ONCE: __printf ("LEDOnce"); break; \
case OPCODE_NATIVE_CALL_WAIT: __printf ("wait"); break; \
case OPCODE_NATIVE_CALL_PRINT: __printf ("print"); break; \
default: JERRY_UNREACHABLE (); \
} \
dump_arg_list (opcode.data.op.arg_list); \
break;
#define CASE_VARG_0_NAME(op, new, name, start, end) \ #define CASE_VARG_0_NAME(op, new, name, start, end) \
case NAME_TO_ID (op): \ case NAME_TO_ID (op): \
__printf (new " "); \ __printf (new " "); \
@ -434,7 +452,7 @@ pp_opcode (opcode_counter_t oc, opcode_t opcode, bool is_rewrite)
CASE_WITH (with, expr) CASE_WITH (with, expr)
CASE_VARG_0_NAME (var_decl, "var", variable_name, "", "") CASE_VARG_0_NAME (var_decl, "var", variable_name, "", "")
CASE_REG_VAR_DECL (reg_var_decl, min, max) CASE_REG_VAR_DECL (reg_var_decl, min, max)
CASE_VARG_N_NAME_LHS (native_call, lhs, "=", "", name, arg_list) CASE_NATIVE_CALL (native_call, lhs, "=", "", name, arg_list)
} }
if (is_rewrite) if (is_rewrite)