Implementation of general objects' [[GetOwnProperty]], [[GetProperty]], [[CanPut]], [[HasProperty]], [[Delete]]; partial implementation of general objects' [[Get]], [[Put]], [[DefineOwnProperty]].

2014-07-29 14:32:01 +04:00
parent 5aaa853b9f
commit 299c94ee85
8 changed files with 681 additions and 193 deletions
@@ -74,6 +74,79 @@ ecma_op_check_object_coercible( ecma_value_t value) /**< ecma-value */
  return ecma_make_empty_completion_value();
 } /* ecma_op_check_object_coercible */

+/**
+ * SameValue operation.
+ *
+ * See also:
+ *          ECMA-262 v5, 9.12
+ *
+ * @return true - if the value are same according to ECMA-defined SameValue algorithm,
+ *         false - otherwise.
+ */
+bool
+ecma_op_same_value( ecma_value_t x, /**< ecma-value */
+                    ecma_value_t y) /**< ecma-value */
+{
+  const bool is_x_undefined = ecma_is_value_undefined( x);
+  const bool is_x_null = ecma_is_value_null( x);
+  const bool is_x_boolean = ecma_is_value_boolean( x);
+  const bool is_x_number = ( x.value_type == ECMA_TYPE_NUMBER );
+  const bool is_x_string = ( x.value_type == ECMA_TYPE_STRING );
+  const bool is_x_object = ( x.value_type == ECMA_TYPE_OBJECT );
+
+  const bool is_y_undefined = ecma_is_value_undefined( y);
+  const bool is_y_null = ecma_is_value_null( y);
+  const bool is_y_boolean = ecma_is_value_boolean( y);
+  const bool is_y_number = ( y.value_type == ECMA_TYPE_NUMBER );
+  const bool is_y_string = ( y.value_type == ECMA_TYPE_STRING );
+  const bool is_y_object = ( y.value_type == ECMA_TYPE_OBJECT );
+
+  const bool is_types_equal = ( ( is_x_undefined && is_y_undefined )
+                                || ( is_x_null && is_y_null )
+                                || ( is_x_boolean && is_y_boolean )
+                                || ( is_x_number && is_y_number )
+                                || ( is_x_string && is_y_string )
+                                || ( is_x_object && is_y_object ) );
+
+  if ( !is_types_equal )
+    {
+      return false;
+    }
+
+  if ( is_x_undefined
+       || is_x_null )
+    {
+      return true;
+    }
+
+  if ( is_x_number )
+    {
+      TODO( Implement according to ECMA );
+
+      ecma_number_t *x_num_p = (ecma_number_t*)ecma_get_pointer( x.value);
+      ecma_number_t *y_num_p = (ecma_number_t*)ecma_get_pointer( y.value);
+
+      return ( *x_num_p == *y_num_p );
+    }
+
+  if ( is_x_string )
+    {
+      ecma_array_first_chunk_t* x_str_p = (ecma_array_first_chunk_t*)( ecma_get_pointer(x.value) );
+      ecma_array_first_chunk_t* y_str_p = (ecma_array_first_chunk_t*)( ecma_get_pointer(y.value) );
+
+      return ecma_compare_ecma_string_to_ecma_string( x_str_p, y_str_p);  
+    }
+
+  if ( is_x_boolean )
+    {
+      return ( ecma_is_value_true( x) == ecma_is_value_true( y) );
+    }
+
+  JERRY_ASSERT( is_x_object );
+
+  return ( ecma_get_pointer( x.value) == ecma_get_pointer( y.value) );
+} /* ecma_op_same_value */
+
 /**
 * ToPrimitive operation.
 *
@@ -41,6 +41,7 @@ typedef enum
 } ecma_preferred_type_hint_t;

 extern ecma_completion_value_t ecma_op_check_object_coercible( ecma_value_t value);
+extern bool ecma_op_same_value( ecma_value_t x, ecma_value_t y);
 extern ecma_completion_value_t ecma_op_to_primitive( ecma_value_t value, ecma_preferred_type_hint_t preferred_type);
 extern ecma_completion_value_t ecma_op_to_boolean( ecma_value_t value);
 extern ecma_completion_value_t ecma_op_to_number( ecma_value_t value);
@@ -90,12 +90,12 @@ ecma_op_create_mutable_binding(ecma_object_t *lex_env_p, /**< lexical environmen
    {
      JERRY_ASSERT( ecma_is_completion_value_normal_false( ecma_op_has_binding( lex_env_p, name_p)) );

-      ecma_create_named_property( lex_env_p,
-                                name_p,
-                                ECMA_PROPERTY_WRITABLE,
-                                ECMA_PROPERTY_NOT_ENUMERABLE,
-                                is_deletable ? ECMA_PROPERTY_CONFIGURABLE
-                                             : ECMA_PROPERTY_NOT_CONFIGURABLE); 
+      ecma_create_named_data_property( lex_env_p,
+                                       name_p,
+                                       ECMA_PROPERTY_WRITABLE,
+                                       ECMA_PROPERTY_NOT_ENUMERABLE,
+                                       is_deletable ? ECMA_PROPERTY_CONFIGURABLE
+                                                    : ECMA_PROPERTY_NOT_CONFIGURABLE); 


      break;
@@ -316,11 +316,11 @@ ecma_op_create_immutable_binding(ecma_object_t *lex_env_p, /**< lexical environm
         * Warning:
         *         Whether immutable bindings are deletable seems not to be defined by ECMA v5.
         */
