demos/perl/GMP.xs

33    Mixed-type swapped-order assignments like "$a = 123; $a += mpz(456);"
46    handled with an mpz_set_si into a temporary and then a full precision mpz
55    The memory leak detection attempted in GMP::END() doesn't work when mpz's
157   (TRACE (printf ("  active %ld mpz, %ld mpq, %ld mpf, %ld randstate\n", \
198 CREATE_MPX (mpz)
285 #define free_mpz(z)    FREE_MPX_FREELIST (z, mpz)
307 #define SvMPZ(s)       SvMPX(s,mpz)
318 #define MPZ_ASSUME(z,sv)    MPX_ASSUME(z,sv,mpz)
407 my_mpx_set_svstr(mpz)
470    the data.  Applications should convert once to mpz, mpq or mpf when using
594 /* Coerce sv to an mpz.  Use tmp to hold the converted value if sv isn't
595    already an mpz (or an mpq of which the numerator can be used).  Return
596    the chosen mpz (tmp or the contents of sv).  */
615         croak ("cannot coerce non-integer double to mpz");
631         croak ("cannot coerce non-integer mpq to mpz");
639         croak ("cannot coerce non-integer mpf to mpz");
645     croak ("cannot coerce to mpz");
821       mpz z = SvMPZ(sv);
888       mpz z = SvMPZ(sv);
1423 mpz
1424 mpz (...)
1489     mpz z;
1504 mpz
1536 mpz
1606 mpz
1654 mpz
1705     mpz x;
1754 mpz
1791     mpz q, r;
1818     mpz q, r;
1854 mpz
1918 mpz
1952     mpz  r, r2;
1963 mpz
2006     mpz g, x, y;
2029 mpz
2092 mpz
2115 mpz
2134 mpz
2156 # No attempt to coerce here, only an mpz makes sense.
2159     mpz z
2171     mpz            rem;
2187     mpz root;
2203     mpz root;
2204     mpz rem;
2225 # In perl 5.005 we explicitly mask the mpz return down to 32-bits to get ~0.
2267     mpz  z;
2272         /* our operand is a non-magical mpz with a reference count of 1, so
2278         /* otherwise we need to make a new mpz, from whatever we have, and
2281         mpz  z = new_mpz ();
2297     mpz root;
2298     mpz rem;
2656 mpz
3141 mpz
3162 mpz