Ruben Ayrapetyan
80 lines
2.8 KiB
C
80 lines
2.8 KiB
C
/* Copyright 2014-2015 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 "ecma-alloc.h"
|
|
#include "ecma-builtins.h"
|
|
#include "ecma-exceptions.h"
|
|
#include "ecma-gc.h"
|
|
#include "ecma-globals.h"
|
|
#include "ecma-helpers.h"
|
|
#include "ecma-number-object.h"
|
|
#include "ecma-objects.h"
|
|
#include "ecma-objects-general.h"
|
|
|
|
/** \addtogroup ecma ECMA
|
|
* @{
|
|
*
|
|
* \addtogroup ecmanumberobject ECMA Number object related routines
|
|
* @{
|
|
*/
|
|
|
|
/**
|
|
* Number object creation operation.
|
|
*
|
|
* See also: ECMA-262 v5, 15.7.2.1
|
|
*
|
|
* @return completion value
|
|
* Returned value must be freed with ecma_free_completion_value
|
|
*/
|
|
void
|
|
ecma_op_create_number_object (ecma_completion_value_t &ret_value, /**< out: completion value */
|
|
const ecma_value_t& arg) /**< argument passed to the Number constructor */
|
|
{
|
|
ecma_completion_value_t to_num_completion;
|
|
ecma_op_to_number (to_num_completion, arg);
|
|
|
|
if (!ecma_is_completion_value_normal (to_num_completion))
|
|
{
|
|
ret_value = to_num_completion;
|
|
return;
|
|
}
|
|
|
|
ecma_value_t num_value;
|
|
ecma_get_completion_value_value (num_value, to_num_completion);
|
|
|
|
ecma_number_t *prim_value_p = ecma_get_number_from_value (num_value);
|
|
|
|
#ifndef CONFIG_ECMA_COMPACT_PROFILE_DISABLE_NUMBER_BUILTIN
|
|
ecma_object_ptr_t prototype_obj_p;
|
|
ecma_builtin_get (prototype_obj_p, ECMA_BUILTIN_ID_NUMBER_PROTOTYPE);
|
|
#else /* !CONFIG_ECMA_COMPACT_PROFILE_DISABLE_NUMBER_BUILTIN */
|
|
ecma_object_ptr_t prototype_obj_p;
|
|
ecma_builtin_get (prototype_obj_p, ECMA_BUILTIN_ID_OBJECT_PROTOTYPE);
|
|
#endif /* CONFIG_ECMA_COMPACT_PROFILE_DISABLE_NUMBER_BUILTIN */
|
|
|
|
ecma_object_ptr_t obj_p;
|
|
ecma_create_object (obj_p, prototype_obj_p, true, ECMA_OBJECT_TYPE_GENERAL);
|
|
ecma_deref_object (prototype_obj_p);
|
|
|
|
ecma_property_t *class_prop_p = ecma_create_internal_property (obj_p, ECMA_INTERNAL_PROPERTY_CLASS);
|
|
class_prop_p->u.internal_property.value = ECMA_MAGIC_STRING_NUMBER_UL;
|
|
|
|
ecma_property_t *prim_value_prop_p = ecma_create_internal_property (obj_p,
|
|
ECMA_INTERNAL_PROPERTY_PRIMITIVE_NUMBER_VALUE);
|
|
ECMA_SET_POINTER (prim_value_prop_p->u.internal_property.value, prim_value_p);
|
|
|
|
ecma_make_normal_completion_value (ret_value, ecma_value_t (obj_p));
|
|
} /* ecma_op_create_number_object */
|