The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
mpq_t *		MPQ
mpz_t *		MPZ
mpf_t * 	MPF
mpfr_t *	MPFR
mpfi_t *	MPFI
gmp_randstate_t *		GMP_RANDSTATE

INPUT
MPQ
            $var = INT2PTR($type, SvIVX(SvRV($arg)))
MPZ
            $var = INT2PTR($type, SvIVX(SvRV($arg)))
MPF
            $var = INT2PTR($type, SvIVX(SvRV($arg)))
MPFR
            $var = INT2PTR($type, SvIVX(SvRV($arg)))
MPFI
            $var = INT2PTR($type, SvIVX(SvRV($arg)))
GMP_RANDSTATE
            $var = INT2PTR($type, SvIVX(SvRV($arg)))