The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
TYPEMAP
uint16_t	T_IV


INPUT
T_IV
    $var = ($type)SvIV($arg)


OUTPUT
T_IV
    sv_setiv((SV*)$arg, $var);