-        ecma_property_t *prop_p = ecma_create_named_property( lex_env_p,
-                                                              name_p,
-                                                              ECMA_PROPERTY_NOT_WRITABLE,
-                                                              ECMA_PROPERTY_NOT_ENUMERABLE,
-                                                              ECMA_PROPERTY_NOT_CONFIGURABLE);
+        ecma_property_t *prop_p = ecma_create_named_data_property( lex_env_p,
+                                                                   name_p,
+                                                                   ECMA_PROPERTY_NOT_WRITABLE,
+                                                                   ECMA_PROPERTY_NOT_ENUMERABLE,
+                                                                   ECMA_PROPERTY_NOT_CONFIGURABLE);

        JERRY_ASSERT( ecma_is_value_undefined( prop_p->u.named_data_property.value ) );

@@ -13,7 +13,9 @@
 * limitations under the License.
 */

+#include "ecma-exceptions.h"
 #include "ecma-globals.h"
+#include "ecma-helpers.h"
 #include "ecma-objects-properties.h"

 /** \addtogroup ecma ---TODO---
@@ -34,9 +36,53 @@
 */
 ecma_completion_value_t
 ecma_op_object_get( ecma_object_t *obj_p, /**< the object */
-                    ecma_array_first_chunk_t *property_name_p) /**< property name */
+                    ecma_char_t *property_name_p) /**< property name */
 {
-  JERRY_UNIMPLEMENTED_REF_UNUSED_VARS( obj_p, property_name_p);
+  JERRY_ASSERT( obj_p != NULL && !obj_p->is_lexical_environment );
+  JERRY_ASSERT( property_name_p != NULL );
+
+  /*
+   * ECMA-262 v5, 8.12.3
+   *
+   * Common implementation of operation for objects other than Host, Function or Arguments objects.
+   */
+
+  // 1.
+  const ecma_property_t* prop_p = ecma_op_object_get_property( obj_p, property_name_p);
+
+  // 2.
+  if ( prop_p == NULL )
+    {
+      return ecma_make_simple_completion_value( ECMA_SIMPLE_VALUE_UNDEFINED);
+    }
+
+  // 3.
+  if ( prop_p->type == ECMA_PROPERTY_NAMEDDATA )
+    {
+      return ecma_make_completion_value( ECMA_COMPLETION_TYPE_NORMAL,
+                                         ecma_copy_value( prop_p->u.named_data_property.value),
+                                         ECMA_TARGET_ID_RESERVED);
+    }
+  else
+    {
+      // 4.
+      ecma_object_t *getter = ecma_get_pointer( prop_p->u.named_accessor_property.get_p);
+
+      // 5.
+      if ( getter == NULL )
+        {
+          return ecma_make_simple_completion_value( ECMA_SIMPLE_VALUE_UNDEFINED);
+        }
+      else
+        {
+          /*
+           * Return result of O.[[Call]];
+           */
+          JERRY_UNIMPLEMENTED();
+        }
+    }
+
+  JERRY_UNREACHABLE();
 } /* ecma_op_object_get */

 /**
@@ -46,13 +92,22 @@ ecma_op_object_get( ecma_object_t *obj_p, /**< the object */
 *          ECMA-262 v5, 8.6.2; ECMA-262 v5, Table 8
 *
 * @return pointer to a property - if it exists,
