admin/mlib
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update example to allow more example of promotion.

Browse Source
This commit is contained in:
Patrick Pelissier committed 2022-12-25 23:12:02 +01:00
1 parent 3a3ef7454c
commit b1183de0f8
1 file changed
+4 -3
Download Patch File Download Diff File Expand all files Collapse all files
example/ex11-multi02.c
+4 -3
View File
@@ -44,7 +44,8 @@ mpz_fast_hash(const mpz_t z)
EMPLACE_TYPE( LIST( (_si, mpz_init_set_si, int), \ EMPLACE_TYPE( LIST( (_si, mpz_init_set_si, int), \
(_ui, mpz_init_set_ui, unsigned), \ (_ui, mpz_init_set_ui, unsigned), \
(_d, mpz_init_set_d, double), \ (_d, mpz_init_set_d, double), \
(_str, API(mpz_init_set_str, VOID, ARG1, ARG2, 10), const char *) )), \ (_cstr, API(mpz_init_set_str, VOID, ARG1, ARG2, 10), const char *), \
(_str, API(mpz_init_set_str, VOID, ARG1, ARG2, 10), char *) )), \
TYPE(mpz_t) ) TYPE(mpz_t) )
@@ -222,9 +223,9 @@ int main(void)
M_PRINT("\nThe array is equal to ", (array, my_array_t), "\n"); M_PRINT("\nThe array is equal to ", (array, my_array_t), "\n");
} /* All variables are automatically cleared beyond this point */ } /* All variables are automatically cleared beyond this point */
// Define an array of mpz_t as { 1, 2, 3 } (with auto promotion from integer) // Define an array of mpz_t as { 1, 2, 1 } (with auto promotion from integer)
// The auto-promotion uses _Generic feature and is available only in C11. // The auto-promotion uses _Generic feature and is available only in C11.
M_LET ( (az, (1), (2), (1)), array_mpz_t) M_LET ( (az, (1), ("2"), (1.0)), array_mpz_t)
M_LET ( roots, array_mpfr_t) { M_LET ( roots, array_mpfr_t) {
// Compute roots // Compute roots
compute_roots(roots, az); compute_roots(roots, az);