The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
float128 *		FLT128_OBJ


INPUT
FLT128_OBJ
            $var = INT2PTR($type, SvIVX(SvRV($arg)));