Refactoring of libcoreint part1

2014-08-22 21:13:35 +04:00
parent 6fbf3e4eed
commit d4a9d9430e
26 changed files with 1874 additions and 1959 deletions
@@ -0,0 +1,140 @@
+/* Copyright 2014 Samsung Electronics Co., Ltd.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+#include "opcodes.h"
+#include "opcodes-ecma-support.h"
+
+/**
+ * 'Jump if true' opcode handler.
+ *
+ * Note:
+ *      the opcode changes current opcode position to specified opcode index
+ *      if argument evaluates to true.
+ */
+ecma_completion_value_t
+opfunc_is_true_jmp (OPCODE opdata, /**< operation data */
+                    __int_data *int_data) /**< interpreter context */
+{
+  const T_IDX cond_var_idx = opdata.data.is_true_jmp.value;
+  const T_IDX dst_opcode_idx = opdata.data.is_true_jmp.opcode;
+
+  ecma_completion_value_t ret_value;
+
+  ECMA_TRY_CATCH (cond_value, get_variable_value (int_data, cond_var_idx, false), ret_value);
+
+  ecma_completion_value_t to_bool_completion = ecma_op_to_boolean (cond_value.value);
+  JERRY_ASSERT (ecma_is_completion_value_normal (to_bool_completion));
+
+  if (ecma_is_value_true (to_bool_completion.value))
+  {
+    int_data->pos = dst_opcode_idx;
+  }
+  else
+  {
+    int_data->pos++;
+  }
+
+  ret_value = ecma_make_empty_completion_value ();
+
+  ECMA_FINALIZE (cond_value);
+
+  return ret_value;
+} /* opfunc_is_true_jmp */
+
+/**
+ * 'Jump if false' opcode handler.
+ *
+ * Note:
+ *      the opcode changes current opcode position to specified opcode index
+ *      if argument evaluates to false.
+ */
+ecma_completion_value_t
+opfunc_is_false_jmp (OPCODE opdata, /**< operation data */
+                     __int_data *int_data) /**< interpreter context */
+{
+  const T_IDX cond_var_idx = opdata.data.is_false_jmp.value;
+  const T_IDX dst_opcode_idx = opdata.data.is_false_jmp.opcode;
+
+  ecma_completion_value_t ret_value;
+
+  ECMA_TRY_CATCH (cond_value, get_variable_value (int_data, cond_var_idx, false), ret_value);
+
+  ecma_completion_value_t to_bool_completion = ecma_op_to_boolean (cond_value.value);
+  JERRY_ASSERT (ecma_is_completion_value_normal (to_bool_completion));
+
+  if (!ecma_is_value_true (to_bool_completion.value))
+  {
+    int_data->pos = dst_opcode_idx;
+  }
+  else
+  {
+    int_data->pos++;
+  }
+
+  ret_value = ecma_make_empty_completion_value ();
+
+  ECMA_FINALIZE (cond_value);
+
+  return ret_value;
+} /* opfunc_is_false_jmp */
+
+/**
+ * 'Jump' opcode handler.
+ *
+ * Note:
+ *      the opcode changes current opcode position to specified opcode index
+ */
+ecma_completion_value_t
+opfunc_jmp (OPCODE opdata, /**< operation data */
+            __int_data *int_data) /**< interpreter context */
+{
+  int_data->pos = opdata.data.jmp.opcode_idx;
+
+  return ecma_make_empty_completion_value ();
+} /* opfunc_jmp */
+
+/**
+ * 'Jump down' opcode handler.
+ *
+ * Note:
+ *      the opcode changes adds specified value to current opcode position
+ */
+ecma_completion_value_t
+opfunc_jmp_down (OPCODE opdata, /**< operation data */
+                 __int_data *int_data) /**< interpreter context */
+{
+  JERRY_ASSERT (int_data->pos <= int_data->pos + opdata.data.jmp_up.opcode_count);
+
+  int_data->pos = (opcode_counter_t) (int_data->pos + opdata.data.jmp_down.opcode_count);
+
+  return ecma_make_empty_completion_value ();
+} /* opfunc_jmp_down */
+
+/**
+ * 'Jump up' opcode handler.
+ *
+ * Note:
+ *      the opcode changes substracts specified value from current opcode position
+ */
+ecma_completion_value_t
+opfunc_jmp_up (OPCODE opdata, /**< operation data */
+               __int_data *int_data) /**< interpreter context */
+{
+  JERRY_ASSERT (int_data->pos >= opdata.data.jmp_up.opcode_count);
+
+  int_data->pos = (opcode_counter_t) (int_data->pos - opdata.data.jmp_down.opcode_count);
+
+  return ecma_make_empty_completion_value ();
+} /* opfunc_jmp_up */