The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
SISYPHUS / Math-MPFR-4.03 / typemap 
mpq_t *			MPQ
mpz_t *			MPZ
mpf_t * 			MPF
mpfr_t *			MPFR
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)));
GMP_RANDSTATE
            $var = INT2PTR($type, SvIVX(SvRV($arg)));