Function PerlIO_get_base 

pub unsafe fn PerlIO_get_base(
    my_perl: *mut PerlInterpreter,
    a: *mut PerlIO,
) -> *mut c_char

PerlIO_get_base [THX] - macro function