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

Renaming ecma_op_number_{add,subtract,multiply,divide} -> ecma_number_{add,subtract,multiply,divide}.

Browse Source 
Moving ecma_number_{add,subtract,multiply,divide} to src/libecmaobjects/ecma-helpers-number.c.
Moving abs, sqrt, ln, exp, calculation helpers from src/libecmabuiltins/ecma-builtin-math-object.c to src/libecmaobjects/ecma-helpers-number.c.
This commit is contained in:
Ruben Ayrapetyan
2014-10-20 18:46:43 +04:00
parent a8ed76591a
commit 3eed2d0d4c
8 changed files with 282 additions and 305 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/libcoreint/opcodes-ecma-arithmetics.c
+4 -4
View File
@@ -63,22 +63,22 @@ do_number_arithmetic (int_data_t *int_data, /**< interpreter context */
{
case number_arithmetic_addition:
{
*res_p = ecma_op_number_add (*left_p, *right_p);
*res_p = ecma_number_add (*left_p, *right_p);
break;
}
case number_arithmetic_substraction:
{
*res_p = ecma_op_number_substract (*left_p, *right_p);
*res_p = ecma_number_substract (*left_p, *right_p);
break;
}
case number_arithmetic_multiplication:
{
*res_p = ecma_op_number_multiply (*left_p, *right_p);
*res_p = ecma_number_multiply (*left_p, *right_p);
break;
}
case number_arithmetic_division:
{
*res_p = ecma_op_number_divide (*left_p, *right_p);
*res_p = ecma_number_divide (*left_p, *right_p);
break;
}
case number_arithmetic_remainder:
src/libcoreint/opcodes.c
+4 -4
View File
@@ -176,7 +176,7 @@ opfunc_pre_incr (opcode_t opdata, /**< operation data */
ecma_number_t* new_num_p = ecma_alloc_number ();
ecma_number_t* old_num_p = (ecma_number_t*) ECMA_GET_POINTER (old_num_value.u.value.value);
*new_num_p = ecma_op_number_add (*old_num_p, ECMA_NUMBER_ONE);
*new_num_p = ecma_number_add (*old_num_p, ECMA_NUMBER_ONE);
ecma_value_t new_num_value = ecma_make_number_value (new_num_p);
@@ -226,7 +226,7 @@ opfunc_pre_decr (opcode_t opdata, /**< operation data */
ecma_number_t* new_num_p = ecma_alloc_number ();
ecma_number_t* old_num_p = (ecma_number_t*) ECMA_GET_POINTER (old_num_value.u.value.value);
*new_num_p = ecma_op_number_substract (*old_num_p, ECMA_NUMBER_ONE);
*new_num_p = ecma_number_substract (*old_num_p, ECMA_NUMBER_ONE);
ecma_value_t new_num_value = ecma_make_number_value (new_num_p);
@@ -276,7 +276,7 @@ opfunc_post_incr (opcode_t opdata, /**< operation data */
ecma_number_t* new_num_p = ecma_alloc_number ();
ecma_number_t* old_num_p = (ecma_number_t*) ECMA_GET_POINTER (old_num_value.u.value.value);
*new_num_p = ecma_op_number_add (*old_num_p, ECMA_NUMBER_ONE);
*new_num_p = ecma_number_add (*old_num_p, ECMA_NUMBER_ONE);
// 5.
ret_value = set_variable_value (int_data,
@@ -324,7 +324,7 @@ opfunc_post_decr (opcode_t opdata, /**< operation data */
ecma_number_t* new_num_p = ecma_alloc_number ();
ecma_number_t* old_num_p = (ecma_number_t*) ECMA_GET_POINTER (old_num_value.u.value.value);
*new_num_p = ecma_op_number_substract (*old_num_p, ECMA_NUMBER_ONE);
*new_num_p = ecma_number_substract (*old_num_p, ECMA_NUMBER_ONE);
// 5.
ret_value = set_variable_value (int_data,
src/libecmabuiltins/ecma-builtin-math-object.c
+27 -209
View File
@@ -39,14 +39,6 @@
* @{
*/
#if defined (CONFIG_ECMA_NUMBER_FLOAT32)
const ecma_number_t ecma_builtin_math_object_relative_eps = 1.0e-10f;
#elif defined (CONFIG_ECMA_NUMBER_FLOAT64)
const ecma_number_t ecma_builtin_math_object_relative_eps = 1.0e-16;
#else /* !CONFIG_ECMA_NUMBER_FLOAT32 && !CONFIG_ECMA_NUMBER_FLOAT64 */
# error "!CONFIG_ECMA_NUMBER_FLOAT32 && !CONFIG_ECMA_NUMBER_FLOAT64"
#endif /* !CONFIG_ECMA_NUMBER_FLOAT32 && !CONFIG_ECMA_NUMBER_FLOAT64 */
/**
* List of the Math object built-in value properties in format 'macro (name, value)'.
*/
@@ -158,180 +150,6 @@ const ecma_length_t ecma_builtin_math_property_number = (sizeof (ecma_builtin_ma
sizeof (ecma_magic_string_id_t));
JERRY_STATIC_ASSERT (sizeof (ecma_builtin_math_property_names) > sizeof (void*));
/**
* Helper for calculating absolute value
*
* Warning:
* argument should be valid finite number
*
* @return square root of specified number
*/
static ecma_number_t
ecma_builtin_math_object_helper_abs (ecma_number_t num) /**< valid finite number */
{
JERRY_ASSERT (!ecma_number_is_nan (num));
if (num < 0)
{
return ecma_number_negate (num);
}
else
{
return num;
}
} /* ecma_builtin_math_object_helper_abs */
/**
* Helper for calculating square root using Newton's method.
*
* @return square root of specified number
*/
static ecma_number_t
ecma_builtin_math_object_helper_sqrt (ecma_number_t num) /**< valid finite
positive number */
{
JERRY_ASSERT (!ecma_number_is_nan (num));
JERRY_ASSERT (!ecma_number_is_infinity (num));
JERRY_ASSERT (!ecma_number_is_negative (num));
ecma_number_t x = ECMA_NUMBER_ONE;
ecma_number_t diff = ecma_number_make_infinity (false);
while (ecma_op_number_divide (diff, x) > ecma_builtin_math_object_relative_eps)
{
ecma_number_t x_next = ecma_op_number_multiply (ECMA_NUMBER_HALF,
(ecma_op_number_add (x,
ecma_op_number_divide (num, x))));
diff = ecma_op_number_substract (x, x_next);
if (diff < 0)
{
diff = ecma_number_negate (diff);
}
x = x_next;
}
return x;
} /* ecma_builtin_math_object_helper_sqrt */
/**
* Helper for calculating natural logarithm.
*
* @return natural logarithm of specified number
*/
static ecma_number_t
ecma_builtin_math_object_helper_ln (ecma_number_t num) /**< valid finite
positive number */
{
JERRY_ASSERT (!ecma_number_is_nan (num));
JERRY_ASSERT (!ecma_number_is_infinity (num));
JERRY_ASSERT (!ecma_number_is_negative (num));
if (num == ECMA_NUMBER_ONE)
{
return ECMA_NUMBER_ZERO;
}
/* Taylor series of ln (1 + x) around x = 0 is x - x^2/2 + x^3/3 - x^4/4 + ... */
ecma_number_t x = num;
ecma_number_t multiplier = ECMA_NUMBER_ONE;
while (ecma_builtin_math_object_helper_abs (ecma_op_number_substract (x,
ECMA_NUMBER_ONE)) > ECMA_NUMBER_HALF)
{
x = ecma_builtin_math_object_helper_sqrt (x);
multiplier = ecma_op_number_multiply (multiplier, ECMA_NUMBER_TWO);
}
x = ecma_op_number_substract (x, ECMA_NUMBER_ONE);
ecma_number_t sum = ECMA_NUMBER_ZERO;
ecma_number_t next_power = x;
ecma_number_t next_divisor = ECMA_NUMBER_ONE;
ecma_number_t diff;
do
{
ecma_number_t next_sum = ecma_op_number_add (sum,
ecma_op_number_divide (next_power,
next_divisor));
next_divisor = ecma_op_number_add (next_divisor, ECMA_NUMBER_ONE);
next_power = ecma_op_number_multiply (next_power, x);
next_power = ecma_number_negate (next_power);
diff = ecma_builtin_math_object_helper_abs (ecma_op_number_substract (sum, next_sum));
sum = next_sum;
}
while (ecma_builtin_math_object_helper_abs (ecma_op_number_divide (diff,
sum)) > ecma_builtin_math_object_relative_eps);
sum = ecma_op_number_multiply (sum, multiplier);
return sum;
} /* ecma_builtin_math_object_helper_ln */
/**
* Helper for calculating exponent of a number
*
* @return exponent of specified number
*/
static ecma_number_t
ecma_builtin_math_object_helper_exp (ecma_number_t num) /**< valid finite number */
{
JERRY_ASSERT (!ecma_number_is_nan (num));
JERRY_ASSERT (!ecma_number_is_infinity (num));
bool invert = false;
ecma_number_t pow_e;
if (ecma_number_is_negative (num))
{
invert = true;
pow_e = ecma_number_negate (num);
}
else
{
pow_e = num;
}
/* Taylor series of e^x is 1 + x/1! + x^2/2! + x^3/3! + ... + x^n/n! + ... */
ecma_number_t sum = ECMA_NUMBER_ONE;
ecma_number_t next_addendum = ecma_op_number_divide (pow_e, ECMA_NUMBER_ONE);
ecma_number_t next_factorial_factor = ECMA_NUMBER_ONE;
ecma_number_t diff = ecma_number_make_infinity (false);
while (ecma_op_number_divide (diff, sum) > ecma_builtin_math_object_relative_eps)
{
ecma_number_t next_sum = ecma_op_number_add (sum, next_addendum);
next_factorial_factor = ecma_op_number_add (next_factorial_factor, ECMA_NUMBER_ONE);
next_addendum = ecma_op_number_multiply (next_addendum, pow_e);
next_addendum = ecma_op_number_divide (next_addendum, next_factorial_factor);
diff = ecma_op_number_substract (sum, next_sum);
if (diff < 0)
{
diff = ecma_number_negate (diff);
}
sum = next_sum;
}
if (invert)
{
sum = ecma_op_number_divide (ECMA_NUMBER_ONE, sum);
}
return sum;
} /* ecma_builtin_math_object_helper_exp */
/**
* The Math object's 'abs' routine
*
@@ -353,14 +171,14 @@ ecma_builtin_math_object_abs (ecma_value_t arg) /**< routine's argument */
ecma_number_t *num_p = ecma_alloc_number ();
const ecma_number_t arg_num = *(ecma_number_t*) ECMA_GET_POINTER (arg_num_value.u.value.value);
if (ecma_number_is_nan (arg_num))
{
*num_p = arg_num;
}
else
{
*num_p = ecma_builtin_math_object_helper_abs (arg_num);
*num_p = ecma_number_abs (arg_num);
}
ret_value = ecma_make_normal_completion_value (ecma_make_number_value (num_p));
@@ -482,7 +300,7 @@ ecma_builtin_math_object_exp (ecma_value_t arg) /**< routine's argument */
ecma_number_t *num_p = ecma_alloc_number ();
const ecma_number_t arg_num = *(ecma_number_t*) ECMA_GET_POINTER (arg_num_value.u.value.value);
if (ecma_number_is_nan (arg_num))
{
*num_p = arg_num;
@@ -504,7 +322,7 @@ ecma_builtin_math_object_exp (ecma_value_t arg) /**< routine's argument */
}
else
{
*num_p = ecma_builtin_math_object_helper_exp (arg_num);
*num_p = ecma_number_exp (arg_num);
}
ret_value = ecma_make_normal_completion_value (ecma_make_number_value (num_p));
@@ -550,7 +368,7 @@ ecma_builtin_math_object_log (ecma_value_t arg) /**< routine's argument */
ecma_number_t *num_p = ecma_alloc_number ();
const ecma_number_t arg_num = *(ecma_number_t*) ECMA_GET_POINTER (arg_num_value.u.value.value);
if (ecma_number_is_nan (arg_num))
{
*num_p = arg_num;
@@ -569,7 +387,7 @@ ecma_builtin_math_object_log (ecma_value_t arg) /**< routine's argument */
}
else
{
*num_p = ecma_builtin_math_object_helper_ln (arg_num);
*num_p = ecma_number_ln (arg_num);
}
ret_value = ecma_make_normal_completion_value (ecma_make_number_value (num_p));
@@ -798,7 +616,7 @@ ecma_builtin_math_object_pow (ecma_value_t arg1, /**< first routine's argument *
}
else if (ecma_number_is_infinity (y))
{
const ecma_number_t x_abs = ecma_builtin_math_object_helper_abs (x);
const ecma_number_t x_abs = ecma_number_abs (x);
if (x_abs == ECMA_NUMBER_ONE)
{
@@ -820,17 +638,17 @@ ecma_builtin_math_object_pow (ecma_value_t arg1, /**< first routine's argument *
else
{
const ecma_number_t diff_is_int = ecma_op_number_remainder (y, ECMA_NUMBER_ONE);
const ecma_number_t rel_diff_is_int = ecma_builtin_math_object_helper_abs (ecma_op_number_divide (diff_is_int,
y));
const ecma_number_t y_int = ecma_op_number_substract (y, diff_is_int);
const ecma_number_t rel_diff_is_int = ecma_number_abs (ecma_number_divide (diff_is_int,
y));
const ecma_number_t y_int = ecma_number_substract (y, diff_is_int);
const ecma_number_t y_int_half = ecma_op_number_multiply (y_int, ECMA_NUMBER_HALF);
const ecma_number_t y_int_half = ecma_number_multiply (y_int, ECMA_NUMBER_HALF);
const ecma_number_t diff_is_odd = ecma_op_number_remainder (y_int_half, ECMA_NUMBER_ONE);
const ecma_number_t rel_diff_is_odd = ecma_builtin_math_object_helper_abs (ecma_op_number_divide (diff_is_odd,
y_int_half));
const ecma_number_t rel_diff_is_odd = ecma_number_abs (ecma_number_divide (diff_is_odd,
y_int_half));
const bool is_y_int = (rel_diff_is_int < ecma_builtin_math_object_relative_eps);
const bool is_y_odd = (is_y_int && rel_diff_is_odd > ecma_builtin_math_object_relative_eps);
const bool is_y_int = (rel_diff_is_int < ecma_number_relative_eps);
const bool is_y_odd = (is_y_int && rel_diff_is_odd > ecma_number_relative_eps);
if (ecma_number_is_infinity (x))
{
@@ -960,21 +778,21 @@ ecma_builtin_math_object_pow (ecma_value_t arg1, /**< first routine's argument *
{
if (power_uint32 % 2)
{
ret_num = ecma_op_number_multiply (ret_num, power_accumulator);
ret_num = ecma_number_multiply (ret_num, power_accumulator);
power_uint32--;
}
power_accumulator = ecma_op_number_multiply (power_accumulator, power_accumulator);
power_accumulator = ecma_number_multiply (power_accumulator, power_accumulator);
power_uint32 /= 2;
}
}
else
{
/* pow (x, y) = exp (y * ln (x)) */
ecma_number_t ln_x = ecma_builtin_math_object_helper_ln (positive_x);
ecma_number_t y_m_ln_x = ecma_op_number_multiply (positive_y, ln_x);
ret_num = ecma_builtin_math_object_helper_exp (y_m_ln_x);
ecma_number_t ln_x = ecma_number_ln (positive_x);
ecma_number_t y_m_ln_x = ecma_number_multiply (positive_y, ln_x);
ret_num = ecma_number_exp (y_m_ln_x);
}
if (sign)
@@ -984,7 +802,7 @@ ecma_builtin_math_object_pow (ecma_value_t arg1, /**< first routine's argument *
if (invert)
{
ret_num = ecma_op_number_divide (ECMA_NUMBER_ONE, ret_num);
ret_num = ecma_number_divide (ECMA_NUMBER_ONE, ret_num);
}
*num_p = ret_num;
@@ -1061,7 +879,7 @@ ecma_builtin_math_object_round (ecma_value_t arg) /**< routine's argument */
ecma_number_t *num_p = ecma_alloc_number ();
const ecma_number_t arg_num = *(ecma_number_t*) ECMA_GET_POINTER (arg_num_value.u.value.value);
if (ecma_number_is_nan (arg_num)
|| ecma_number_is_zero (arg_num)
|| ecma_number_is_infinity (arg_num))
@@ -1151,7 +969,7 @@ ecma_builtin_math_object_sqrt (ecma_value_t arg) /**< routine's argument */
}
else
{
ret_num = ecma_builtin_math_object_helper_sqrt (arg_num);
ret_num = ecma_number_sqrt (arg_num);
}
ecma_number_t *num_p = ecma_alloc_number ();
@@ -1325,10 +1143,10 @@ ecma_builtin_math_dispatch_routine (ecma_magic_string_id_t builtin_routine_id, /
#define ROUTINE_ARG_LIST_3 ROUTINE_ARG_LIST_2, ROUTINE_ARG(3)
#define ROUTINE_ARG_LIST_NON_FIXED arguments_list, arguments_number
#define CASE_ROUTINE_PROP_LIST(name, c_function_name, args_number, length) \
case name: \
{ \
return c_function_name (ROUTINE_ARG_LIST_ ## args_number); \
}
case name: \
{ \
return c_function_name (ROUTINE_ARG_LIST_ ## args_number); \
}
ECMA_BUILTIN_MATH_OBJECT_ROUTINES_PROPERTY_LIST (CASE_ROUTINE_PROP_LIST)
#undef CASE_ROUTINE_PROP_LIST
#undef ROUTINE_ARG_LIST_0
src/libecmaobjects/ecma-helpers-number.c
+231
View File
@@ -75,6 +75,11 @@ typedef struct
* IEEE-754 2008, 3.6, Table 3.5
*/
const int32_t ecma_number_exponent_bias = 127;
/**
* Relative precision used in calculation with ecma-numbers
*/
const ecma_number_t ecma_number_relative_eps = 1.0e-10f;
#elif defined (CONFIG_ECMA_NUMBER_FLOAT64)
JERRY_STATIC_ASSERT (sizeof (ecma_number_t) == sizeof (uint64_t));
@@ -127,6 +132,11 @@ typedef struct
* IEEE-754 2008, 3.6, Table 3.5
*/
const int32_t ecma_number_exponent_bias = 1023;
/**
* Relative precision used in calculation with ecma-numbers
*/
const ecma_number_t ecma_number_relative_eps = 1.0e-16;
#else /* !CONFIG_ECMA_NUMBER_FLOAT32 && !CONFIG_ECMA_NUMBER_FLOAT64 */
# error "!CONFIG_ECMA_NUMBER_FLOAT32 && !CONFIG_ECMA_NUMBER_FLOAT64"
#endif /* !CONFIG_ECMA_NUMBER_FLOAT32 && !CONFIG_ECMA_NUMBER_FLOAT64 */
@@ -399,6 +409,227 @@ ecma_number_negate (ecma_number_t num) /**< ecma-number */
return u.value;
} /* ecma_number_negate */
/**
* ECMA-number addition.
*
* @return number - result of addition.
*/
ecma_number_t
ecma_number_add (ecma_number_t left_num, /**< left operand */
ecma_number_t right_num) /**< right operand */
{
return left_num + right_num;
} /* ecma_number_add */
/**
* ECMA-number substraction.
*
* @return number - result of substraction.
*/
ecma_number_t
ecma_number_substract (ecma_number_t left_num, /**< left operand */
ecma_number_t right_num) /**< right operand */
{
return ecma_number_add (left_num, ecma_number_negate (right_num));
} /* ecma_number_substract */
/**
* ECMA-number multiplication.
*
* @return number - result of multiplication.
*/
ecma_number_t
ecma_number_multiply (ecma_number_t left_num, /**< left operand */
ecma_number_t right_num) /**< right operand */
{
return left_num * right_num;
} /* ecma_number_multiply */
/**
* ECMA-number division.
*
* @return number - result of division.
*/
ecma_number_t
ecma_number_divide (ecma_number_t left_num, /**< left operand */
ecma_number_t right_num) /**< right operand */
{
return left_num / right_num;
} /* ecma_number_divide */
/**
* Helper for calculating absolute value
*
* Warning:
* argument should be valid number
*
* @return absolute value of the argument
*/
ecma_number_t
ecma_number_abs (ecma_number_t num) /**< valid number */
{
JERRY_ASSERT (!ecma_number_is_nan (num));
if (num < 0)
{
return ecma_number_negate (num);
}
else
{
return num;
}
} /* ecma_number_abs */
/**
* Helper for calculating square root using Newton's method.
*
* @return square root of specified number
*/
ecma_number_t
ecma_number_sqrt (ecma_number_t num) /**< valid finite
positive number */
{
JERRY_ASSERT (!ecma_number_is_nan (num));
JERRY_ASSERT (!ecma_number_is_infinity (num));
JERRY_ASSERT (!ecma_number_is_negative (num));
ecma_number_t x = ECMA_NUMBER_ONE;
ecma_number_t diff = ecma_number_make_infinity (false);
while (ecma_number_divide (diff, x) > ecma_number_relative_eps)
{
ecma_number_t x_next = ecma_number_multiply (ECMA_NUMBER_HALF,
(ecma_number_add (x,
ecma_number_divide (num, x))));
diff = ecma_number_substract (x, x_next);
if (diff < 0)
{
diff = ecma_number_negate (diff);
}
x = x_next;
}
return x;
} /* ecma_number_sqrt */
/**
* Helper for calculating natural logarithm.
*
* @return natural logarithm of specified number
*/
ecma_number_t
ecma_number_ln (ecma_number_t num) /**< valid finite
positive number */
{
JERRY_ASSERT (!ecma_number_is_nan (num));
JERRY_ASSERT (!ecma_number_is_infinity (num));
JERRY_ASSERT (!ecma_number_is_negative (num));
if (num == ECMA_NUMBER_ONE)
{
return ECMA_NUMBER_ZERO;
}
/* Taylor series of ln (1 + x) around x = 0 is x - x^2/2 + x^3/3 - x^4/4 + ... */
ecma_number_t x = num;
ecma_number_t multiplier = ECMA_NUMBER_ONE;
while (ecma_number_abs (ecma_number_substract (x,
ECMA_NUMBER_ONE)) > ECMA_NUMBER_HALF)
{
x = ecma_number_sqrt (x);
multiplier = ecma_number_multiply (multiplier, ECMA_NUMBER_TWO);
}
x = ecma_number_substract (x, ECMA_NUMBER_ONE);
ecma_number_t sum = ECMA_NUMBER_ZERO;
ecma_number_t next_power = x;
ecma_number_t next_divisor = ECMA_NUMBER_ONE;
ecma_number_t diff;
do
{
ecma_number_t next_sum = ecma_number_add (sum,
ecma_number_divide (next_power,
next_divisor));
next_divisor = ecma_number_add (next_divisor, ECMA_NUMBER_ONE);
next_power = ecma_number_multiply (next_power, x);
next_power = ecma_number_negate (next_power);
diff = ecma_number_abs (ecma_number_substract (sum, next_sum));
sum = next_sum;
}
while (ecma_number_abs (ecma_number_divide (diff,
sum)) > ecma_number_relative_eps);
sum = ecma_number_multiply (sum, multiplier);
return sum;
} /* ecma_number_ln */
/**
* Helper for calculating exponent of a number
*
* @return exponent of specified number
*/
ecma_number_t
ecma_number_exp (ecma_number_t num) /**< valid finite number */
{
JERRY_ASSERT (!ecma_number_is_nan (num));
JERRY_ASSERT (!ecma_number_is_infinity (num));
bool invert = false;
ecma_number_t pow_e;
if (ecma_number_is_negative (num))
{
invert = true;
pow_e = ecma_number_negate (num);
}
else
{
pow_e = num;
}
/* Taylor series of e^x is 1 + x/1! + x^2/2! + x^3/3! + ... + x^n/n! + ... */
ecma_number_t sum = ECMA_NUMBER_ONE;
ecma_number_t next_addendum = ecma_number_divide (pow_e, ECMA_NUMBER_ONE);
ecma_number_t next_factorial_factor = ECMA_NUMBER_ONE;
ecma_number_t diff = ecma_number_make_infinity (false);
while (ecma_number_divide (diff, sum) > ecma_number_relative_eps)
{
ecma_number_t next_sum = ecma_number_add (sum, next_addendum);
next_factorial_factor = ecma_number_add (next_factorial_factor, ECMA_NUMBER_ONE);
next_addendum = ecma_number_multiply (next_addendum, pow_e);
next_addendum = ecma_number_divide (next_addendum, next_factorial_factor);
diff = ecma_number_substract (sum, next_sum);
if (diff < 0)
{
diff = ecma_number_negate (diff);
}
sum = next_sum;
}
if (invert)
{
sum = ecma_number_divide (ECMA_NUMBER_ONE, sum);
}
return sum;
} /* ecma_number_exp */
/**
* @}
src/libecmaobjects/ecma-helpers.h
+10
View File
@@ -129,6 +129,8 @@ extern bool ecma_is_string_magic (ecma_string_t *string_p, ecma_magic_string_id_
extern bool ecma_is_zt_string_magic (ecma_char_t *zt_string_p, ecma_magic_string_id_t *out_id_p);
/* ecma-helpers-number.c */
extern const ecma_number_t ecma_number_relative_eps;
extern ecma_number_t ecma_number_make_nan (void);
extern ecma_number_t ecma_number_make_infinity (bool sign);
extern bool ecma_number_is_nan (ecma_number_t num);
@@ -141,6 +143,14 @@ extern int32_t ecma_number_get_fraction_and_exponent (ecma_number_t num,
extern ecma_number_t ecma_number_make_normal_positive_from_fraction_and_exponent (uint64_t fraction,
int32_t exponent);
extern ecma_number_t ecma_number_negate (ecma_number_t num);
extern ecma_number_t ecma_number_add (ecma_number_t left_num, ecma_number_t right_num);
extern ecma_number_t ecma_number_substract (ecma_number_t left_num, ecma_number_t right_num);
extern ecma_number_t ecma_number_multiply (ecma_number_t left_num, ecma_number_t right_num);
extern ecma_number_t ecma_number_divide (ecma_number_t left_num, ecma_number_t right_num);
extern ecma_number_t ecma_number_sqrt (ecma_number_t num);
extern ecma_number_t ecma_number_abs (ecma_number_t num);
extern ecma_number_t ecma_number_ln (ecma_number_t num);
extern ecma_number_t ecma_number_exp (ecma_number_t num);
/* ecma-helpers-values-collection.c */
src/libecmaoperations/ecma-array-object.c
+1 -1
View File
@@ -441,7 +441,7 @@ ecma_op_array_object_define_own_property (ecma_object_t *obj_p, /**< the array o
{
// i., ii.
ecma_number_t *num_p = ecma_alloc_number ();
*num_p = ecma_op_number_add (ecma_uint32_to_number (index), ECMA_NUMBER_ONE);
*num_p = ecma_number_add (ecma_uint32_to_number (index), ECMA_NUMBER_ONE);
ecma_free_value (len_prop_p->u.named_data_property.value, false);
len_prop_p->u.named_data_property.value = ecma_make_number_value (num_p);
src/libecmaoperations/ecma-number-arithmetic.c
+5 -82
View File
@@ -26,66 +26,6 @@
* @{
*/
/**
* ECMA-defined number addition.
*
* See also:
* ECMA-262 v5, 11.6.3
*
* @return number - result of addition.
*/
ecma_number_t
ecma_op_number_add (ecma_number_t left_num, /**< left operand */
ecma_number_t right_num) /**< right operand */
{
return left_num + right_num;
} /* ecma_op_number_add */
/**
* ECMA-defined number substraction.
*
* See also:
* ECMA-262 v5, 11.6.3
*
* @return number - result of substraction.
*/
ecma_number_t
ecma_op_number_substract (ecma_number_t left_num, /**< left operand */
ecma_number_t right_num) /**< right operand */
{
return ecma_op_number_add (left_num, ecma_op_number_negate (right_num));
} /* ecma_op_number_substract */
/**
* ECMA-defined number multiplication.
*
* See also:
* ECMA-262 v5, 11.5.1
*
* @return number - result of multiplication.
*/
ecma_number_t
ecma_op_number_multiply (ecma_number_t left_num, /**< left operand */
ecma_number_t right_num) /**< right operand */
{
return left_num * right_num;
} /* ecma_op_number_multiply */
/**
* ECMA-defined number division.
*
* See also:
* ECMA-262 v5, 11.5.2
*
* @return number - result of division.
*/
ecma_number_t
ecma_op_number_divide (ecma_number_t left_num, /**< left operand */
ecma_number_t right_num) /**< right operand */
{
return left_num / right_num;
} /* ecma_op_number_divide */
/**
* ECMA-defined number remainder calculation.
*
@@ -123,7 +63,7 @@ ecma_op_number_remainder (ecma_number_t left_num, /**< left operand */
&& !ecma_number_is_zero (d)
&& !ecma_number_is_infinity (d));
ecma_number_t q = n / d;
ecma_number_t q = ecma_number_divide (n, d);
uint64_t fraction;
int32_t exponent;
@@ -134,11 +74,8 @@ ecma_op_number_remainder (ecma_number_t left_num, /**< left operand */
{
return n;
}
else if (exponent >= dot_shift)
{
return n - d * q;
}
else
if (exponent < dot_shift)
{
fraction &= ~((1ull << (dot_shift - exponent)) - 1);
@@ -148,25 +85,11 @@ ecma_op_number_remainder (ecma_number_t left_num, /**< left operand */
{
q = ecma_number_negate (q);
}
return n - d * q;
}
return ecma_number_substract (n, ecma_number_multiply (d, q));
} /* ecma_op_number_remainder */
/**
* ECMA-defined number negation.
*
* See also:
* ECMA-262 v5, 11.4.7
*
* @return number - result of negation.
*/
ecma_number_t
ecma_op_number_negate (ecma_number_t num) /**< operand */
{
return -num;
} /* ecma_op_number_negate */
/**
* @}
* @}
src/libecmaoperations/ecma-number-arithmetic.h
-5
View File
@@ -27,12 +27,7 @@
* @{
*/
extern ecma_number_t ecma_op_number_add (ecma_number_t left_num, ecma_number_t right_num);
extern ecma_number_t ecma_op_number_substract (ecma_number_t left_num, ecma_number_t right_num);
extern ecma_number_t ecma_op_number_multiply (ecma_number_t left_num, ecma_number_t right_num);
extern ecma_number_t ecma_op_number_divide (ecma_number_t left_num, ecma_number_t right_num);
extern ecma_number_t ecma_op_number_remainder (ecma_number_t left_num, ecma_number_t right_num);
extern ecma_number_t ecma_op_number_negate (ecma_number_t num);
/**
* @}