archive/php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2025-08-16 05:58:45 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 3

ext/gmp: Refactor generation of unary GMP functions

Browse source
This commit is contained in:
Gina Peter Banyard 2024-11-02 22:41:58 +00:00
parent 10003a3f5d
commit a9e2a96e69
1 changed files with 16 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

57
ext/gmp/gmp.c
View file

@ -231,6 +231,16 @@ static bool gmp_zend_parse_arg_into_mpz(
*/ */
typedef void (*gmp_unary_op_t)(mpz_ptr, mpz_srcptr); typedef void (*gmp_unary_op_t)(mpz_ptr, mpz_srcptr);
#define GMP_UNARY_OP_FUNCTION(name) \
ZEND_FUNCTION(gmp_##name) { \
mpz_ptr gmpnum_a, gmpnum_result; \
ZEND_PARSE_PARAMETERS_START(1, 1) \
GMP_Z_PARAM_INTO_MPZ_PTR(gmpnum_a) \
ZEND_PARSE_PARAMETERS_END(); \
INIT_GMP_RETVAL(gmpnum_result); \
mpz_##name(gmpnum_result, gmpnum_a); \
}
typedef void (*gmp_unary_ui_op_t)(mpz_ptr, gmp_ulong); typedef void (*gmp_unary_ui_op_t)(mpz_ptr, gmp_ulong);
typedef void (*gmp_binary_op_t)(mpz_ptr, mpz_srcptr, mpz_srcptr); typedef void (*gmp_binary_op_t)(mpz_ptr, mpz_srcptr, mpz_srcptr);
@ -274,9 +284,6 @@ static void gmp_mpz_gcd_ui(mpz_ptr a, mpz_srcptr b, gmp_ulong c) {
#define gmp_binary_ui_op_no_zero(op, uop) \ #define gmp_binary_ui_op_no_zero(op, uop) \
_gmp_binary_ui_op(INTERNAL_FUNCTION_PARAM_PASSTHRU, op, uop, 1) _gmp_binary_ui_op(INTERNAL_FUNCTION_PARAM_PASSTHRU, op, uop, 1)
/* Unary operations */
#define gmp_unary_op(op) _gmp_unary_op(INTERNAL_FUNCTION_PARAM_PASSTHRU, op)
static void gmp_free_object_storage(zend_object *obj) /* {{{ */ static void gmp_free_object_storage(zend_object *obj) /* {{{ */
{ {
gmp_object *intern = GET_GMP_OBJECT_FROM_OBJ(obj); gmp_object *intern = GET_GMP_OBJECT_FROM_OBJ(obj);
@ -959,19 +966,6 @@ static inline void gmp_zval_unary_op(zval *return_value, zval *a_arg, gmp_unary_
} }
/* }}} */ /* }}} */
/* {{{ _gmp_unary_op */
static inline void _gmp_unary_op(INTERNAL_FUNCTION_PARAMETERS, gmp_unary_op_t gmp_op)
{
zval *a_arg;
ZEND_PARSE_PARAMETERS_START(1, 1)
Z_PARAM_ZVAL(a_arg)
ZEND_PARSE_PARAMETERS_END();
gmp_zval_unary_op(return_value, a_arg, gmp_op);
}
/* }}} */
static bool gmp_verify_base(zend_long base, uint32_t arg_num) static bool gmp_verify_base(zend_long base, uint32_t arg_num)
{ {
if (base && (base < 2 || base > GMP_MAX_BASE)) { if (base && (base < 2 || base > GMP_MAX_BASE)) {
@ -1298,18 +1292,13 @@ ZEND_FUNCTION(gmp_divexact)
/* }}} */ /* }}} */
/* {{{ Negates a number */ /* {{{ Negates a number */
ZEND_FUNCTION(gmp_neg) GMP_UNARY_OP_FUNCTION(neg);
{
gmp_unary_op(mpz_neg);
}
/* }}} */
/* {{{ Calculates absolute value */ /* {{{ Calculates absolute value */
ZEND_FUNCTION(gmp_abs) GMP_UNARY_OP_FUNCTION(abs);
{ /* {{{ Calculates one's complement of a */
gmp_unary_op(mpz_abs); GMP_UNARY_OP_FUNCTION(com);
} /* {{{ Finds next prime of a */
/* }}} */ GMP_UNARY_OP_FUNCTION(nextprime);
/* {{{ Calculates factorial function */ /* {{{ Calculates factorial function */
ZEND_FUNCTION(gmp_fact) ZEND_FUNCTION(gmp_fact)
@ -1847,20 +1836,6 @@ ZEND_FUNCTION(gmp_or)
} }
/* }}} */ /* }}} */
/* {{{ Calculates one's complement of a */
ZEND_FUNCTION(gmp_com)
{
gmp_unary_op(mpz_com);
}
/* }}} */
/* {{{ Finds next prime of a */
ZEND_FUNCTION(gmp_nextprime)
{
gmp_unary_op(mpz_nextprime);
}
/* }}} */
/* {{{ Calculates logical exclusive OR of a and b */ /* {{{ Calculates logical exclusive OR of a and b */
ZEND_FUNCTION(gmp_xor) ZEND_FUNCTION(gmp_xor)
{ {