- *         NULL - otherwise.
+ *         NULL (i.e. ecma-undefined) - otherwise.
 */
 ecma_property_t*
 ecma_op_object_get_own_property( ecma_object_t *obj_p, /**< the object */
-                                 ecma_array_first_chunk_t *property_name_p) /**< property name */
+                                 ecma_char_t *property_name_p) /**< property name */
 {
-  JERRY_UNIMPLEMENTED_REF_UNUSED_VARS( obj_p, property_name_p);
+  JERRY_ASSERT( obj_p != NULL && !obj_p->is_lexical_environment );
+  JERRY_ASSERT( property_name_p != NULL );
+
+  /*
+   * ECMA-262 v5, 8.12.2
+   *
+   * Common implementation of operation for objects other than Host, Function or Arguments objects.
+   */
+
+  return ecma_find_named_property( obj_p, property_name_p);
 } /* ecma_op_object_get_own_property */

 /**
@@ -62,13 +117,42 @@ ecma_op_object_get_own_property( ecma_object_t *obj_p, /**< the object */
 *          ECMA-262 v5, 8.6.2; ECMA-262 v5, Table 8
 *
 * @return pointer to a property - if it exists,
- *         NULL - otherwise.
+ *         NULL (i.e. ecma-undefined) - otherwise.
 */
 ecma_property_t*
 ecma_op_object_get_property( ecma_object_t *obj_p, /**< the object */
-                             ecma_array_first_chunk_t *property_name_p) /**< property name */
+                             ecma_char_t *property_name_p) /**< property name */
 {
-  JERRY_UNIMPLEMENTED_REF_UNUSED_VARS( obj_p, property_name_p);
+  JERRY_ASSERT( obj_p != NULL && !obj_p->is_lexical_environment );
+  JERRY_ASSERT( property_name_p != NULL );
+
+  /*
+   * ECMA-262 v5, 8.12.2
+   *
+   * Common implementation of operation for objects other than Host, Function or Arguments objects.
+   */
+
+  // 1.
+  ecma_property_t *prop_p = ecma_op_object_get_own_property( obj_p, property_name_p);
+
+  // 2.
+  if ( prop_p != NULL )
+    {
+      return prop_p;
+    }
+
+  // 3.
+  ecma_object_t *prototype_p = ecma_get_pointer( obj_p->u.object.prototype_object_p);
+
+  // 4., 5.
+  if ( prototype_p != NULL )
+    {
+      return ecma_op_object_get_property( prototype_p, property_name_p);
+    }
+  else
+    {
+      return NULL;
+    }
 } /* ecma_op_object_get_property */

 /**
@@ -82,11 +166,112 @@ ecma_op_object_get_property( ecma_object_t *obj_p, /**< the object */
 */
 ecma_completion_value_t
 ecma_op_object_put( ecma_object_t *obj_p, /**< the object */
-                    ecma_array_first_chunk_t *property_name_p, /**< property name */
+                    ecma_char_t *property_name_p, /**< property name */
                    ecma_value_t value, /**< ecma-value */
                    bool is_throw) /**< flag that controls failure handling */
 {
-  JERRY_UNIMPLEMENTED_REF_UNUSED_VARS( obj_p, property_name_p, value, is_throw);
+  JERRY_ASSERT( obj_p != NULL && !obj_p->is_lexical_environment );
+  JERRY_ASSERT( property_name_p != NULL );
+
+  // 1.
+  if ( !ecma_op_object_can_put( obj_p, property_name_p) )
+    {
+      if ( is_throw )
+        {
+          // a.
+          return ecma_make_throw_value( ecma_new_standard_error( ECMA_ERROR_TYPE));
+        }
+      else
+        {
+          // b.
+          return ecma_make_simple_completion_value( ECMA_SIMPLE_VALUE_FALSE);
+        }
+    }
+
+  // 2.
+  ecma_property_t *own_desc_p = ecma_op_object_get_own_property( obj_p, property_name_p);
+
+  // 3.
+  if ( own_desc_p->type == ECMA_PROPERTY_NAMEDDATA )
+    {
+      // a.
+      ecma_property_descriptor_t value_desc = (ecma_property_descriptor_t) {
+          .is_value_defined = true,
+          .value = value,
+
+          .is_get_defined = false,
+          .get_p = NULL,
+
+          .is_set_defined = false,
+          .set_p = NULL,
+
+          .is_writable_defined = false,
+          .writable = ECMA_PROPERTY_NOT_WRITABLE,
+
+          .is_enumerable_defined = false,
+          .enumerable = ECMA_PROPERTY_NOT_ENUMERABLE,
+
+          .is_configurable_defined = false,
+          .configurable = ECMA_PROPERTY_NOT_CONFIGURABLE,
+      };
+
+      // b., c.
+      return ecma_op_object_define_own_property( obj_p,
+                                                 property_name_p,
+                                                 value_desc,
+                                                 is_throw);
+    }
+
+  // 4.
+  ecma_property_t *desc_p = ecma_op_object_get_property( obj_p, property_name_p);
+
+  // 5.
+  if ( desc_p->type == ECMA_PROPERTY_NAMEDACCESSOR )
+    {
+      // a.
+      ecma_object_t *setter_p = ecma_get_pointer( desc_p->u.named_accessor_property.set_p);
+
+      JERRY_ASSERT( setter_p != NULL );
+
+      // b.
+      /*
+       * setter_p->[[Call]]( obj_p, value);
+       */
+      JERRY_UNIMPLEMENTED();
+    }
+  else
+    {
+      // 6.
+
+      // a.
+      ecma_property_descriptor_t new_desc = (ecma_property_descriptor_t) {
+          .is_value_defined = true,
+          .value = value,
+
+          .is_get_defined = false,
+          .get_p = NULL,
+
+          .is_set_defined = false,
+          .set_p = NULL,
+
+          .is_writable_defined = true,
+          .writable = ECMA_PROPERTY_WRITABLE,
+
+          .is_enumerable_defined = true,
+          .enumerable = ECMA_PROPERTY_ENUMERABLE,
+
+          .is_configurable_defined = true,
+          .configurable = ECMA_PROPERTY_CONFIGURABLE
+      };
+      
+      // b.
+      return ecma_op_object_define_own_property( obj_p,
+                                                 property_name_p,
+                                                 new_desc,
+                                                 is_throw);
+    }
+
+  JERRY_UNREACHABLE();
 } /* ecma_op_object_put */

 /**
@@ -100,9 +285,97 @@ ecma_op_object_put( ecma_object_t *obj_p, /**< the object */
 */
 bool
 ecma_op_object_can_put( ecma_object_t *obj_p, /**< the object */
-                        ecma_array_first_chunk_t *property_name_p) /**< property name */
+                        ecma_char_t *property_name_p) /**< property name */
 {
-  JERRY_UNIMPLEMENTED_REF_UNUSED_VARS( obj_p, property_name_p);
+  JERRY_ASSERT( obj_p != NULL && !obj_p->is_lexical_environment );
+  JERRY_ASSERT( property_name_p != NULL );
+
+  /*
+   * ECMA-262 v5, 8.12.2
+   *
+   * Common implementation of operation for objects other than Host, Function or Arguments objects.
+   */
+
+  // 1.
+  ecma_property_t *prop_p = ecma_op_object_get_own_property( obj_p, property_name_p);
+
+  // 2.
+  if ( prop_p != NULL )
+    {
+      // a.
+      if ( prop_p->type == ECMA_PROPERTY_NAMEDACCESSOR )
+        {
+          ecma_object_t *setter_p = ecma_get_pointer( prop_p->u.named_accessor_property.set_p);
+
+          // i.
+          if ( setter_p == NULL )
+            {
+              return false;
+            }
+
+          // ii.
+          return true;
+        }
+      else
+        {
+          // b.
+
+          JERRY_ASSERT( prop_p->type == ECMA_PROPERTY_NAMEDDATA );
+
+          return ( prop_p->u.named_data_property.writable == ECMA_PROPERTY_WRITABLE );
+        }
+    }
+
+  // 3.
+  ecma_object_t *proto_p = ecma_get_pointer( obj_p->u.object.prototype_object_p);
+
+  // 4.
+  if ( proto_p == NULL )
+    {
+      return obj_p->u.object.extensible;
+    }
+
+  // 5.
+  ecma_property_t *inherited_p = ecma_op_object_get_property( proto_p, property_name_p);
+
+  // 6.
+  if ( inherited_p == NULL )
+    {
+      return obj_p->u.object.extensible;
+    }
+
+  // 7.
+  if ( inherited_p->type == ECMA_PROPERTY_NAMEDACCESSOR )
+    {
+      ecma_object_t *setter_p = ecma_get_pointer( inherited_p->u.named_accessor_property.set_p);
+
+      // a.
+      if ( setter_p == NULL )
+        {
+          return false;
+        }
+
+      // b.
+      return true;
+    }
+  else
+    {
+      // 8.
+      JERRY_ASSERT( inherited_p->type == ECMA_PROPERTY_NAMEDDATA );
+
+      // a.
+      if ( !obj_p->u.object.extensible )
+        {
+          return false;
+        }
+      else
+        {
+          // b.
+          return ( inherited_p->u.named_data_property.writable == ECMA_PROPERTY_WRITABLE );
+        }
+    }
+
+  JERRY_UNREACHABLE();
 } /* ecma_op_object_can_put */

 /**
@@ -116,9 +389,20 @@ ecma_op_object_can_put( ecma_object_t *obj_p, /**< the object */
 */
 bool
 ecma_op_object_has_property( ecma_object_t *obj_p, /**< the object */
-                             ecma_array_first_chunk_t *property_name_p) /**< property name */
+                             ecma_char_t *property_name_p) /**< property name */
 {
-  JERRY_UNIMPLEMENTED_REF_UNUSED_VARS( obj_p, property_name_p);
+  JERRY_ASSERT( obj_p != NULL && !obj_p->is_lexical_environment );
+  JERRY_ASSERT( property_name_p != NULL );
+
+  /*
+   * ECMA-262 v5, 8.12.2
+   *
+   * Common implementation of operation for objects other than Host, Function or Arguments objects.
+   */
+
+  ecma_property_t *desc_p = ecma_op_object_get_property( obj_p, property_name_p);
+
+  return ( desc_p != NULL );
 } /* ecma_op_object_has_property */

 /**
@@ -132,10 +416,60 @@ ecma_op_object_has_property( ecma_object_t *obj_p, /**< the object */
 */
 ecma_completion_value_t
 ecma_op_object_delete( ecma_object_t *obj_p, /**< the object */
-                       ecma_array_first_chunk_t *property_name_p, /**< property name */
+                       ecma_char_t *property_name_p, /**< property name */
                       bool is_throw) /**< flag that controls failure handling */
 {
-  JERRY_UNIMPLEMENTED_REF_UNUSED_VARS( obj_p, property_name_p, is_throw);
+  JERRY_ASSERT( obj_p != NULL && !obj_p->is_lexical_environment );
+  JERRY_ASSERT( property_name_p != NULL );
+
+  /*
+   * ECMA-262 v5, 8.12.2
+   *
+   * Common implementation of operation for objects other than Host, Function or Arguments objects.
+   */
+
+  // 1.
+  ecma_property_t *desc_p = ecma_op_object_get_own_property( obj_p, property_name_p);
+
+  // 2.
+  if ( desc_p == NULL )
+    {
+      return ecma_make_simple_completion_value( ECMA_SIMPLE_VALUE_TRUE);
+    }
+
+  // 3.
+  bool is_configurable;
+  if ( desc_p->type == ECMA_PROPERTY_NAMEDACCESSOR )
+    {
+      is_configurable = desc_p->u.named_accessor_property.configurable;
+    }
+  else
+    {
+      JERRY_ASSERT( desc_p->type == ECMA_PROPERTY_NAMEDDATA );
+
+      is_configurable = desc_p->u.named_data_property.configurable;
+    }
+
+  if ( is_configurable )
+    {
+      // a.
+      ecma_delete_property( obj_p, desc_p);
+
+      // b.
+      return ecma_make_simple_completion_value( ECMA_SIMPLE_VALUE_TRUE);
+    }
+  else if ( is_throw )
+    {
+      // 4.
+      return ecma_make_throw_value( ecma_new_standard_error( ECMA_ERROR_TYPE));
+    }
+  else
+    {
+      // 5.
+      return ecma_make_simple_completion_value( ECMA_SIMPLE_VALUE_FALSE);
+    }
+
+  JERRY_UNREACHABLE();
 } /* ecma_op_object_delete */

 /**
@@ -151,6 +485,8 @@ ecma_completion_value_t
 ecma_op_object_default_value( ecma_object_t *obj_p, /**< the object */
                              ecma_preferred_type_hint_t hint) /**< hint on preferred result type */
 {
+  JERRY_ASSERT( obj_p != NULL && !obj_p->is_lexical_environment );
+
  JERRY_UNIMPLEMENTED_REF_UNUSED_VARS( obj_p, hint);
 } /* ecma_op_object_default_value */

