## cannot redefine T_PTR INPUT/OUTPUT
#  unmapped     T_PTR
unmapped     Too_PTR

brokenmapped    T_PTR

# cannot redefine typemap for "unsigned char*"
unsigned char *        Foo_PTR

INPUT
T_PTR
    $var = BROKEN_INT2PTR($type,SvIV($arg))


Too_PTR
    STMT_START {
        Perl_warn(aTHX_ \"INPUT Too_PTR=%s\", $arg);
        $var = INT2PTR($type,SvIV($arg));
        
    } STMT_END ;

Foo_PTR
    STMT_START {
        Perl_warn(aTHX_ \"INPUT Foo_PTR=%s\", $arg);
        $var = INT2PTR($type,SvIV($arg));
        
    } STMT_END ;

OUTPUT

Too_PTR
    STMT_START {
        Perl_warn(aTHX_ \"OUTPUT Too_PTR=%s\", $arg);
        sv_setiv($arg, PTR2IV($var));
        
    } STMT_END ;


Foo_PTR
    STMT_START {
        Perl_warn(aTHX_ \"OUTPUT Foo_PTR=%s\", $arg);
        sv_setiv($arg, PTR2IV($var));
        
    } STMT_END ;

T_PTR
    sv_setiv($arg, BROKEN_PTR2IV($var));