YourWishes/jerryscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implementing opfunc_call_1.

Browse Source
This commit is contained in:
Ruben Ayrapetyan
2014-08-15 20:10:22 +04:00
parent 116a80f8ae
commit 04112c6fea
1 changed files with 89 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/libcoreint/opcodes.c
+89 -50
View File
@@ -481,88 +481,127 @@ opfunc_call_1 (OPCODE opdata __unused, struct __int_data *int_data)
ecma_completion_value_t ret_value; ecma_completion_value_t ret_value;
ret_value = ecma_make_empty_completion_value (); ret_value = ecma_make_empty_completion_value ();
#ifdef __TARGET_HOST_x64
__printf ("%d::op_call_1:idx:%d:%d\t",
int_data->pos,
opdata.data.call_1.name_lit_idx,
opdata.data.call_1.arg1_lit_idx);
#endif
int_data->pos++; int_data->pos++;
string_literal_copy str_value; ECMA_TRY_CATCH (arg_value, get_variable_value (int_data, opdata.data.call_1.arg1_lit_idx, false), ret_value);
init_string_literal_copy (opdata.data.call_1.name_lit_idx, &str_value);
#ifdef __TARGET_HOST_x64
__printf ("%s\n", str_value.str_p);
#endif
if (!__strcmp ((const char*) str_value.str_p, "LEDToggle")) /**********************************************************/
FIXME (/* Native call, i.e. opfunc_native_call */);
bool is_native_call = true;
string_literal_copy function_name;
init_string_literal_copy (opdata.data.call_1.name_lit_idx, &function_name);
if (!__strcmp ((const char*) function_name.str_p, "LEDToggle"))
{ {
ECMA_TRY_CATCH (cond_value, get_variable_value (int_data, opdata.data.call_1.arg1_lit_idx, false), ret_value); JERRY_ASSERT (arg_value.value.value_type == ECMA_TYPE_NUMBER);
JERRY_ASSERT (cond_value.value.value_type == ECMA_TYPE_NUMBER); ecma_number_t * num_p = (ecma_number_t*) ECMA_GET_POINTER (arg_value.value.value);
ecma_number_t * num_p = (ecma_number_t*) ECMA_GET_POINTER (cond_value.value.value);
uint32_t int_num = (uint32_t) * num_p; uint32_t int_num = (uint32_t) * num_p;
led_toggle (int_num); led_toggle (int_num);
ret_value = ecma_make_empty_completion_value (); ret_value = ecma_make_empty_completion_value ();
ECMA_FINALIZE (cond_value);
} }
else if (!__strcmp ((const char*) function_name.str_p, "LEDOn"))
if (!__strcmp ((const char*) str_value.str_p, "LEDOn"))
{ {
ECMA_TRY_CATCH (cond_value, get_variable_value (int_data, opdata.data.call_1.arg1_lit_idx, false), ret_value); JERRY_ASSERT (arg_value.value.value_type == ECMA_TYPE_NUMBER);
JERRY_ASSERT (cond_value.value.value_type == ECMA_TYPE_NUMBER); ecma_number_t * num_p = (ecma_number_t*) ECMA_GET_POINTER (arg_value.value.value);
ecma_number_t * num_p = (ecma_number_t*) ECMA_GET_POINTER (cond_value.value.value);
uint32_t int_num = (uint32_t) * num_p; uint32_t int_num = (uint32_t) * num_p;
led_on (int_num); led_on (int_num);
ret_value = ecma_make_empty_completion_value (); ret_value = ecma_make_empty_completion_value ();
ECMA_FINALIZE (cond_value);
} }
else if (!__strcmp ((const char*) function_name.str_p, "LEDOff"))
if (!__strcmp ((const char*) str_value.str_p, "LEDOff"))
{ {
ECMA_TRY_CATCH (cond_value, get_variable_value (int_data, opdata.data.call_1.arg1_lit_idx, false), ret_value); JERRY_ASSERT (arg_value.value.value_type == ECMA_TYPE_NUMBER);
JERRY_ASSERT (cond_value.value.value_type == ECMA_TYPE_NUMBER); ecma_number_t * num_p = (ecma_number_t*) ECMA_GET_POINTER (arg_value.value.value);
ecma_number_t * num_p = (ecma_number_t*) ECMA_GET_POINTER (cond_value.value.value);
uint32_t int_num = (uint32_t) * num_p; uint32_t int_num = (uint32_t) * num_p;
led_off (int_num); led_off (int_num);
ret_value = ecma_make_empty_completion_value (); ret_value = ecma_make_empty_completion_value ();
ECMA_FINALIZE (cond_value);
} }
else if (!__strcmp ((const char*) function_name.str_p, "LEDOnce"))
if (!__strcmp ((const char*) str_value.str_p, "LEDOnce"))
{ {
ECMA_TRY_CATCH (cond_value, get_variable_value (int_data, opdata.data.call_1.arg1_lit_idx, false), ret_value); JERRY_ASSERT (arg_value.value.value_type == ECMA_TYPE_NUMBER);
JERRY_ASSERT (cond_value.value.value_type == ECMA_TYPE_NUMBER); ecma_number_t * num_p = (ecma_number_t*) ECMA_GET_POINTER (arg_value.value.value);
ecma_number_t * num_p = (ecma_number_t*) ECMA_GET_POINTER (cond_value.value.value);
uint32_t int_num = (uint32_t) * num_p; uint32_t int_num = (uint32_t) * num_p;
led_blink_once (int_num); led_blink_once (int_num);
ret_value = ecma_make_empty_completion_value (); ret_value = ecma_make_empty_completion_value ();
ECMA_FINALIZE (cond_value);
} }
else if (!__strcmp ((const char*) function_name.str_p, "wait"))
if (!__strcmp ((const char*) str_value.str_p, "wait"))
{ {
ECMA_TRY_CATCH (cond_value, get_variable_value (int_data, opdata.data.call_1.arg1_lit_idx, false), ret_value); JERRY_ASSERT (arg_value.value.value_type == ECMA_TYPE_NUMBER);
JERRY_ASSERT (cond_value.value.value_type == ECMA_TYPE_NUMBER); ecma_number_t * num_p = (ecma_number_t*) ECMA_GET_POINTER (arg_value.value.value);
ecma_number_t * num_p = (ecma_number_t*) ECMA_GET_POINTER (cond_value.value.value);
uint32_t int_num = (uint32_t) * num_p; uint32_t int_num = (uint32_t) * num_p;
wait_ms (int_num); wait_ms (int_num);
ret_value = ecma_make_empty_completion_value (); ret_value = ecma_make_empty_completion_value ();
ECMA_FINALIZE (cond_value);
} }
else if (!__strcmp ((const char *) function_name.str_p, "exit"))
if (!__strcmp ((const char *) str_value.str_p, "exit"))
{ {
ECMA_TRY_CATCH (cond_value, get_variable_value (int_data, opdata.data.call_1.arg1_lit_idx, false), ret_value); JERRY_ASSERT (arg_value.value.value_type == ECMA_TYPE_NUMBER);
JERRY_ASSERT (cond_value.value.value_type == ECMA_TYPE_NUMBER); ecma_number_t * num_p = (ecma_number_t*) ECMA_GET_POINTER (arg_value.value.value);
ecma_number_t * num_p = (ecma_number_t*) ECMA_GET_POINTER (cond_value.value.value); uint32_t int_num = (uint32_t) * num_p;
opfunc_exitval (getop_exitval ((T_IDX) * num_p), int_data); ecma_value_t exit_status = ecma_make_simple_value (int_num == 0 ? ECMA_SIMPLE_VALUE_TRUE
ret_value = ecma_make_empty_completion_value (); : ECMA_SIMPLE_VALUE_FALSE);
ECMA_FINALIZE (cond_value); ret_value = ecma_make_completion_value (ECMA_COMPLETION_TYPE_EXIT,
exit_status,
ECMA_TARGET_ID_RESERVED);
}
else
{
is_native_call = false;
} }
free_string_literal_copy (&str_value); if (is_native_call)
{
#ifdef __TARGET_HOST_x64
__printf ("%d::op_call_1:idx:%d:%d\t",
int_data->pos,
opdata.data.call_1.name_lit_idx,
opdata.data.call_1.arg1_lit_idx);
__printf ("%s\n", function_name.str_p);
#endif
}
free_string_literal_copy (&function_name);
/**********************************************************/
if (!is_native_call)
{
const T_IDX func_name_lit_idx = opdata.data.call_1.name_lit_idx;
const T_IDX lhs_var_idx = opdata.data.call_1.lhs;
ECMA_TRY_CATCH (func_value, get_variable_value (int_data, func_name_lit_idx, false), ret_value);
if (!ecma_op_is_callable (func_value.value))
{
ret_value = ecma_make_throw_value (ecma_new_standard_error (ECMA_ERROR_TYPE));
}
else
{
ecma_object_t *func_obj_p = ECMA_GET_POINTER (func_value.value.value);
ECMA_TRY_CATCH (this_value, ecma_op_implicit_this_value (int_data->lex_env_p), ret_value);
ret_value = ecma_op_function_call (func_obj_p, this_value.value, &arg_value.value, 1);
if (ret_value.type == ECMA_COMPLETION_TYPE_RETURN)
{
ecma_value_t returned_value = ret_value.value;
ret_value = set_variable_value (int_data, lhs_var_idx, returned_value);
ecma_free_value (returned_value, true);
}
ECMA_FINALIZE (this_value);
}
ECMA_FINALIZE (func_value);
}
ECMA_FINALIZE (arg_value);
return ret_value; return ret_value;
} }