@@ -165,11 +501,156 @@ ecma_op_object_default_value( ecma_object_t *obj_p, /**< the object */
 */
 ecma_completion_value_t
 ecma_op_object_define_own_property( ecma_object_t *obj_p, /**< the object */
-                                    ecma_array_first_chunk_t *property_name_p, /**< property name */
+                                    ecma_char_t *property_name_p, /**< property name */
                                    ecma_property_descriptor_t property_desc, /**< property descriptor */
                                    bool is_throw) /**< flag that controls failure handling */
 {
-  JERRY_UNIMPLEMENTED_REF_UNUSED_VARS( obj_p, property_name_p, property_desc, is_throw);
+  JERRY_ASSERT( obj_p != NULL && !obj_p->is_lexical_environment );
+  JERRY_ASSERT( property_name_p != NULL );
+
+  const bool is_property_desc_generic_descriptor = ( !property_desc.is_value_defined
+                                                     && !property_desc.is_writable_defined
+                                                     && !property_desc.is_get_defined
+                                                     && !property_desc.is_set_defined );
+  const bool is_property_desc_data_descriptor = ( property_desc.is_value_defined
+                                                  || property_desc.is_writable_defined );
+  const bool is_property_desc_accessor_descriptor = ( property_desc.is_get_defined
+                                                      || property_desc.is_set_defined );
+
+  // 1.
+  ecma_property_t *current_p = ecma_op_object_get_own_property( obj_p, property_name_p);
+
+  // 2.
+  bool extensible = obj_p->u.object.extensible;
+
+  if ( current_p == NULL )
+    {
+      // 3.
+      if ( !extensible )
+        {
+          // Reject
+          if ( is_throw )
+            {
+              return ecma_make_throw_value( ecma_new_standard_error( ECMA_ERROR_TYPE));
+            }
+          else
+            {
+              return ecma_make_simple_completion_value( ECMA_SIMPLE_VALUE_FALSE);
+            }
+        }
+      else
+        {
+          // 4.
+
+          // a.
+          if ( is_property_desc_generic_descriptor
+               || is_property_desc_data_descriptor )
+            {
+              ecma_create_named_data_property( obj_p,
+                                               property_name_p,
+                                               property_desc.writable,
+                                               property_desc.enumerable,
+                                               property_desc.configurable);
+            }
+          else
+            {
+              // b.
+              JERRY_ASSERT( is_property_desc_accessor_descriptor );
+
+              ecma_create_named_accessor_property( obj_p,
+                                                   property_name_p,
+                                                   property_desc.get_p,
+                                                   property_desc.set_p,
+                                                   property_desc.enumerable,
+                                                   property_desc.configurable);
+
+            }
+
+          return ecma_make_simple_completion_value( ECMA_SIMPLE_VALUE_TRUE);
+        }
+    }
+
+  // 5.
+  if ( is_property_desc_generic_descriptor
+       && !property_desc.is_enumerable_defined
+       && !property_desc.is_configurable_defined )
+    {
+      return ecma_make_simple_completion_value( ECMA_SIMPLE_VALUE_TRUE);
+    }
+
+  // 6.
+  const bool is_current_data_descriptor = ( current_p->type == ECMA_PROPERTY_NAMEDDATA );
+  const bool is_current_accessor_descriptor = ( current_p->type == ECMA_PROPERTY_NAMEDACCESSOR );
+
+  JERRY_ASSERT( is_current_data_descriptor || is_current_accessor_descriptor );
+
+  bool is_every_field_in_desc_also_occurs_in_current_desc_with_same_value = true;
+  if ( property_desc.is_value_defined )
+    {
+      if ( !is_current_data_descriptor
+           || !ecma_op_same_value( property_desc.value,
+                                   current_p->u.named_data_property.value) )
+        {
+          is_every_field_in_desc_also_occurs_in_current_desc_with_same_value = false;
+        }
+    }
+
+  if ( property_desc.is_writable_defined )
+    {
+      if ( !is_current_data_descriptor
+           || property_desc.writable != current_p->u.named_data_property.writable )
+        {
+          is_every_field_in_desc_also_occurs_in_current_desc_with_same_value = false;
+        }
+    }
+
+  if ( property_desc.is_get_defined )
+    {
+      if ( !is_current_accessor_descriptor
+           || property_desc.get_p != ecma_get_pointer( current_p->u.named_accessor_property.get_p) )
+        {
+          is_every_field_in_desc_also_occurs_in_current_desc_with_same_value = false;
+        }
+    }
+
+  if ( property_desc.is_set_defined )
+    {
+      if ( !is_current_accessor_descriptor
+           || property_desc.set_p != ecma_get_pointer( current_p->u.named_accessor_property.set_p) )
+        {
+          is_every_field_in_desc_also_occurs_in_current_desc_with_same_value = false;
+        }
+    }
+
+  if ( property_desc.is_enumerable_defined )
+    {
+      if ( ( is_current_data_descriptor
+             && property_desc.enumerable != current_p->u.named_data_property.enumerable )
+           || ( is_current_accessor_descriptor
+                && property_desc.configurable != current_p->u.named_accessor_property.enumerable ) )
+        {
+          is_every_field_in_desc_also_occurs_in_current_desc_with_same_value = false;
+        }
+    }
+
+  if ( property_desc.is_configurable_defined )
+    {
+      if ( ( is_current_data_descriptor
+            && property_desc.configurable != current_p->u.named_data_property.configurable )
+          || ( is_current_accessor_descriptor
+              && property_desc.configurable != current_p->u.named_accessor_property.configurable ) )
+        {
+          is_every_field_in_desc_also_occurs_in_current_desc_with_same_value = false;
+        }
+    }
+
+  if ( is_every_field_in_desc_also_occurs_in_current_desc_with_same_value )
+    {
+      return ecma_make_simple_completion_value( ECMA_SIMPLE_VALUE_TRUE);
+    }
+
+  // 7., ...
+  JERRY_UNIMPLEMENTED();
 } /* ecma_op_object_define_own_property */

 /**
@@ -26,21 +26,21 @@
 * @{
 */

-extern ecma_completion_value_t ecma_op_object_get( ecma_object_t *obj_p, ecma_array_first_chunk_t *property_name_p);
-extern ecma_property_t *ecma_op_object_get_own_property( ecma_object_t *obj_p, ecma_array_first_chunk_t *property_name_p);
-extern ecma_property_t *ecma_op_object_get_property( ecma_object_t *obj_p, ecma_array_first_chunk_t *property_name_p);
+extern ecma_completion_value_t ecma_op_object_get( ecma_object_t *obj_p, ecma_char_t *property_name_p);
+extern ecma_property_t *ecma_op_object_get_own_property( ecma_object_t *obj_p, ecma_char_t *property_name_p);
+extern ecma_property_t *ecma_op_object_get_property( ecma_object_t *obj_p, ecma_char_t *property_name_p);
 extern ecma_completion_value_t ecma_op_object_put( ecma_object_t *obj_p,
-                                                   ecma_array_first_chunk_t *property_name_p,
+                                                   ecma_char_t *property_name_p,
                                                   ecma_value_t value,
                                                   bool is_throw);
-extern bool ecma_op_object_can_put( ecma_object_t *obj_p, ecma_array_first_chunk_t *property_name_p);
-extern bool ecma_op_object_has_property( ecma_object_t *obj_p, ecma_array_first_chunk_t *property_name_p);
+extern bool ecma_op_object_can_put( ecma_object_t *obj_p, ecma_char_t *property_name_p);
+extern bool ecma_op_object_has_property( ecma_object_t *obj_p, ecma_char_t *property_name_p);
 extern ecma_completion_value_t ecma_op_object_delete( ecma_object_t *obj_p,
-                                                      ecma_array_first_chunk_t *property_name_p,
+                                                      ecma_char_t *property_name_p,
                                                      bool is_throw);
 extern ecma_completion_value_t ecma_op_object_default_value( ecma_object_t *obj_p, ecma_preferred_type_hint_t hint);
 extern ecma_completion_value_t ecma_op_object_define_own_property( ecma_object_t *obj_p,
-                                                                   ecma_array_first_chunk_t *property_name_p,
+                                                                   ecma_char_t *property_name_p,
                                                                   ecma_property_descriptor_t property_desc,
                                                                   bool is_throw);