XS(XS_Newt_va_end); /* prototype to pass -Wmissing-prototypes */
XS(XS_Newt_va_end)
{
#ifdef dVAR
    dVAR; dXSARGS;
#else
    dXSARGS;
#endif
    if (items != 1)
       croak_xs_usage(cv,  "arg0");
    {
        __gnuc_va_list  arg0;
--------------------------
        if (sv_derived_from(ST(0), "__gnuc_va_list")) {
            IV tmp = SvIV((SV*)SvRV(ST(0)));
            arg0 = INT2PTR(__gnuc_va_list,tmp);
--------------------------
        }
        else
            Perl_croak(aTHX_ "%s: %s is not of type %s",
                        "Newt::va_end",
                        "arg0", "__gnuc_va_list");

        va_end(arg0);
    }
    XSRETURN_EMPTY;
}