Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
blib	[ DIR ]	drwxr-xr-x	2016-10-10 17:39
devel	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
parts	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
t	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
HACKERS	9.94 KB	-r--r--r--	2014-12-27 11:49
Makefile	30.79 KB	-rw-r--r--	2016-10-10 17:38
Makefile.PL	3.39 KB	-r--r--r--	2014-12-27 11:49
PPPort.bs	0 B	-rw-r--r--	2016-10-10 17:41
PPPort.pm	209.01 KB	-rw-r--r--	2016-10-10 17:39
PPPort.xs	192 B	-r--r--r--	2014-12-27 11:48
PPPort_pm.PL	15.21 KB	-r--r--r--	2014-12-27 11:49
PPPort_xs.PL	3.77 KB	-r--r--r--	2014-12-27 11:48
RealPPPort.c	112.83 KB	-rw-r--r--	2016-10-10 17:39
RealPPPort.o	165.66 KB	-rw-r--r--	2016-10-10 17:39
RealPPPort.xs	53.22 KB	-rw-r--r--	2016-10-10 17:39
apicheck_c.PL	806 B	-r--r--r--	2014-12-27 11:48
mktests.PL	2.66 KB	-r--r--r--	2014-12-27 11:48
module2.c	1.25 KB	-rw-r--r--	2014-12-27 11:48
module2.o	2.63 KB	-rw-r--r--	2016-10-10 17:39
module3.c	1.42 KB	-rw-r--r--	2014-12-27 11:48
module3.o	4.39 KB	-rw-r--r--	2016-10-10 17:39
pm_to_blib	0 B	-rw-r--r--	2016-10-10 17:39
ppport.h	183 KB	-rw-r--r--	2016-10-10 17:39
ppport_h.PL	733 B	-r--r--r--	2014-12-27 11:48
soak	12.62 KB	-r--r--r--	2014-12-27 11:49
typemap	1.01 KB	-r--r--r--	2014-12-27 11:48

Rename

/*
 * This file was generated automatically by ExtUtils::ParseXS version 3.24 from the
 * contents of RealPPPort.xs. Do not edit this file, edit RealPPPort.xs instead.
 *
 *    ANY CHANGES MADE HERE WILL BE LOST!
 *
 */

#line 1 "RealPPPort.xs"
/*******************************************************************************
*
*  !!!!! Do NOT edit this file directly! -- Edit PPPort_xs.PL instead. !!!!!
*
*  This file was automatically generated from the definition files in the
*  parts/inc/ subdirectory by PPPort_xs.PL. To learn more about how all this
*  works, please read the F<HACKERS> file that came with this distribution.
*
********************************************************************************
*
*  Perl/Pollution/Portability
*
********************************************************************************
*
*  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
*  Version 2.x, Copyright (C) 2001, Paul Marquess.
*  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
*
*  This program is free software; you can redistribute it and/or
*  modify it under the same terms as Perl itself.
*
*******************************************************************************/

/* ========== BEGIN XSHEAD ================================================== */

#define PERL_NO_GET_CONTEXT

/* =========== END XSHEAD =================================================== */

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

/* ========== BEGIN XSINIT ================================================== */

/* ---- code from parts/inc/newSV_type ---- */
#define NEED_newSV_type

/* ---- code from parts/inc/newSVpv ---- */
#define NEED_newSVpvn_flags

/* ---- code from parts/inc/warn ---- */
#define NEED_warner

/* ---- code from parts/inc/pvs ---- */
#define NEED_newSVpvn_share

/* ---- code from parts/inc/newRV ---- */
#define NEED_newRV_noinc

/* ---- code from parts/inc/call ---- */
#define NEED_eval_pv
#define NEED_load_module
#define NEED_vload_module

/* ---- code from parts/inc/pv_tools ---- */
#define NEED_pv_escape
#define NEED_pv_pretty
#define NEED_pv_display

/* ---- code from parts/inc/grok ---- */
#define NEED_grok_number
#define NEED_grok_numeric_radix
#define NEED_grok_bin
#define NEED_grok_hex
#define NEED_grok_oct

/* ---- code from parts/inc/strlfuncs ---- */
#define NEED_my_strlcat
#define NEED_my_strlcpy

/* ---- code from parts/inc/variables ---- */
#define NEED_PL_signals
#define NEED_PL_parser
#define DPPP_PL_parser_NO_DUMMY_WARNING

/* ---- code from parts/inc/sv_xpvf ---- */
#define NEED_vnewSVpvf
#define NEED_sv_catpvf_mg
#define NEED_sv_catpvf_mg_nocontext
#define NEED_sv_setpvf_mg
#define NEED_sv_setpvf_mg_nocontext

/* ---- code from parts/inc/sprintf ---- */
#define NEED_my_sprintf

/* ---- code from parts/inc/newCONSTSUB ---- */
#define NEED_newCONSTSUB

/* ---- code from parts/inc/shared_pv ---- */
#define NEED_newSVpvn_share

/* ---- code from parts/inc/SvPV ---- */
#define NEED_sv_2pv_flags
#define NEED_sv_pvn_force_flags
#define NEED_sv_2pvbyte

/* ---- code from parts/inc/snprintf ---- */
#define NEED_my_snprintf

/* =========== END XSINIT =================================================== */

#include "ppport.h"

/* ========== BEGIN XSMISC ================================================== */

/* ---- code from parts/inc/misc ---- */
typedef XSPROTO(XSPROTO_test_t);
typedef XSPROTO_test_t *XSPROTO_test_t_ptr;

XS(XS_Devel__PPPort_dXSTARG);  /* prototype */
XS(XS_Devel__PPPort_dXSTARG)
{
  dXSARGS;
  dXSTARG;
  IV iv;
  SP -= items;
  iv = SvIV(ST(0)) + 1;
  PUSHi(iv);
  XSRETURN(1);
}

XS(XS_Devel__PPPort_dAXMARK);  /* prototype */
XS(XS_Devel__PPPort_dAXMARK)
{
  dSP;
  dAXMARK;
  dITEMS;
  IV iv;
  SP -= items;
  iv = SvIV(ST(0)) - 1;
  mPUSHi(iv);
  XSRETURN(1);
}

/* ---- code from parts/inc/MY_CXT ---- */
#define MY_CXT_KEY "Devel::PPPort::_guts" XS_VERSION

typedef struct {
  /* Put Global Data in here */
  int dummy;
} my_cxt_t;

START_MY_CXT

/* ---- code from parts/inc/exception ---- */
/* defined in module3.c */
int exception(int throw_e);

/* ---- code from parts/inc/variables ---- */
U32 get_PL_signals_1(void)
{
#ifdef PERL_NO_GET_CONTEXT
  dTHX;
#endif
  return PL_signals;
}

extern U32 get_PL_signals_2(void);
extern U32 get_PL_signals_3(void);
int no_dummy_parser_vars(int);
int dummy_parser_warning(void);

#define ppp_TESTVAR(var)          STMT_START { mXPUSHi(&var != NULL); count++; } STMT_END

#define ppp_PARSERVAR(type, var)  STMT_START {                   \
                                    type volatile my_ ## var;    \
                                    type volatile *my_p_ ## var; \
                                    my_ ## var = var;            \
                                    my_p_ ## var = &var;         \
                                    var = my_ ## var;            \
                                    var = *my_p_ ## var;         \
                                    mXPUSHi(&var != NULL);       \
                                    count++;                     \
                                  } STMT_END

#define ppp_PARSERVAR_dummy       STMT_START {                   \
                                    mXPUSHi(1);                  \
                                    count++;                     \
                                  } STMT_END

#if (PERL_BCDVERSION < 0x5004000)
# define ppp_rsfp_t FILE *
#else
# define ppp_rsfp_t PerlIO *
#endif

#if (PERL_BCDVERSION < 0x5006000)
# define ppp_expect_t expectation
#elif (PERL_BCDVERSION < 0x5009005)
# define ppp_expect_t int
#else
# define ppp_expect_t U8
#endif

#if (PERL_BCDVERSION < 0x5009005)
# define ppp_lex_state_t U32
#else
# define ppp_lex_state_t U8
#endif

#if (PERL_BCDVERSION < 0x5006000)
# define ppp_in_my_t bool
#elif (PERL_BCDVERSION < 0x5009005)
# define ppp_in_my_t I32
#else
# define ppp_in_my_t U16
#endif

#if (PERL_BCDVERSION < 0x5009005)
# define ppp_error_count_t I32
#else
# define ppp_error_count_t U8
#endif

/* ---- code from parts/inc/sv_xpvf ---- */
static SV * test_vnewSVpvf(pTHX_ const char *pat, ...)
{
  SV *sv;
  va_list args;
  va_start(args, pat);
#if (PERL_BCDVERSION >= 0x5004000)
  sv = vnewSVpvf(pat, &args);
#else
  sv = newSVpv((char *) pat, 0);
#endif
  va_end(args);
  return sv;
}

static void test_sv_vcatpvf(pTHX_ SV *sv, const char *pat, ...)
{
  va_list args;
  va_start(args, pat);
#if (PERL_BCDVERSION >= 0x5004000)
  sv_vcatpvf(sv, pat, &args);
#else
  sv_catpv(sv, (char *) pat);
#endif
  va_end(args);
}

static void test_sv_vsetpvf(pTHX_ SV *sv, const char *pat, ...)
{
  va_list args;
  va_start(args, pat);
#if (PERL_BCDVERSION >= 0x5004000)
  sv_vsetpvf(sv, pat, &args);
#else
  sv_setpv(sv, (char *) pat);
#endif
  va_end(args);
}

/* ---- code from parts/inc/newCONSTSUB ---- */
void call_newCONSTSUB_1(void)
{
#ifdef PERL_NO_GET_CONTEXT
        dTHX;
#endif
        newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_1", newSViv(1));
}

extern void call_newCONSTSUB_2(void);
extern void call_newCONSTSUB_3(void);

/* =========== END XSMISC =================================================== */

#line 279 "RealPPPort.c"
#ifndef PERL_UNUSED_VAR
#  define PERL_UNUSED_VAR(var) if (0) var = var
#endif

#ifndef dVAR
#  define dVAR		dNOOP
#endif

/* This stuff is not part of the API! You have been warned. */
#ifndef PERL_VERSION_DECIMAL
#  define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s)
#endif
#ifndef PERL_DECIMAL_VERSION
#  define PERL_DECIMAL_VERSION \
	  PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)
#endif
#ifndef PERL_VERSION_GE
#  define PERL_VERSION_GE(r,v,s) \
	  (PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s))
#endif
#ifndef PERL_VERSION_LE
#  define PERL_VERSION_LE(r,v,s) \
	  (PERL_DECIMAL_VERSION <= PERL_VERSION_DECIMAL(r,v,s))
#endif

/* XS_INTERNAL is the explicit static-linkage variant of the default
 * XS macro.
 *
 * XS_EXTERNAL is the same as XS_INTERNAL except it does not include
 * "STATIC", ie. it exports XSUB symbols. You probably don't want that
 * for anything but the BOOT XSUB.
 *
 * See XSUB.h in core!
 */

/* TODO: This might be compatible further back than 5.10.0. */
#if PERL_VERSION_GE(5, 10, 0) && PERL_VERSION_LE(5, 15, 1)
#  undef XS_EXTERNAL
#  undef XS_INTERNAL
#  if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING)
#    define XS_EXTERNAL(name) __declspec(dllexport) XSPROTO(name)
#    define XS_INTERNAL(name) STATIC XSPROTO(name)
#  endif
#  if defined(__SYMBIAN32__)
#    define XS_EXTERNAL(name) EXPORT_C XSPROTO(name)
#    define XS_INTERNAL(name) EXPORT_C STATIC XSPROTO(name)
#  endif
#  ifndef XS_EXTERNAL
#    if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus)
#      define XS_EXTERNAL(name) void name(pTHX_ CV* cv __attribute__unused__)
#      define XS_INTERNAL(name) STATIC void name(pTHX_ CV* cv __attribute__unused__)
#    else
#      ifdef __cplusplus
#        define XS_EXTERNAL(name) extern "C" XSPROTO(name)
#        define XS_INTERNAL(name) static XSPROTO(name)
#      else
#        define XS_EXTERNAL(name) XSPROTO(name)
#        define XS_INTERNAL(name) STATIC XSPROTO(name)
#      endif
#    endif
#  endif
#endif

/* perl >= 5.10.0 && perl <= 5.15.1 */

/* The XS_EXTERNAL macro is used for functions that must not be static
 * like the boot XSUB of a module. If perl didn't have an XS_EXTERNAL
 * macro defined, the best we can do is assume XS is the same.
 * Dito for XS_INTERNAL.
 */
#ifndef XS_EXTERNAL
#  define XS_EXTERNAL(name) XS(name)
#endif
#ifndef XS_INTERNAL
#  define XS_INTERNAL(name) XS(name)
#endif

/* Now, finally, after all this mess, we want an ExtUtils::ParseXS
 * internal macro that we're free to redefine for varying linkage due
 * to the EXPORT_XSUB_SYMBOLS XS keyword. This is internal, use
 * XS_EXTERNAL(name) or XS_INTERNAL(name) in your code if you need to!
 */

#undef XS_EUPXS
#if defined(PERL_EUPXS_ALWAYS_EXPORT)
#  define XS_EUPXS(name) XS_EXTERNAL(name)
#else
   /* default to internal */
#  define XS_EUPXS(name) XS_INTERNAL(name)
#endif

#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE
#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)

/* prototype to pass -Wmissing-prototypes */
STATIC void
S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params);

STATIC void
S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params)
{
    const GV *const gv = CvGV(cv);

PERL_ARGS_ASSERT_CROAK_XS_USAGE;

if (gv) {
        const char *const gvname = GvNAME(gv);
        const HV *const stash = GvSTASH(gv);
        const char *const hvname = stash ? HvNAME(stash) : NULL;

if (hvname)
            Perl_croak(aTHX_ "Usage: %s::%s(%s)", hvname, gvname, params);
        else
            Perl_croak(aTHX_ "Usage: %s(%s)", gvname, params);
    } else {
        /* Pants. I don't think that it should be possible to get here. */
        Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);
    }
}
#undef  PERL_ARGS_ASSERT_CROAK_XS_USAGE

#ifdef PERL_IMPLICIT_CONTEXT
#define croak_xs_usage(a,b)    S_croak_xs_usage(aTHX_ a,b)
#else
#define croak_xs_usage        S_croak_xs_usage
#endif

#endif

/* NOTE: the prototype of newXSproto() is different in versions of perls,
 * so we define a portable version of newXSproto()
 */
#ifdef newXS_flags
#define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0)
#else
#define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv)
#endif /* !defined(newXS_flags) */

#line 421 "RealPPPort.c"

XS_EUPXS(XS_Devel__PPPort_ptrtests); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_ptrtests)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 296 "RealPPPort.xs"
                int var, *p = &var;

#line 433 "RealPPPort.c"
	int	RETVAL;
	dXSTARG;
#line 299 "RealPPPort.xs"
                RETVAL = 0;
                RETVAL += PTR2nat(p) != 0       ?  1 : 0;
                RETVAL += PTR2ul(p) != 0UL      ?  2 : 0;
                RETVAL += PTR2UV(p) != (UV) 0   ?  4 : 0;
                RETVAL += PTR2IV(p) != (IV) 0   ?  8 : 0;
                RETVAL += PTR2NV(p) != (NV) 0   ? 16 : 0;
                RETVAL += p > NUM2PTR(int *, 0) ? 32 : 0;

#line 445 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_gv_stashpvn); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_gv_stashpvn)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "name, create");
    {
	char *	name = (char *)SvPV_nolen(ST(0))
;
	I32	create = (I32)SvIV(ST(1))
;
	int	RETVAL;
	dXSTARG;
#line 315 "RealPPPort.xs"
                RETVAL = gv_stashpvn(name, strlen(name), create) != NULL;
#line 467 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_get_sv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_get_sv)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "name, create");
    {
	char *	name = (char *)SvPV_nolen(ST(0))
;
	I32	create = (I32)SvIV(ST(1))
;
	int	RETVAL;
	dXSTARG;
#line 324 "RealPPPort.xs"
                RETVAL = get_sv(name, create) != NULL;
#line 489 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_get_av); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_get_av)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "name, create");
    {
	char *	name = (char *)SvPV_nolen(ST(0))
;
	I32	create = (I32)SvIV(ST(1))
;
	int	RETVAL;
	dXSTARG;
#line 333 "RealPPPort.xs"
                RETVAL = get_av(name, create) != NULL;
#line 511 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_get_hv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_get_hv)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "name, create");
    {
	char *	name = (char *)SvPV_nolen(ST(0))
;
	I32	create = (I32)SvIV(ST(1))
;
	int	RETVAL;
	dXSTARG;
#line 342 "RealPPPort.xs"
                RETVAL = get_hv(name, create) != NULL;
#line 533 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_get_cv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_get_cv)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "name, create");
    {
	char *	name = (char *)SvPV_nolen(ST(0))
;
	I32	create = (I32)SvIV(ST(1))
;
	int	RETVAL;
	dXSTARG;
#line 351 "RealPPPort.xs"
                RETVAL = get_cv(name, create) != NULL;
#line 555 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_xsreturn); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_xsreturn)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "two");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	int	two = (int)SvIV(ST(0))
;
#line 359 "RealPPPort.xs"
                mXPUSHp("test1", 5);
                if (two)
                  mXPUSHp("test2", 5);
                if (two)
                  XSRETURN(2);
                else
                  XSRETURN(1);
#line 581 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_boolSV); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_boolSV)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "value");
    {
	int	value = (int)SvIV(ST(0))
;
	SV *	RETVAL;
#line 371 "RealPPPort.xs"
                RETVAL = newSVsv(boolSV(value));
#line 600 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_DEFSV); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_DEFSV)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 378 "RealPPPort.xs"
                RETVAL = newSVsv(DEFSV);
#line 618 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_DEFSV_modify); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_DEFSV_modify)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 385 "RealPPPort.xs"
                XPUSHs(sv_mortalcopy(DEFSV));
                ENTER;
                SAVE_DEFSV;
                DEFSV_set(newSVpvs("DEFSV"));
                XPUSHs(sv_mortalcopy(DEFSV));
                /* Yes, this leaks the above scalar; 5.005 with threads for some reason */
                /* frees it upon LEAVE, thus mortalizing it causes "attempt to free..." */
                /* sv_2mortal(DEFSV); */
                LEAVE;
                XPUSHs(sv_mortalcopy(DEFSV));
                XSRETURN(3);
#line 647 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_ERRSV); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_ERRSV)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	int	RETVAL;
	dXSTARG;
#line 400 "RealPPPort.xs"
                RETVAL = SvTRUE(ERRSV);
#line 665 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_UNDERBAR); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_UNDERBAR)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 407 "RealPPPort.xs"
                {
                  dUNDERBAR;
                  RETVAL = newSVsv(UNDERBAR);
                }
#line 685 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_prepush); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_prepush)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 417 "RealPPPort.xs"
                {
                  dXSTARG;
                  XSprePUSH;
                  PUSHi(42);
                  XSRETURN(1);
                }
#line 707 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_PERL_ABS); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_PERL_ABS)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "a");
    {
	int	a = (int)SvIV(ST(0))
;
	int	RETVAL;
	dXSTARG;

RETVAL = PERL_ABS(a);
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SVf); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SVf)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "x");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	SV *	x = ST(0)
;
#line 432 "RealPPPort.xs"
#if (PERL_BCDVERSION >= 0x5004000)
                x = sv_2mortal(newSVpvf("[%"SVf"]", SVfARG(x)));
#endif
                XPUSHs(x);
                XSRETURN(1);
#line 749 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_Perl_ppaddr_t); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_Perl_ppaddr_t)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "string");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	char *	string = (char *)SvPV_nolen(ST(0))
;
#line 442 "RealPPPort.xs"
                Perl_ppaddr_t lower;
#line 769 "RealPPPort.c"
#line 444 "RealPPPort.xs"
                lower = PL_ppaddr[OP_LC];
                mXPUSHs(newSVpv(string, 0));
                PUTBACK;
                ENTER;
                (void)*(lower)(aTHXR);
                SPAGAIN;
                LEAVE;
                XSRETURN(1);
#line 779 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_GvSVn); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_GvSVn)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 460 "RealPPPort.xs"
                GV* gv;
#line 795 "RealPPPort.c"
	int	RETVAL;
	dXSTARG;
#line 462 "RealPPPort.xs"
                RETVAL = 0;
                gv = gv_fetchpvs("Devel::PPPort::GvTest", GV_ADDMULTI, SVt_PVGV);
                if (GvSVn(gv) != NULL)
                {
                  RETVAL++;
                }
#line 805 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_isGV_with_GP); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_isGV_with_GP)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 474 "RealPPPort.xs"
                GV* gv;
#line 821 "RealPPPort.c"
	int	RETVAL;
	dXSTARG;
#line 476 "RealPPPort.xs"
                RETVAL = 0;
                gv = gv_fetchpvs("Devel::PPPort::GvTest", GV_ADDMULTI, SVt_PVGV);
                if (isGV_with_GP(gv))
                {
                  RETVAL++;
                }
                if (!isGV(&PL_sv_undef))
                {
                  RETVAL++;
                }
#line 835 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_get_cvn_flags); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_get_cvn_flags)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 492 "RealPPPort.xs"
                CV* xv;
#line 851 "RealPPPort.c"
	int	RETVAL;
	dXSTARG;
#line 494 "RealPPPort.xs"
                RETVAL = 0;
                xv = get_cvn_flags("Devel::PPPort::foobar", sizeof("Devel::PPPort::foobar")-1, 0);
                if(xv == NULL) RETVAL++;
                xv = get_cvn_flags("Devel::PPPort::foobar", sizeof("Devel::PPPort::foobar")-1, GV_ADDMULTI);
                if(xv && SvTYPE(xv) == SVt_PVCV) RETVAL++;
                xv = get_cvn_flags("Devel::PPPort::get_cvn_flags", sizeof("Devel::PPPort::get_cvn_flags")-1, 0);
                if(xv && SvTYPE(xv) == SVt_PVCV) RETVAL++;
#line 862 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_gv_fetchpvn_flags); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_gv_fetchpvn_flags)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 507 "RealPPPort.xs"
                RETVAL = newRV_inc((SV*)gv_fetchpvn_flags("Devel::PPPort::VERSION", sizeof("Devel::PPPort::VERSION")-1, 0, SVt_PV));
#line 879 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_gv_fetchsv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_gv_fetchsv)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "name");
    {
	SV *	name = ST(0)
;
	SV *	RETVAL;
#line 515 "RealPPPort.xs"
                RETVAL = newRV_inc((SV*)gv_fetchsv(name, 0, SVt_PV));
#line 899 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_newSV_type); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_newSV_type)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 526 "RealPPPort.xs"
                SV* sv;
#line 916 "RealPPPort.c"
	int	RETVAL;
	dXSTARG;
#line 528 "RealPPPort.xs"
                RETVAL = 0;
                sv = newSV_type(SVt_NULL);
                if (SvTYPE(sv) == SVt_NULL)
                {
                  RETVAL++;
                }
                SvREFCNT_dec(sv);

sv = newSV_type(SVt_PVIV);
                if (SvTYPE(sv) == SVt_PVIV)
                {
                  RETVAL++;
                }
                SvREFCNT_dec(sv);

sv = newSV_type(SVt_PVHV);
                if (SvTYPE(sv) == SVt_PVHV)
                {
                  RETVAL++;
                }
                SvREFCNT_dec(sv);

sv = newSV_type(SVt_PVAV);
                if (SvTYPE(sv) == SVt_PVAV)
                {
                  RETVAL++;
                }
                SvREFCNT_dec(sv);
#line 948 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_MY_CXT_1); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_MY_CXT_1)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	int	RETVAL;
	dXSTARG;
#line 566 "RealPPPort.xs"
                dMY_CXT;
                RETVAL = MY_CXT.dummy == 42;
                ++MY_CXT.dummy;
#line 968 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_MY_CXT_2); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_MY_CXT_2)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	int	RETVAL;
	dXSTARG;
#line 575 "RealPPPort.xs"
                dMY_CXT;
                RETVAL = MY_CXT.dummy == 43;
#line 987 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_MY_CXT_CLONE); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_MY_CXT_CLONE)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	int	RETVAL;
	dXSTARG;
#line 583 "RealPPPort.xs"
                MY_CXT_CLONE;
                RETVAL = 42;
#line 1006 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_newSVpvn); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_newSVpvn)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 595 "RealPPPort.xs"
                mXPUSHs(newSVpvn("test", 4));
                mXPUSHs(newSVpvn("test", 2));
                mXPUSHs(newSVpvn("test", 0));
                mXPUSHs(newSVpvn(NULL, 2));
                mXPUSHs(newSVpvn(NULL, 0));
                XSRETURN(5);
#line 1029 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_newSVpvn_flags); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_newSVpvn_flags)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 605 "RealPPPort.xs"
                XPUSHs(newSVpvn_flags("test", 4, SVs_TEMP));
                XPUSHs(newSVpvn_flags("test", 2, SVs_TEMP));
                XPUSHs(newSVpvn_flags("test", 0, SVs_TEMP));
                XPUSHs(newSVpvn_flags(NULL, 2, SVs_TEMP));
                XPUSHs(newSVpvn_flags(NULL, 0, SVs_TEMP));
                XSRETURN(5);
#line 1052 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_newSVpvn_utf8); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_newSVpvn_utf8)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 615 "RealPPPort.xs"
                XPUSHs(newSVpvn_flags("test", 4, SVs_TEMP|SVf_UTF8));
                XSRETURN(1);
#line 1071 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_warner); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_warner)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 625 "RealPPPort.xs"
#if (PERL_BCDVERSION >= 0x5004000)
                warner(packWARN(WARN_MISC), "warner %s:%d", "bar", 42);
#endif
#line 1089 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_Perl_warner); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_Perl_warner)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 632 "RealPPPort.xs"
#if (PERL_BCDVERSION >= 0x5004000)
                Perl_warner(aTHX_ packWARN(WARN_MISC), "Perl_warner %s:%d", "bar", 42);
#endif
#line 1106 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_Perl_warner_nocontext); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_Perl_warner_nocontext)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 639 "RealPPPort.xs"
#if (PERL_BCDVERSION >= 0x5004000)
                Perl_warner_nocontext(packWARN(WARN_MISC), "Perl_warner_nocontext %s:%d", "bar", 42);
#endif
#line 1123 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_ckWARN); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_ckWARN)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 646 "RealPPPort.xs"
#if (PERL_BCDVERSION >= 0x5004000)
                if (ckWARN(WARN_MISC))
                  Perl_warner_nocontext(packWARN(WARN_MISC), "ckWARN %s:%d", "bar", 42);
#endif
#line 1141 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_TestSvUV_set); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_TestSvUV_set)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, val");
    {
	SV *	sv = ST(0)
;
	UV        val = (UV)SvUV(ST(1))
;
	IV	RETVAL;
	dXSTARG;
#line 660 "RealPPPort.xs"
                SvUV_set(sv, val);
                RETVAL = SvUVX(sv) == val ? 42 : -1;
#line 1163 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_TestSvPVX_const); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_TestSvPVX_const)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
	IV	RETVAL;
	dXSTARG;
#line 669 "RealPPPort.xs"
                RETVAL = strEQ(SvPVX_const(sv), "mhx") ? 43 : -1;
#line 1183 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_TestSvPVX_mutable); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_TestSvPVX_mutable)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
	IV	RETVAL;
	dXSTARG;
#line 677 "RealPPPort.xs"
                RETVAL = strEQ(SvPVX_mutable(sv), "mhx") ? 44 : -1;
#line 1203 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_TestSvSTASH_set); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_TestSvSTASH_set)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, name");
    {
	SV *	sv = ST(0)
;
	char *	name = (char *)SvPV_nolen(ST(1))
;
#line 686 "RealPPPort.xs"
                sv = SvRV(sv);
                SvREFCNT_dec(SvSTASH(sv));
                SvSTASH_set(sv, (HV*) SvREFCNT_inc(gv_stashpv(name, 0)));
#line 1225 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_HvNAME_get); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_HvNAME_get)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "hv");
    {
	HV *	hv;
	char *	RETVAL;
	dXSTARG;

if (SvROK(ST(0)) && SvTYPE(SvRV(ST(0)))==SVt_PVHV)
            hv = (HV*)SvRV(ST(0));
        else
            Perl_croak(aTHX_ "hv is not a hash reference")
;

RETVAL = HvNAME_get(hv);
	sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_HvNAMELEN_get); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_HvNAMELEN_get)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "hv");
    {
	HV *	hv;
	int	RETVAL;
	dXSTARG;

if (SvROK(ST(0)) && SvTYPE(SvRV(ST(0)))==SVt_PVHV)
            hv = (HV*)SvRV(ST(0));
        else
            Perl_croak(aTHX_ "hv is not a hash reference")
;

RETVAL = HvNAMELEN_get(hv);
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_checkmem); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_checkmem)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 709 "RealPPPort.xs"
    char *p;

#line 1289 "RealPPPort.c"
	int	RETVAL;
	dXSTARG;
#line 712 "RealPPPort.xs"
    RETVAL = 0;
    Newx(p, 6, char);
    CopyD("Hello", p, 6, char);
    if (memEQ(p, "Hello", 6))
      RETVAL++;
    ZeroD(p, 6, char);
    if (memEQ(p, "\0\0\0\0\0\0", 6))
      RETVAL++;
    if (memEQs(p, 6, "\0\0\0\0\0\0"))
      RETVAL++;
    Poison(p, 6, char);
    if (memNE(p, "\0\0\0\0\0\0", 6))
      RETVAL++;
    if (memNEs(p, 6, "\0\0\0\0\0\0"))
      RETVAL++;
    Safefree(p);

Newxz(p, 6, char);
    if (memEQ(p, "\0\0\0\0\0\0", 6))
      RETVAL++;
    Safefree(p);

Newxc(p, 3, short, char);
    Safefree(p);

#line 1318 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_newSVpvs); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_newSVpvs)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 747 "RealPPPort.xs"
                mXPUSHs(newSVpvs("newSVpvs"));
                XSRETURN(1);
#line 1337 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_newSVpvs_flags); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_newSVpvs_flags)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 753 "RealPPPort.xs"
                XPUSHs(newSVpvs_flags("newSVpvs_flags", SVs_TEMP));
                XSRETURN(1);
#line 1356 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_newSVpvs_share); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_newSVpvs_share)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 759 "RealPPPort.xs"
                SV *sv;
                U32 hash;
#line 1373 "RealPPPort.c"
	int	RETVAL;
	dXSTARG;
#line 762 "RealPPPort.xs"
                RETVAL = 0;
                PERL_HASH(hash, "pvs", 3);
                sv = newSVpvs_share("pvs");
                RETVAL += strEQ(SvPV_nolen_const(sv), "pvs");
                RETVAL += SvCUR(sv) == 3;
                RETVAL += SvSHARED_HASH(sv) == hash;
                SvREFCNT_dec(sv);
#line 1384 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_sv_catpvs); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_catpvs)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	SV *	sv = ST(0)
;
#line 776 "RealPPPort.xs"
                sv_catpvs(sv, "sv_catpvs");
#line 1404 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_sv_setpvs); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_setpvs)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	SV *	sv = ST(0)
;
#line 782 "RealPPPort.xs"
                sv_setpvs(sv, "sv_setpvs");
#line 1424 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_hv_fetchs); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_hv_fetchs)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "hv");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	SV *	hv = ST(0)
;
#line 788 "RealPPPort.xs"
                SV **s;
#line 1444 "RealPPPort.c"
#line 790 "RealPPPort.xs"
                s = hv_fetchs((HV *) SvRV(hv), "hv_fetchs", 0);
                XPUSHs(sv_mortalcopy(*s));
                XSRETURN(1);
#line 1449 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_hv_stores); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_hv_stores)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "hv, sv");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	SV *	hv = ST(0)
;
	SV *	sv = ST(1)
;
#line 799 "RealPPPort.xs"
                (void) hv_stores((HV *) SvRV(hv), "hv_stores", SvREFCNT_inc_simple(sv));
#line 1471 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_gv_fetchpvs); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_gv_fetchpvs)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 804 "RealPPPort.xs"
                RETVAL = newRV_inc((SV*)gv_fetchpvs("Devel::PPPort::VERSION", 0, SVt_PV));
#line 1488 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_gv_stashpvs); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_gv_stashpvs)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 811 "RealPPPort.xs"
                RETVAL = newRV_inc((SV*)gv_stashpvs("Devel::PPPort", 0));
#line 1506 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_get_cvs); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_get_cvs)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 818 "RealPPPort.xs"
                CV* xv;
#line 1523 "RealPPPort.c"
	int	RETVAL;
	dXSTARG;
#line 820 "RealPPPort.xs"
                RETVAL = 0;
                xv = get_cvs("Devel::PPPort::foobar", 0);
                if(xv == NULL) RETVAL++;
                xv = get_cvs("Devel::PPPort::foobar", GV_ADDMULTI);
                if(xv && SvTYPE(xv) == SVt_PVCV) RETVAL++;
                xv = get_cvs("Devel::PPPort::get_cvs", 0);
                if(xv && SvTYPE(xv) == SVt_PVCV) RETVAL++;
#line 1534 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_newRV_inc_REFCNT); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_newRV_inc_REFCNT)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 837 "RealPPPort.xs"
                SV *sv, *rv;
#line 1550 "RealPPPort.c"
	U32	RETVAL;
	dXSTARG;
#line 839 "RealPPPort.xs"
                sv = newSViv(42);
                rv = newRV_inc(sv);
                SvREFCNT_dec(sv);
                RETVAL = SvREFCNT(sv);
                sv_2mortal(rv);
#line 1559 "RealPPPort.c"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_newRV_noinc_REFCNT); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_newRV_noinc_REFCNT)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 850 "RealPPPort.xs"
                SV *sv, *rv;
#line 1575 "RealPPPort.c"
	U32	RETVAL;
	dXSTARG;
#line 852 "RealPPPort.xs"
                sv = newSViv(42);
                rv = newRV_noinc(sv);
                RETVAL = SvREFCNT(sv);
                sv_2mortal(rv);
#line 1583 "RealPPPort.c"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_G_SCALAR); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_G_SCALAR)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	I32	RETVAL;
	dXSTARG;
#line 866 "RealPPPort.xs"
                RETVAL = G_SCALAR;
#line 1601 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_G_ARRAY); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_G_ARRAY)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	I32	RETVAL;
	dXSTARG;
#line 873 "RealPPPort.xs"
                RETVAL = G_ARRAY;
#line 1619 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_G_DISCARD); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_G_DISCARD)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	I32	RETVAL;
	dXSTARG;
#line 880 "RealPPPort.xs"
                RETVAL = G_DISCARD;
#line 1637 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_eval_sv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_eval_sv)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, flags");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	SV*	sv = ST(0)
;
	I32	flags = (I32)SvIV(ST(1))
;
#line 889 "RealPPPort.xs"
                I32 i;
#line 1659 "RealPPPort.c"
#line 891 "RealPPPort.xs"
                PUTBACK;
                i = eval_sv(sv, flags);
                SPAGAIN;
                EXTEND(SP, 1);
                mPUSHi(i);
#line 1666 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_eval_pv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_eval_pv)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "p, croak_on_error");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	char*	p = (char *)SvPV_nolen(ST(0))
;
	I32	croak_on_error = (I32)SvIV(ST(1))
;
#line 902 "RealPPPort.xs"
                PUTBACK;
                EXTEND(SP, 1);
                PUSHs(eval_pv(p, croak_on_error));
#line 1690 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_call_sv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_call_sv)
{
    dVAR; dXSARGS;
    if (items < 2)
       croak_xs_usage(cv,  "sv, flags, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	SV*	sv = ST(0)
;
	I32	flags = (I32)SvIV(ST(1))
;
#line 911 "RealPPPort.xs"
                I32 i;
#line 1712 "RealPPPort.c"
#line 913 "RealPPPort.xs"
                for (i=0; i<items-2; i++)
                  ST(i) = ST(i+2); /* pop first two args */
                PUSHMARK(SP);
                SP += items - 2;
                PUTBACK;
                i = call_sv(sv, flags);
                SPAGAIN;
                EXTEND(SP, 1);
                mPUSHi(i);
#line 1723 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_call_pv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_call_pv)
{
    dVAR; dXSARGS;
    if (items < 2)
       croak_xs_usage(cv,  "subname, flags, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	char*	subname = (char *)SvPV_nolen(ST(0))
;
	I32	flags = (I32)SvIV(ST(1))
;
#line 928 "RealPPPort.xs"
                I32 i;
#line 1745 "RealPPPort.c"
#line 930 "RealPPPort.xs"
                for (i=0; i<items-2; i++)
                  ST(i) = ST(i+2); /* pop first two args */
                PUSHMARK(SP);
                SP += items - 2;
                PUTBACK;
                i = call_pv(subname, flags);
                SPAGAIN;
                EXTEND(SP, 1);
                mPUSHi(i);
#line 1756 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_call_argv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_call_argv)
{
    dVAR; dXSARGS;
    if (items < 2)
       croak_xs_usage(cv,  "subname, flags, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	char*	subname = (char *)SvPV_nolen(ST(0))
;
	I32	flags = (I32)SvIV(ST(1))
;
#line 945 "RealPPPort.xs"
                I32 i;
                char *args[8];
#line 1779 "RealPPPort.c"
#line 948 "RealPPPort.xs"
                if (items > 8)  /* play safe */
                  XSRETURN_UNDEF;
                for (i=2; i<items; i++)
                  args[i-2] = SvPV_nolen(ST(i));
                args[items-2] = NULL;
                PUTBACK;
                i = call_argv(subname, flags, args);
                SPAGAIN;
                EXTEND(SP, 1);
                mPUSHi(i);
#line 1791 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_call_method); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_call_method)
{
    dVAR; dXSARGS;
    if (items < 2)
       croak_xs_usage(cv,  "methname, flags, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	char*	methname = (char *)SvPV_nolen(ST(0))
;
	I32	flags = (I32)SvIV(ST(1))
;
#line 964 "RealPPPort.xs"
                I32 i;
#line 1813 "RealPPPort.c"
#line 966 "RealPPPort.xs"
                for (i=0; i<items-2; i++)
                  ST(i) = ST(i+2); /* pop first two args */
                PUSHMARK(SP);
                SP += items - 2;
                PUTBACK;
                i = call_method(methname, flags);
                SPAGAIN;
                EXTEND(SP, 1);
                mPUSHi(i);
#line 1824 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_call_sv_G_METHOD); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_call_sv_G_METHOD)
{
    dVAR; dXSARGS;
    if (items < 2)
       croak_xs_usage(cv,  "sv, flags, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	SV*	sv = ST(0)
;
	I32	flags = (I32)SvIV(ST(1))
;
#line 981 "RealPPPort.xs"
                I32 i;
#line 1846 "RealPPPort.c"
#line 983 "RealPPPort.xs"
                for (i=0; i<items-2; i++)
                  ST(i) = ST(i+2); /* pop first two args */
                PUSHMARK(SP);
                SP += items - 2;
                PUTBACK;
                i = call_sv(sv, flags | G_METHOD);
                SPAGAIN;
                EXTEND(SP, 1);
                mPUSHi(i);
#line 1857 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_load_module); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_load_module)
{
    dVAR; dXSARGS;
    if (items < 3)
       croak_xs_usage(cv,  "flags, name, version, ...");
    {
	U32	flags = (unsigned long)SvUV(ST(0))
;
	SV *	name = ST(1)
;
	SV *	version = ST(2)
;
#line 999 "RealPPPort.xs"
                /* Both SV parameters are donated to the ops built inside
                   load_module, so we need to bump the refcounts.  */
                Perl_load_module(aTHX_ flags, SvREFCNT_inc_simple(name),
                                 SvREFCNT_inc_simple(version), NULL);
#line 1882 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_catpv_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_catpv_mg)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, string");
    {
	SV *	sv = ST(0)
;
	char *	string = (char *)SvPV_nolen(ST(1))
;
#line 1013 "RealPPPort.xs"
                sv_catpv_mg(sv, string);
#line 1901 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_catpvn_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_catpvn_mg)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, sv2");
    {
	SV *	sv = ST(0)
;
	SV *	sv2 = ST(1)
;
#line 1020 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 1921 "RealPPPort.c"
#line 1023 "RealPPPort.xs"
                str = SvPV(sv2, len);
                sv_catpvn_mg(sv, str, len);
#line 1925 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_catsv_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_catsv_mg)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, sv2");
    {
	SV *	sv = ST(0)
;
	SV *	sv2 = ST(1)
;
#line 1031 "RealPPPort.xs"
                sv_catsv_mg(sv, sv2);
#line 1944 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_setiv_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_setiv_mg)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, iv");
    {
	SV *	sv = ST(0)
;
	IV	iv = (IV)SvIV(ST(1))
;
#line 1038 "RealPPPort.xs"
                sv_setiv_mg(sv, iv);
#line 1963 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_setnv_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_setnv_mg)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, nv");
    {
	SV *	sv = ST(0)
;
	NV        nv = (NV)SvNV(ST(1))
;
#line 1045 "RealPPPort.xs"
                sv_setnv_mg(sv, nv);
#line 1982 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_setpv_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_setpv_mg)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, pv");
    {
	SV *	sv = ST(0)
;
	char *	pv = (char *)SvPV_nolen(ST(1))
;
#line 1052 "RealPPPort.xs"
                sv_setpv_mg(sv, pv);
#line 2001 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_setpvn_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_setpvn_mg)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, sv2");
    {
	SV *	sv = ST(0)
;
	SV *	sv2 = ST(1)
;
#line 1059 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 2021 "RealPPPort.c"
#line 1062 "RealPPPort.xs"
                str = SvPV(sv2, len);
                sv_setpvn_mg(sv, str, len);
#line 2025 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_setsv_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_setsv_mg)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, sv2");
    {
	SV *	sv = ST(0)
;
	SV *	sv2 = ST(1)
;
#line 1070 "RealPPPort.xs"
                sv_setsv_mg(sv, sv2);
#line 2044 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_setuv_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_setuv_mg)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, uv");
    {
	SV *	sv = ST(0)
;
	UV        uv = (UV)SvUV(ST(1))
;
#line 1077 "RealPPPort.xs"
                sv_setuv_mg(sv, uv);
#line 2063 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_usepvn_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_usepvn_mg)
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "sv, sv2");
    {
	SV *	sv = ST(0)
;
	SV *	sv2 = ST(1)
;
#line 1084 "RealPPPort.xs"
                char *str, *copy;
                STRLEN len;
#line 2083 "RealPPPort.c"
#line 1087 "RealPPPort.xs"
                str = SvPV(sv2, len);
                New(42, copy, len+1, char);
                Copy(str, copy, len+1, char);
                sv_usepvn_mg(sv, copy, len);
#line 2089 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_SvVSTRING_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvVSTRING_mg)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
	int	RETVAL;
	dXSTARG;
#line 1096 "RealPPPort.xs"
                RETVAL = SvVSTRING_mg(sv) != NULL;
#line 2108 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_sv_magic_portable); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_magic_portable)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1104 "RealPPPort.xs"
                MAGIC *mg;
                const char *foo = "foo";
#line 2127 "RealPPPort.c"
	int	RETVAL;
	dXSTARG;
#line 1107 "RealPPPort.xs"
#if (PERL_BCDVERSION >= 0x5004000)
                sv_magic_portable(sv, 0, '~', foo, 0);
                mg = mg_find(sv, '~');
                RETVAL = mg->mg_ptr == foo;
#else
                sv_magic(sv, 0, '~', (char *) foo, strlen(foo));
                mg = mg_find(sv, '~');
                RETVAL = strEQ(mg->mg_ptr, foo);
#endif
                sv_unmagic(sv, '~');
#line 2141 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_sv_setuv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_setuv)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "uv");
    {
	UV        uv = (UV)SvUV(ST(0))
;
	SV *	RETVAL;
#line 1128 "RealPPPort.xs"
                RETVAL = newSViv(1);
                sv_setuv(RETVAL, uv);
#line 2161 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_newSVuv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_newSVuv)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "uv");
    {
	UV        uv = (UV)SvUV(ST(0))
;
	SV *	RETVAL;
#line 1137 "RealPPPort.xs"
                RETVAL = newSVuv(uv);
#line 2181 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_sv_2uv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_2uv)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
	UV	RETVAL;
	dXSTARG;
#line 1145 "RealPPPort.xs"
                RETVAL = sv_2uv(sv);
#line 2202 "RealPPPort.c"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvUVx); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvUVx)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
	UV	RETVAL;
	dXSTARG;
#line 1153 "RealPPPort.xs"
                sv--;
                RETVAL = SvUVx(++sv);
#line 2223 "RealPPPort.c"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_XSRETURN_UV); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_XSRETURN_UV)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1161 "RealPPPort.xs"
                XSRETURN_UV(42);
#line 2241 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_PUSHu); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_PUSHu)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1166 "RealPPPort.xs"
                dTARG;
#line 2259 "RealPPPort.c"
#line 1168 "RealPPPort.xs"
                TARG = sv_newmortal();
                EXTEND(SP, 1);
                PUSHu(42);
                XSRETURN(1);
#line 2265 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_XPUSHu); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_XPUSHu)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1176 "RealPPPort.xs"
                dTARG;
#line 2283 "RealPPPort.c"
#line 1178 "RealPPPort.xs"
                TARG = sv_newmortal();
                XPUSHu(43);
                XSRETURN(1);
#line 2288 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_CopSTASHPV); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_CopSTASHPV)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	char *	RETVAL;
	dXSTARG;
#line 1189 "RealPPPort.xs"
                RETVAL = CopSTASHPV(PL_curcop);
#line 2306 "RealPPPort.c"
	sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_CopFILE); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_CopFILE)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	char *	RETVAL;
	dXSTARG;
#line 1196 "RealPPPort.xs"
                RETVAL = CopFILE(PL_curcop);
#line 2324 "RealPPPort.c"
	sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_iv_size); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_iv_size)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	IV	RETVAL;
	dXSTARG;
#line 1207 "RealPPPort.xs"
                RETVAL = IVSIZE == sizeof(IV);
#line 2342 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_uv_size); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_uv_size)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	IV	RETVAL;
	dXSTARG;
#line 1214 "RealPPPort.xs"
                RETVAL = UVSIZE == sizeof(UV);
#line 2360 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_iv_type); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_iv_type)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	IV	RETVAL;
	dXSTARG;
#line 1221 "RealPPPort.xs"
                RETVAL = sizeof(IVTYPE) == sizeof(IV);
#line 2378 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_uv_type); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_uv_type)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	IV	RETVAL;
	dXSTARG;
#line 1228 "RealPPPort.xs"
                RETVAL = sizeof(UVTYPE) == sizeof(UV);
#line 2396 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_exception); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_exception)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "throw_e");
    {
	int	throw_e = (int)SvIV(ST(0))
;
	int	RETVAL;
	dXSTARG;

RETVAL = exception(throw_e);
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_pv_escape_can_unicode); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_pv_escape_can_unicode)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1249 "RealPPPort.xs"
#if defined(is_utf8_string) && defined(utf8_to_uvchr)
                XSRETURN_YES;
#else
                XSRETURN_NO;
#endif
#line 2437 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_pv_pretty); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_pv_pretty)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1258 "RealPPPort.xs"
                char *rv;
#line 2455 "RealPPPort.c"
#line 1260 "RealPPPort.xs"
                EXTEND(SP, 8);
                ST(0) = sv_newmortal();
                rv = pv_pretty(ST(0), "foobarbaz",
                                9, 40, NULL, NULL, 0);
                ST(1) = sv_2mortal(newSVpv(rv, 0));
                ST(2) = sv_newmortal();
                rv = pv_pretty(ST(2), "pv_p\retty\n",
                                10, 40, "left", "right", PERL_PV_PRETTY_LTGT);
                ST(3) = sv_2mortal(newSVpv(rv, 0));
                ST(4) = sv_newmortal();
                rv = pv_pretty(ST(4), "N\303\275 Batter\303\255",
                                12, 20, NULL, NULL, PERL_PV_ESCAPE_UNI_DETECT);
                ST(5) = sv_2mortal(newSVpv(rv, 0));
                ST(6) = sv_newmortal();
                rv = pv_pretty(ST(6), "\303\201g\303\246tis Byrjun",
                                15, 18, NULL, NULL, PERL_PV_ESCAPE_UNI_DETECT|PERL_PV_PRETTY_ELLIPSES);
                ST(7) = sv_2mortal(newSVpv(rv, 0));
                XSRETURN(8);
#line 2475 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_pv_display); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_pv_display)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1282 "RealPPPort.xs"
                char *rv;
#line 2493 "RealPPPort.c"
#line 1284 "RealPPPort.xs"
                EXTEND(SP, 4);
                ST(0) = sv_newmortal();
                rv = pv_display(ST(0), "foob\0rbaz", 9, 10, 20);
                ST(1) = sv_2mortal(newSVpv(rv, 0));
                ST(2) = sv_newmortal();
                rv = pv_display(ST(2), "pv_display", 10, 11, 5);
                ST(3) = sv_2mortal(newSVpv(rv, 0));
                XSRETURN(4);
#line 2503 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_mPUSHs); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_mPUSHs)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1300 "RealPPPort.xs"
        EXTEND(SP, 3);
        mPUSHs(newSVpv("foo", 0));
        mPUSHs(newSVpv("bar13", 3));
        mPUSHs(newSViv(42));
        XSRETURN(3);
#line 2525 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_mPUSHp); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_mPUSHp)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1309 "RealPPPort.xs"
        EXTEND(SP, 3);
        mPUSHp("one", 3);
        mPUSHp("two", 3);
        mPUSHp("three", 5);
        XSRETURN(3);
#line 2547 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_mPUSHn); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_mPUSHn)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1318 "RealPPPort.xs"
        EXTEND(SP, 3);
        mPUSHn(0.5);
        mPUSHn(-0.25);
        mPUSHn(0.125);
        XSRETURN(3);
#line 2569 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_mPUSHi); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_mPUSHi)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1327 "RealPPPort.xs"
        EXTEND(SP, 3);
        mPUSHi(-1);
        mPUSHi(2);
        mPUSHi(-3);
        XSRETURN(3);
#line 2591 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_mPUSHu); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_mPUSHu)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1336 "RealPPPort.xs"
        EXTEND(SP, 3);
        mPUSHu(1);
        mPUSHu(2);
        mPUSHu(3);
        XSRETURN(3);
#line 2613 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_mXPUSHs); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_mXPUSHs)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1345 "RealPPPort.xs"
        mXPUSHs(newSVpv("foo", 0));
        mXPUSHs(newSVpv("bar13", 3));
        mXPUSHs(newSViv(42));
        XSRETURN(3);
#line 2634 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_mXPUSHp); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_mXPUSHp)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1353 "RealPPPort.xs"
        mXPUSHp("one", 3);
        mXPUSHp("two", 3);
        mXPUSHp("three", 5);
        XSRETURN(3);
#line 2655 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_mXPUSHn); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_mXPUSHn)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1361 "RealPPPort.xs"
        mXPUSHn(0.5);
        mXPUSHn(-0.25);
        mXPUSHn(0.125);
        XSRETURN(3);
#line 2676 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_mXPUSHi); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_mXPUSHi)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1369 "RealPPPort.xs"
        mXPUSHi(-1);
        mXPUSHi(2);
        mXPUSHi(-3);
        XSRETURN(3);
#line 2697 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_mXPUSHu); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_mXPUSHu)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1377 "RealPPPort.xs"
        mXPUSHu(1);
        mXPUSHu(2);
        mXPUSHu(3);
        XSRETURN(3);
#line 2718 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_grok_number); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_grok_number)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "string");
    {
	SV *	string = ST(0)
;
#line 1390 "RealPPPort.xs"
                const char *pv;
                STRLEN len;
#line 2737 "RealPPPort.c"
	UV	RETVAL;
	dXSTARG;
#line 1393 "RealPPPort.xs"
                pv = SvPV(string, len);
                if (!grok_number(pv, len, &RETVAL))
                  XSRETURN_UNDEF;
#line 2744 "RealPPPort.c"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_grok_bin); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_grok_bin)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "string");
    {
	SV *	string = ST(0)
;
#line 1403 "RealPPPort.xs"
                char *pv;
                I32 flags;
                STRLEN len;
#line 2764 "RealPPPort.c"
	UV	RETVAL;
	dXSTARG;
#line 1407 "RealPPPort.xs"
                pv = SvPV(string, len);
                RETVAL = grok_bin(pv, &len, &flags, NULL);
#line 2770 "RealPPPort.c"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_grok_hex); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_grok_hex)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "string");
    {
	SV *	string = ST(0)
;
#line 1416 "RealPPPort.xs"
                char *pv;
                I32 flags;
                STRLEN len;
#line 2790 "RealPPPort.c"
	UV	RETVAL;
	dXSTARG;
#line 1420 "RealPPPort.xs"
                pv = SvPV(string, len);
                RETVAL = grok_hex(pv, &len, &flags, NULL);
#line 2796 "RealPPPort.c"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_grok_oct); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_grok_oct)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "string");
    {
	SV *	string = ST(0)
;
#line 1429 "RealPPPort.xs"
                char *pv;
                I32 flags;
                STRLEN len;
#line 2816 "RealPPPort.c"
	UV	RETVAL;
	dXSTARG;
#line 1433 "RealPPPort.xs"
                pv = SvPV(string, len);
                RETVAL = grok_oct(pv, &len, &flags, NULL);
#line 2822 "RealPPPort.c"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_Perl_grok_number); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_Perl_grok_number)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "string");
    {
	SV *	string = ST(0)
;
#line 1442 "RealPPPort.xs"
                const char *pv;
                STRLEN len;
#line 2841 "RealPPPort.c"
	UV	RETVAL;
	dXSTARG;
#line 1445 "RealPPPort.xs"
                pv = SvPV(string, len);
                if (!Perl_grok_number(aTHX_ pv, len, &RETVAL))
                  XSRETURN_UNDEF;
#line 2848 "RealPPPort.c"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_Perl_grok_bin); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_Perl_grok_bin)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "string");
    {
	SV *	string = ST(0)
;
#line 1455 "RealPPPort.xs"
                char *pv;
                I32 flags;
                STRLEN len;
#line 2868 "RealPPPort.c"
	UV	RETVAL;
	dXSTARG;
#line 1459 "RealPPPort.xs"
                pv = SvPV(string, len);
                RETVAL = Perl_grok_bin(aTHX_ pv, &len, &flags, NULL);
#line 2874 "RealPPPort.c"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_Perl_grok_hex); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_Perl_grok_hex)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "string");
    {
	SV *	string = ST(0)
;
#line 1468 "RealPPPort.xs"
                char *pv;
                I32 flags;
                STRLEN len;
#line 2894 "RealPPPort.c"
	UV	RETVAL;
	dXSTARG;
#line 1472 "RealPPPort.xs"
                pv = SvPV(string, len);
                RETVAL = Perl_grok_hex(aTHX_ pv, &len, &flags, NULL);
#line 2900 "RealPPPort.c"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_Perl_grok_oct); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_Perl_grok_oct)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "string");
    {
	SV *	string = ST(0)
;
#line 1481 "RealPPPort.xs"
                char *pv;
                I32 flags;
                STRLEN len;
#line 2920 "RealPPPort.c"
	UV	RETVAL;
	dXSTARG;
#line 1485 "RealPPPort.xs"
                pv = SvPV(string, len);
                RETVAL = Perl_grok_oct(aTHX_ pv, &len, &flags, NULL);
#line 2926 "RealPPPort.c"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_my_strlfunc); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_my_strlfunc)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1497 "RealPPPort.xs"
                char buf[8];
                int len;
#line 2945 "RealPPPort.c"
#line 1500 "RealPPPort.xs"
                len = my_strlcpy(buf, "foo", sizeof(buf));
                mXPUSHi(len);
                mXPUSHs(newSVpv(buf, 0));
                len = my_strlcat(buf, "bar", sizeof(buf));
                mXPUSHi(len);
                mXPUSHs(newSVpv(buf, 0));
                len = my_strlcat(buf, "baz", sizeof(buf));
                mXPUSHi(len);
                mXPUSHs(newSVpv(buf, 0));
                len = my_strlcpy(buf, "1234567890", sizeof(buf));
                mXPUSHi(len);
                mXPUSHs(newSVpv(buf, 0));
                len = my_strlcpy(buf, "1234", sizeof(buf));
                mXPUSHi(len);
                mXPUSHs(newSVpv(buf, 0));
                len = my_strlcat(buf, "567890123456", sizeof(buf));
                mXPUSHi(len);
                mXPUSHs(newSVpv(buf, 0));
                XSRETURN(12);
#line 2966 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_compare_PL_signals); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_compare_PL_signals)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	int	RETVAL;
	dXSTARG;
#line 1527 "RealPPPort.xs"
                {
                  U32 ref = get_PL_signals_1();
                  RETVAL = ref == get_PL_signals_2() && ref == get_PL_signals_3();
                }
#line 2987 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_PL_sv_undef); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_PL_sv_undef)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 1537 "RealPPPort.xs"
                RETVAL = newSVsv(&PL_sv_undef);
#line 3004 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_PL_sv_yes); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_PL_sv_yes)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 1544 "RealPPPort.xs"
                RETVAL = newSVsv(&PL_sv_yes);
#line 3022 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_PL_sv_no); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_PL_sv_no)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 1551 "RealPPPort.xs"
                RETVAL = newSVsv(&PL_sv_no);
#line 3040 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_PL_na); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_PL_na)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "string");
    {
	char *	string = (char *)SvPV_nolen(ST(0))
;
	int	RETVAL;
	dXSTARG;
#line 1559 "RealPPPort.xs"
                PL_na = strlen(string);
                RETVAL = PL_na;
#line 3062 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_PL_Sv); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_PL_Sv)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 1567 "RealPPPort.xs"
                PL_Sv = newSVpv("mhx", 0);
                RETVAL = PL_Sv;
#line 3080 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_PL_tokenbuf); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_PL_tokenbuf)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 1575 "RealPPPort.xs"
                RETVAL = newSViv(PL_tokenbuf[0]);
#line 3098 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_PL_parser); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_PL_parser)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 1582 "RealPPPort.xs"
                RETVAL = newSViv(PL_parser != NULL);
#line 3116 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_PL_hexdigit); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_PL_hexdigit)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 1589 "RealPPPort.xs"
                RETVAL = newSVpv((char *) PL_hexdigit, 0);
#line 3134 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_PL_hints); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_PL_hints)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 1596 "RealPPPort.xs"
                RETVAL = newSViv((IV) PL_hints);
#line 3152 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_PL_ppaddr); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_PL_ppaddr)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "string");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	char *	string = (char *)SvPV_nolen(ST(0))
;
#line 1604 "RealPPPort.xs"
                PUSHMARK(SP);
                mXPUSHs(newSVpv(string, 0));
                PUTBACK;
                ENTER;
                (void)*(PL_ppaddr[OP_UC])(aTHXR);
                SPAGAIN;
                LEAVE;
                XSRETURN(1);
#line 3180 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_other_variables); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_other_variables)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1616 "RealPPPort.xs"
                int count = 0;
#line 3198 "RealPPPort.c"
#line 1618 "RealPPPort.xs"
                ppp_TESTVAR(PL_DBsignal);
                ppp_TESTVAR(PL_DBsingle);
                ppp_TESTVAR(PL_DBsub);
                ppp_TESTVAR(PL_DBtrace);
                ppp_TESTVAR(PL_compiling);
                ppp_TESTVAR(PL_curcop);
                ppp_TESTVAR(PL_curstash);
                ppp_TESTVAR(PL_debstash);
                ppp_TESTVAR(PL_defgv);
                ppp_TESTVAR(PL_diehook);
#if (PERL_BCDVERSION >= 0x5013007)
                /* can't get a pointer any longer */
                mXPUSHi(PL_dirty ? 1 : 1);
                count++;
#else
                ppp_TESTVAR(PL_dirty);
#endif
                ppp_TESTVAR(PL_dowarn);
                ppp_TESTVAR(PL_errgv);
                ppp_TESTVAR(PL_laststatval);
                ppp_TESTVAR(PL_no_modify);
                ppp_TESTVAR(PL_perl_destruct_level);
                ppp_TESTVAR(PL_perldb);
                ppp_TESTVAR(PL_stack_base);
                ppp_TESTVAR(PL_stack_sp);
                ppp_TESTVAR(PL_statcache);
                ppp_TESTVAR(PL_stdingv);
                ppp_TESTVAR(PL_sv_arenaroot);
                ppp_TESTVAR(PL_tainted);
                ppp_TESTVAR(PL_tainting);

ppp_PARSERVAR(ppp_expect_t, PL_expect);
                ppp_PARSERVAR(line_t, PL_copline);
                ppp_PARSERVAR(ppp_rsfp_t, PL_rsfp);
                ppp_PARSERVAR(AV *, PL_rsfp_filters);
                ppp_PARSERVAR(SV *, PL_linestr);
                ppp_PARSERVAR(char *, PL_bufptr);
                ppp_PARSERVAR(char *, PL_bufend);
                ppp_PARSERVAR(ppp_lex_state_t, PL_lex_state);
                ppp_PARSERVAR(SV *, PL_lex_stuff);
                ppp_PARSERVAR(ppp_error_count_t, PL_error_count);
                ppp_PARSERVAR(ppp_in_my_t, PL_in_my);
#if (PERL_BCDVERSION >= 0x5005000)
                ppp_PARSERVAR(HV*, PL_in_my_stash);
#else
                ppp_PARSERVAR_dummy;
#endif
                XSRETURN(count);
#line 3248 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_no_dummy_parser_vars); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_no_dummy_parser_vars)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "check");
    {
	int	check = (int)SvIV(ST(0))
;
	int	RETVAL;
	dXSTARG;

RETVAL = no_dummy_parser_vars(check);
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_dummy_parser_warning); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_dummy_parser_warning)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	int	RETVAL;
	dXSTARG;

RETVAL = dummy_parser_warning();
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_vnewSVpvf); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_vnewSVpvf)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	SV *	RETVAL;
#line 1681 "RealPPPort.xs"
                RETVAL = test_vnewSVpvf(aTHX_ "%s-%d", "Perl", 42);
#line 3301 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_sv_vcatpvf); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_vcatpvf)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
	SV *	RETVAL;
#line 1689 "RealPPPort.xs"
                RETVAL = newSVsv(sv);
                test_sv_vcatpvf(aTHX_ RETVAL, "%s-%d", "Perl", 42);
#line 3322 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_sv_vsetpvf); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_vsetpvf)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
	SV *	RETVAL;
#line 1698 "RealPPPort.xs"
                RETVAL = newSVsv(sv);
                test_sv_vsetpvf(aTHX_ RETVAL, "%s-%d", "Perl", 42);
#line 3343 "RealPPPort.c"
	ST(0) = RETVAL;
	sv_2mortal(ST(0));
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_sv_catpvf_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_catpvf_mg)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1707 "RealPPPort.xs"
#if (PERL_BCDVERSION >= 0x5004000)
                sv_catpvf_mg(sv, "%s-%d", "Perl", 42);
#endif
#line 3364 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_Perl_sv_catpvf_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_Perl_sv_catpvf_mg)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1715 "RealPPPort.xs"
#if (PERL_BCDVERSION >= 0x5004000)
                Perl_sv_catpvf_mg(aTHX_ sv, "%s-%d", "-Perl", 43);
#endif
#line 3383 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_catpvf_mg_nocontext); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_catpvf_mg_nocontext)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1723 "RealPPPort.xs"
#if (PERL_BCDVERSION >= 0x5004000)
#ifdef PERL_IMPLICIT_CONTEXT
                sv_catpvf_mg_nocontext(sv, "%s-%d", "-Perl", 44);
#else
                sv_catpvf_mg(sv, "%s-%d", "-Perl", 44);
#endif
#endif
#line 3406 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_setpvf_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_setpvf_mg)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1735 "RealPPPort.xs"
#if (PERL_BCDVERSION >= 0x5004000)
                sv_setpvf_mg(sv, "%s-%d", "mhx", 42);
#endif
#line 3425 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_Perl_sv_setpvf_mg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_Perl_sv_setpvf_mg)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1743 "RealPPPort.xs"
#if (PERL_BCDVERSION >= 0x5004000)
                Perl_sv_setpvf_mg(aTHX_ sv, "%s-%d", "foo", 43);
#endif
#line 3444 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_sv_setpvf_mg_nocontext); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_sv_setpvf_mg_nocontext)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1751 "RealPPPort.xs"
#if (PERL_BCDVERSION >= 0x5004000)
#ifdef PERL_IMPLICIT_CONTEXT
                sv_setpvf_mg_nocontext(sv, "%s-%d", "bar", 44);
#else
                sv_setpvf_mg(sv, "%s-%d", "bar", 44);
#endif
#endif
#line 3467 "RealPPPort.c"
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_no_THX_arg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_no_THX_arg)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
	IV	RETVAL;
	dXSTARG;
#line 1767 "RealPPPort.xs"
                RETVAL = 1 + sv_2iv(sv);
#line 3486 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_with_THX_arg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_with_THX_arg)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "error");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	char *	error = (char *)SvPV_nolen(ST(0))
;
#line 1775 "RealPPPort.xs"
                Perl_croak(aTHX_ "%s", error);
#line 3506 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_SvREFCNT); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvREFCNT)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1784 "RealPPPort.xs"
                SV *sv, *svr;
#line 3524 "RealPPPort.c"
#line 1786 "RealPPPort.xs"
                sv = newSV(0);
                mXPUSHi(SvREFCNT(sv) == 1);
                svr = SvREFCNT_inc(sv);
                mXPUSHi(sv == svr);
                mXPUSHi(SvREFCNT(sv) == 2);
                svr = SvREFCNT_inc_simple(sv);
                mXPUSHi(sv == svr);
                mXPUSHi(SvREFCNT(sv) == 3);
                svr = SvREFCNT_inc_NN(sv);
                mXPUSHi(sv == svr);
                mXPUSHi(SvREFCNT(sv) == 4);
                svr = SvREFCNT_inc_simple_NN(sv);
                mXPUSHi(sv == svr);
                mXPUSHi(SvREFCNT(sv) == 5);
                SvREFCNT_inc_void(sv);
                mXPUSHi(SvREFCNT(sv) == 6);
                SvREFCNT_inc_simple_void(sv);
                mXPUSHi(SvREFCNT(sv) == 7);
                SvREFCNT_inc_void_NN(sv);
                mXPUSHi(SvREFCNT(sv) == 8);
                SvREFCNT_inc_simple_void_NN(sv);
                mXPUSHi(SvREFCNT(sv) == 9);
                while (SvREFCNT(sv) > 1)
                  SvREFCNT_dec(sv);
                mXPUSHi(SvREFCNT(sv) == 1);
                SvREFCNT_dec(sv);
                XSRETURN(14);
#line 3553 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_my_sprintf); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_my_sprintf)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 1821 "RealPPPort.xs"
                char buf[128];
                int len;
#line 3572 "RealPPPort.c"
#line 1824 "RealPPPort.xs"
                len = my_sprintf(buf, "foo%s%d", "bar", 42);
                mXPUSHi(len);
                mXPUSHs(newSVpv(buf, 0));
                XSRETURN(2);
#line 3578 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_call_newCONSTSUB_1); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_call_newCONSTSUB_1)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {

call_newCONSTSUB_1();
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_call_newCONSTSUB_2); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_call_newCONSTSUB_2)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {

call_newCONSTSUB_2();
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_call_newCONSTSUB_3); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_call_newCONSTSUB_3)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {

call_newCONSTSUB_3();
    }
    XSRETURN_EMPTY;
}

XS_EUPXS(XS_Devel__PPPort_croak_NVgf); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_croak_NVgf)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "num");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	NV        num = (NV)SvNV(ST(0))
;
#line 1850 "RealPPPort.xs"
                Perl_croak(aTHX_ "%.20" NVgf "\n", num);
#line 3640 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_newSVpvn_share); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_newSVpvn_share)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
#line 1859 "RealPPPort.xs"
                const char *s;
                SV *sv;
                STRLEN len;
                U32 hash;
#line 3659 "RealPPPort.c"
	int	RETVAL;
	dXSTARG;
#line 1864 "RealPPPort.xs"
                RETVAL = 0;
                s = "mhx";
                len = 3;
                PERL_HASH(hash, (char *) s, len);
                sv = newSVpvn_share(s, len, 0);
                s = 0;
                RETVAL += strEQ(SvPV_nolen_const(sv), "mhx");
                RETVAL += SvCUR(sv) == len;
                RETVAL += SvSHARED_HASH(sv) == hash;
                SvREFCNT_dec(sv);
                s = "foobar";
                len = 6;
                PERL_HASH(hash, (char *) s, len);
                sv = newSVpvn_share(s, -(I32) len, hash);
                s = 0;
                RETVAL += strEQ(SvPV_nolen_const(sv), "foobar");
                RETVAL += SvCUR(sv) == len;
                RETVAL += SvSHARED_HASH(sv) == hash;
                SvREFCNT_dec(sv);
#line 3682 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPVbyte); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPVbyte)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1894 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 3701 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 1897 "RealPPPort.xs"
                str = SvPVbyte(sv, len);
                RETVAL = strEQ(str, "mhx") ? (IV) len : (IV) -1;
#line 3707 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_nolen); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_nolen)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1906 "RealPPPort.xs"
                char *str;
#line 3725 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 1908 "RealPPPort.xs"
                str = SvPV_nolen(sv);
                RETVAL = strEQ(str, "mhx") ? 42 : 0;
#line 3731 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_const); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_const)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1917 "RealPPPort.xs"
                const char *str;
                STRLEN len;
#line 3750 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 1920 "RealPPPort.xs"
                str = SvPV_const(sv, len);
                RETVAL = len + (strEQ(str, "mhx") ? 40 : 0);
#line 3756 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_mutable); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_mutable)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1929 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 3775 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 1932 "RealPPPort.xs"
                str = SvPV_mutable(sv, len);
                RETVAL = len + (strEQ(str, "mhx") ? 41 : 0);
#line 3781 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_flags); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_flags)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1941 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 3800 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 1944 "RealPPPort.xs"
                str = SvPV_flags(sv, len, SV_GMAGIC);
                RETVAL = len + (strEQ(str, "mhx") ? 42 : 0);
#line 3806 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_flags_const); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_flags_const)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1953 "RealPPPort.xs"
                const char *str;
                STRLEN len;
#line 3825 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 1956 "RealPPPort.xs"
                str = SvPV_flags_const(sv, len, SV_GMAGIC);
                RETVAL = len + (strEQ(str, "mhx") ? 43 : 0);
#line 3831 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_flags_const_nolen); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_flags_const_nolen)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1965 "RealPPPort.xs"
                const char *str;
#line 3849 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 1967 "RealPPPort.xs"
                str = SvPV_flags_const_nolen(sv, SV_GMAGIC);
                RETVAL = strEQ(str, "mhx") ? 47 : 0;
#line 3855 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_flags_mutable); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_flags_mutable)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1976 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 3874 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 1979 "RealPPPort.xs"
                str = SvPV_flags_mutable(sv, len, SV_GMAGIC);
                RETVAL = len + (strEQ(str, "mhx") ? 45 : 0);
#line 3880 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_force); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_force)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 1988 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 3899 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 1991 "RealPPPort.xs"
                str = SvPV_force(sv, len);
                RETVAL = len + (strEQ(str, "mhx") ? 46 : 0);
#line 3905 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_force_nolen); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_force_nolen)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 2000 "RealPPPort.xs"
                char *str;
#line 3923 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 2002 "RealPPPort.xs"
                str = SvPV_force_nolen(sv);
                RETVAL = strEQ(str, "mhx") ? 50 : 0;
#line 3929 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_force_mutable); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_force_mutable)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 2011 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 3948 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 2014 "RealPPPort.xs"
                str = SvPV_force_mutable(sv, len);
                RETVAL = len + (strEQ(str, "mhx") ? 48 : 0);
#line 3954 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_force_nomg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_force_nomg)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 2023 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 3973 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 2026 "RealPPPort.xs"
                str = SvPV_force_nomg(sv, len);
                RETVAL = len + (strEQ(str, "mhx") ? 49 : 0);
#line 3979 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_force_nomg_nolen); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_force_nomg_nolen)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 2035 "RealPPPort.xs"
                char *str;
#line 3997 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 2037 "RealPPPort.xs"
                str = SvPV_force_nomg_nolen(sv);
                RETVAL = strEQ(str, "mhx") ? 53 : 0;
#line 4003 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_force_flags); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_force_flags)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 2046 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 4022 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 2049 "RealPPPort.xs"
                str = SvPV_force_flags(sv, len, SV_GMAGIC);
                RETVAL = len + (strEQ(str, "mhx") ? 51 : 0);
#line 4028 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_force_flags_nolen); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_force_flags_nolen)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 2058 "RealPPPort.xs"
                char *str;
#line 4046 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 2060 "RealPPPort.xs"
                str = SvPV_force_flags_nolen(sv, SV_GMAGIC);
                RETVAL = strEQ(str, "mhx") ? 55 : 0;
#line 4052 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_force_flags_mutable); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_force_flags_mutable)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 2069 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 4071 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 2072 "RealPPPort.xs"
                str = SvPV_force_flags_mutable(sv, len, SV_GMAGIC);
                RETVAL = len + (strEQ(str, "mhx") ? 53 : 0);
#line 4077 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_nolen_const); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_nolen_const)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 2081 "RealPPPort.xs"
                const char *str;
#line 4095 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 2083 "RealPPPort.xs"
                str = SvPV_nolen_const(sv);
                RETVAL = strEQ(str, "mhx") ? 57 : 0;
#line 4101 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_nomg); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_nomg)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 2092 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 4120 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 2095 "RealPPPort.xs"
                str = SvPV_nomg(sv, len);
                RETVAL = len + (strEQ(str, "mhx") ? 55 : 0);
#line 4126 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_nomg_const); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_nomg_const)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 2104 "RealPPPort.xs"
                const char *str;
                STRLEN len;
#line 4145 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 2107 "RealPPPort.xs"
                str = SvPV_nomg_const(sv, len);
                RETVAL = len + (strEQ(str, "mhx") ? 56 : 0);
#line 4151 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_nomg_const_nolen); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_nomg_const_nolen)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 2116 "RealPPPort.xs"
                const char *str;
#line 4169 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 2118 "RealPPPort.xs"
                str = SvPV_nomg_const_nolen(sv);
                RETVAL = strEQ(str, "mhx") ? 60 : 0;
#line 4175 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_nomg_nolen); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_nomg_nolen)
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "sv");
    {
	SV *	sv = ST(0)
;
#line 2127 "RealPPPort.xs"
                char *str;
                STRLEN len;
#line 4194 "RealPPPort.c"
	IV	RETVAL;
	dXSTARG;
#line 2130 "RealPPPort.xs"
                str = SvPV_nomg_nolen(sv);
                RETVAL = strEQ(str, "mhx") ? 61 : 0;
#line 4200 "RealPPPort.c"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}

XS_EUPXS(XS_Devel__PPPort_SvPV_renew); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_SvPV_renew)
{
    dVAR; dXSARGS;
    if (items != 3)
       croak_xs_usage(cv,  "sv, nlen, insv");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	SV *	sv = ST(0)
;
	IV	nlen = (IV)SvIV(ST(1))
;
	SV *	insv = ST(2)
;
#line 2141 "RealPPPort.xs"
                STRLEN slen;
                const char *str;
#line 4225 "RealPPPort.c"
#line 2144 "RealPPPort.xs"
                str = SvPV_const(insv, slen);
                XPUSHs(sv);
                mXPUSHi(SvLEN(sv));
                SvPV_renew(sv, nlen);
                Copy(str, SvPVX(sv), slen + 1, char);
                SvCUR_set(sv, slen);
                mXPUSHi(SvLEN(sv));
#line 4234 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

XS_EUPXS(XS_Devel__PPPort_my_snprintf); /* prototype to pass -Wmissing-prototypes */
XS_EUPXS(XS_Devel__PPPort_my_snprintf)
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 2159 "RealPPPort.xs"
                char buf[128];
                int len;
#line 4253 "RealPPPort.c"
#line 2162 "RealPPPort.xs"
                len = my_snprintf(buf, sizeof buf, "foo%s%d", "bar", 42);
                mXPUSHi(len);
                mXPUSHs(newSVpv(buf, 0));
                XSRETURN(2);
#line 4259 "RealPPPort.c"
	PUTBACK;
	return;
    }
}

#ifdef __cplusplus
extern "C"
#endif
XS_EXTERNAL(boot_Devel__PPPort); /* prototype to pass -Wmissing-prototypes */
XS_EXTERNAL(boot_Devel__PPPort)
{
    dVAR; dXSARGS;
#if (PERL_REVISION == 5 && PERL_VERSION < 9)
    char* file = __FILE__;
#else
    const char* file = __FILE__;
#endif

PERL_UNUSED_VAR(cv); /* -W */
    PERL_UNUSED_VAR(items); /* -W */
#ifdef XS_APIVERSION_BOOTCHECK
    XS_APIVERSION_BOOTCHECK;
#endif
    XS_VERSION_BOOTCHECK;

newXS("Devel::PPPort::ptrtests", XS_Devel__PPPort_ptrtests, file);
        newXS("Devel::PPPort::gv_stashpvn", XS_Devel__PPPort_gv_stashpvn, file);
        newXS("Devel::PPPort::get_sv", XS_Devel__PPPort_get_sv, file);
        newXS("Devel::PPPort::get_av", XS_Devel__PPPort_get_av, file);
        newXS("Devel::PPPort::get_hv", XS_Devel__PPPort_get_hv, file);
        newXS("Devel::PPPort::get_cv", XS_Devel__PPPort_get_cv, file);
        newXS("Devel::PPPort::xsreturn", XS_Devel__PPPort_xsreturn, file);
        newXS("Devel::PPPort::boolSV", XS_Devel__PPPort_boolSV, file);
        newXS("Devel::PPPort::DEFSV", XS_Devel__PPPort_DEFSV, file);
        newXS("Devel::PPPort::DEFSV_modify", XS_Devel__PPPort_DEFSV_modify, file);
        newXS("Devel::PPPort::ERRSV", XS_Devel__PPPort_ERRSV, file);
        newXS("Devel::PPPort::UNDERBAR", XS_Devel__PPPort_UNDERBAR, file);
        newXS("Devel::PPPort::prepush", XS_Devel__PPPort_prepush, file);
        newXS("Devel::PPPort::PERL_ABS", XS_Devel__PPPort_PERL_ABS, file);
        newXS("Devel::PPPort::SVf", XS_Devel__PPPort_SVf, file);
        newXS("Devel::PPPort::Perl_ppaddr_t", XS_Devel__PPPort_Perl_ppaddr_t, file);
        newXS("Devel::PPPort::GvSVn", XS_Devel__PPPort_GvSVn, file);
        newXS("Devel::PPPort::isGV_with_GP", XS_Devel__PPPort_isGV_with_GP, file);
        newXS("Devel::PPPort::get_cvn_flags", XS_Devel__PPPort_get_cvn_flags, file);
        newXS("Devel::PPPort::gv_fetchpvn_flags", XS_Devel__PPPort_gv_fetchpvn_flags, file);
        newXS("Devel::PPPort::gv_fetchsv", XS_Devel__PPPort_gv_fetchsv, file);
        newXS("Devel::PPPort::newSV_type", XS_Devel__PPPort_newSV_type, file);
        newXS("Devel::PPPort::MY_CXT_1", XS_Devel__PPPort_MY_CXT_1, file);
        newXS("Devel::PPPort::MY_CXT_2", XS_Devel__PPPort_MY_CXT_2, file);
        newXS("Devel::PPPort::MY_CXT_CLONE", XS_Devel__PPPort_MY_CXT_CLONE, file);
        newXS("Devel::PPPort::newSVpvn", XS_Devel__PPPort_newSVpvn, file);
        newXS("Devel::PPPort::newSVpvn_flags", XS_Devel__PPPort_newSVpvn_flags, file);
        newXS("Devel::PPPort::newSVpvn_utf8", XS_Devel__PPPort_newSVpvn_utf8, file);
        newXS("Devel::PPPort::warner", XS_Devel__PPPort_warner, file);
        newXS("Devel::PPPort::Perl_warner", XS_Devel__PPPort_Perl_warner, file);
        newXS("Devel::PPPort::Perl_warner_nocontext", XS_Devel__PPPort_Perl_warner_nocontext, file);
        newXS("Devel::PPPort::ckWARN", XS_Devel__PPPort_ckWARN, file);
        newXS("Devel::PPPort::TestSvUV_set", XS_Devel__PPPort_TestSvUV_set, file);
        newXS("Devel::PPPort::TestSvPVX_const", XS_Devel__PPPort_TestSvPVX_const, file);
        newXS("Devel::PPPort::TestSvPVX_mutable", XS_Devel__PPPort_TestSvPVX_mutable, file);
        newXS("Devel::PPPort::TestSvSTASH_set", XS_Devel__PPPort_TestSvSTASH_set, file);
        newXS("Devel::PPPort::HvNAME_get", XS_Devel__PPPort_HvNAME_get, file);
        newXS("Devel::PPPort::HvNAMELEN_get", XS_Devel__PPPort_HvNAMELEN_get, file);
        newXS("Devel::PPPort::checkmem", XS_Devel__PPPort_checkmem, file);
        newXS("Devel::PPPort::newSVpvs", XS_Devel__PPPort_newSVpvs, file);
        newXS("Devel::PPPort::newSVpvs_flags", XS_Devel__PPPort_newSVpvs_flags, file);
        newXS("Devel::PPPort::newSVpvs_share", XS_Devel__PPPort_newSVpvs_share, file);
        newXS("Devel::PPPort::sv_catpvs", XS_Devel__PPPort_sv_catpvs, file);
        newXS("Devel::PPPort::sv_setpvs", XS_Devel__PPPort_sv_setpvs, file);
        newXS("Devel::PPPort::hv_fetchs", XS_Devel__PPPort_hv_fetchs, file);
        newXS("Devel::PPPort::hv_stores", XS_Devel__PPPort_hv_stores, file);
        newXS("Devel::PPPort::gv_fetchpvs", XS_Devel__PPPort_gv_fetchpvs, file);
        newXS("Devel::PPPort::gv_stashpvs", XS_Devel__PPPort_gv_stashpvs, file);
        newXS("Devel::PPPort::get_cvs", XS_Devel__PPPort_get_cvs, file);
        newXS("Devel::PPPort::newRV_inc_REFCNT", XS_Devel__PPPort_newRV_inc_REFCNT, file);
        newXS("Devel::PPPort::newRV_noinc_REFCNT", XS_Devel__PPPort_newRV_noinc_REFCNT, file);
        newXS("Devel::PPPort::G_SCALAR", XS_Devel__PPPort_G_SCALAR, file);
        newXS("Devel::PPPort::G_ARRAY", XS_Devel__PPPort_G_ARRAY, file);
        newXS("Devel::PPPort::G_DISCARD", XS_Devel__PPPort_G_DISCARD, file);
        newXS("Devel::PPPort::eval_sv", XS_Devel__PPPort_eval_sv, file);
        newXS("Devel::PPPort::eval_pv", XS_Devel__PPPort_eval_pv, file);
        newXS("Devel::PPPort::call_sv", XS_Devel__PPPort_call_sv, file);
        newXS("Devel::PPPort::call_pv", XS_Devel__PPPort_call_pv, file);
        newXS("Devel::PPPort::call_argv", XS_Devel__PPPort_call_argv, file);
        newXS("Devel::PPPort::call_method", XS_Devel__PPPort_call_method, file);
        newXS("Devel::PPPort::call_sv_G_METHOD", XS_Devel__PPPort_call_sv_G_METHOD, file);
        newXS("Devel::PPPort::load_module", XS_Devel__PPPort_load_module, file);
        newXS("Devel::PPPort::sv_catpv_mg", XS_Devel__PPPort_sv_catpv_mg, file);
        newXS("Devel::PPPort::sv_catpvn_mg", XS_Devel__PPPort_sv_catpvn_mg, file);
        newXS("Devel::PPPort::sv_catsv_mg", XS_Devel__PPPort_sv_catsv_mg, file);
        newXS("Devel::PPPort::sv_setiv_mg", XS_Devel__PPPort_sv_setiv_mg, file);
        newXS("Devel::PPPort::sv_setnv_mg", XS_Devel__PPPort_sv_setnv_mg, file);
        newXS("Devel::PPPort::sv_setpv_mg", XS_Devel__PPPort_sv_setpv_mg, file);
        newXS("Devel::PPPort::sv_setpvn_mg", XS_Devel__PPPort_sv_setpvn_mg, file);
        newXS("Devel::PPPort::sv_setsv_mg", XS_Devel__PPPort_sv_setsv_mg, file);
        newXS("Devel::PPPort::sv_setuv_mg", XS_Devel__PPPort_sv_setuv_mg, file);
        newXS("Devel::PPPort::sv_usepvn_mg", XS_Devel__PPPort_sv_usepvn_mg, file);
        newXS("Devel::PPPort::SvVSTRING_mg", XS_Devel__PPPort_SvVSTRING_mg, file);
        newXS("Devel::PPPort::sv_magic_portable", XS_Devel__PPPort_sv_magic_portable, file);
        newXS("Devel::PPPort::sv_setuv", XS_Devel__PPPort_sv_setuv, file);
        newXS("Devel::PPPort::newSVuv", XS_Devel__PPPort_newSVuv, file);
        newXS("Devel::PPPort::sv_2uv", XS_Devel__PPPort_sv_2uv, file);
        newXS("Devel::PPPort::SvUVx", XS_Devel__PPPort_SvUVx, file);
        newXS("Devel::PPPort::XSRETURN_UV", XS_Devel__PPPort_XSRETURN_UV, file);
        newXS("Devel::PPPort::PUSHu", XS_Devel__PPPort_PUSHu, file);
        newXS("Devel::PPPort::XPUSHu", XS_Devel__PPPort_XPUSHu, file);
        newXS("Devel::PPPort::CopSTASHPV", XS_Devel__PPPort_CopSTASHPV, file);
        newXS("Devel::PPPort::CopFILE", XS_Devel__PPPort_CopFILE, file);
        newXS("Devel::PPPort::iv_size", XS_Devel__PPPort_iv_size, file);
        newXS("Devel::PPPort::uv_size", XS_Devel__PPPort_uv_size, file);
        newXS("Devel::PPPort::iv_type", XS_Devel__PPPort_iv_type, file);
        newXS("Devel::PPPort::uv_type", XS_Devel__PPPort_uv_type, file);
        newXS("Devel::PPPort::exception", XS_Devel__PPPort_exception, file);
        newXS("Devel::PPPort::pv_escape_can_unicode", XS_Devel__PPPort_pv_escape_can_unicode, file);
        newXS("Devel::PPPort::pv_pretty", XS_Devel__PPPort_pv_pretty, file);
        newXS("Devel::PPPort::pv_display", XS_Devel__PPPort_pv_display, file);
        newXS("Devel::PPPort::mPUSHs", XS_Devel__PPPort_mPUSHs, file);
        newXS("Devel::PPPort::mPUSHp", XS_Devel__PPPort_mPUSHp, file);
        newXS("Devel::PPPort::mPUSHn", XS_Devel__PPPort_mPUSHn, file);
        newXS("Devel::PPPort::mPUSHi", XS_Devel__PPPort_mPUSHi, file);
        newXS("Devel::PPPort::mPUSHu", XS_Devel__PPPort_mPUSHu, file);
        newXS("Devel::PPPort::mXPUSHs", XS_Devel__PPPort_mXPUSHs, file);
        newXS("Devel::PPPort::mXPUSHp", XS_Devel__PPPort_mXPUSHp, file);
        newXS("Devel::PPPort::mXPUSHn", XS_Devel__PPPort_mXPUSHn, file);
        newXS("Devel::PPPort::mXPUSHi", XS_Devel__PPPort_mXPUSHi, file);
        newXS("Devel::PPPort::mXPUSHu", XS_Devel__PPPort_mXPUSHu, file);
        newXS("Devel::PPPort::grok_number", XS_Devel__PPPort_grok_number, file);
        newXS("Devel::PPPort::grok_bin", XS_Devel__PPPort_grok_bin, file);
        newXS("Devel::PPPort::grok_hex", XS_Devel__PPPort_grok_hex, file);
        newXS("Devel::PPPort::grok_oct", XS_Devel__PPPort_grok_oct, file);
        newXS("Devel::PPPort::Perl_grok_number", XS_Devel__PPPort_Perl_grok_number, file);
        newXS("Devel::PPPort::Perl_grok_bin", XS_Devel__PPPort_Perl_grok_bin, file);
        newXS("Devel::PPPort::Perl_grok_hex", XS_Devel__PPPort_Perl_grok_hex, file);
        newXS("Devel::PPPort::Perl_grok_oct", XS_Devel__PPPort_Perl_grok_oct, file);
        newXS("Devel::PPPort::my_strlfunc", XS_Devel__PPPort_my_strlfunc, file);
        newXS("Devel::PPPort::compare_PL_signals", XS_Devel__PPPort_compare_PL_signals, file);
        newXS("Devel::PPPort::PL_sv_undef", XS_Devel__PPPort_PL_sv_undef, file);
        newXS("Devel::PPPort::PL_sv_yes", XS_Devel__PPPort_PL_sv_yes, file);
        newXS("Devel::PPPort::PL_sv_no", XS_Devel__PPPort_PL_sv_no, file);
        newXS("Devel::PPPort::PL_na", XS_Devel__PPPort_PL_na, file);
        newXS("Devel::PPPort::PL_Sv", XS_Devel__PPPort_PL_Sv, file);
        newXS("Devel::PPPort::PL_tokenbuf", XS_Devel__PPPort_PL_tokenbuf, file);
        newXS("Devel::PPPort::PL_parser", XS_Devel__PPPort_PL_parser, file);
        newXS("Devel::PPPort::PL_hexdigit", XS_Devel__PPPort_PL_hexdigit, file);
        newXS("Devel::PPPort::PL_hints", XS_Devel__PPPort_PL_hints, file);
        newXS("Devel::PPPort::PL_ppaddr", XS_Devel__PPPort_PL_ppaddr, file);
        newXS("Devel::PPPort::other_variables", XS_Devel__PPPort_other_variables, file);
        newXS("Devel::PPPort::no_dummy_parser_vars", XS_Devel__PPPort_no_dummy_parser_vars, file);
        newXS("Devel::PPPort::dummy_parser_warning", XS_Devel__PPPort_dummy_parser_warning, file);
        newXS("Devel::PPPort::vnewSVpvf", XS_Devel__PPPort_vnewSVpvf, file);
        newXS("Devel::PPPort::sv_vcatpvf", XS_Devel__PPPort_sv_vcatpvf, file);
        newXS("Devel::PPPort::sv_vsetpvf", XS_Devel__PPPort_sv_vsetpvf, file);
        newXS("Devel::PPPort::sv_catpvf_mg", XS_Devel__PPPort_sv_catpvf_mg, file);
        newXS("Devel::PPPort::Perl_sv_catpvf_mg", XS_Devel__PPPort_Perl_sv_catpvf_mg, file);
        newXS("Devel::PPPort::sv_catpvf_mg_nocontext", XS_Devel__PPPort_sv_catpvf_mg_nocontext, file);
        newXS("Devel::PPPort::sv_setpvf_mg", XS_Devel__PPPort_sv_setpvf_mg, file);
        newXS("Devel::PPPort::Perl_sv_setpvf_mg", XS_Devel__PPPort_Perl_sv_setpvf_mg, file);
        newXS("Devel::PPPort::sv_setpvf_mg_nocontext", XS_Devel__PPPort_sv_setpvf_mg_nocontext, file);
        newXS("Devel::PPPort::no_THX_arg", XS_Devel__PPPort_no_THX_arg, file);
        newXS("Devel::PPPort::with_THX_arg", XS_Devel__PPPort_with_THX_arg, file);
        newXS("Devel::PPPort::SvREFCNT", XS_Devel__PPPort_SvREFCNT, file);
        newXS("Devel::PPPort::my_sprintf", XS_Devel__PPPort_my_sprintf, file);
        newXS("Devel::PPPort::call_newCONSTSUB_1", XS_Devel__PPPort_call_newCONSTSUB_1, file);
        newXS("Devel::PPPort::call_newCONSTSUB_2", XS_Devel__PPPort_call_newCONSTSUB_2, file);
        newXS("Devel::PPPort::call_newCONSTSUB_3", XS_Devel__PPPort_call_newCONSTSUB_3, file);
        newXS("Devel::PPPort::croak_NVgf", XS_Devel__PPPort_croak_NVgf, file);
        newXS("Devel::PPPort::newSVpvn_share", XS_Devel__PPPort_newSVpvn_share, file);
        newXS("Devel::PPPort::SvPVbyte", XS_Devel__PPPort_SvPVbyte, file);
        newXS("Devel::PPPort::SvPV_nolen", XS_Devel__PPPort_SvPV_nolen, file);
        newXS("Devel::PPPort::SvPV_const", XS_Devel__PPPort_SvPV_const, file);
        newXS("Devel::PPPort::SvPV_mutable", XS_Devel__PPPort_SvPV_mutable, file);
        newXS("Devel::PPPort::SvPV_flags", XS_Devel__PPPort_SvPV_flags, file);
        newXS("Devel::PPPort::SvPV_flags_const", XS_Devel__PPPort_SvPV_flags_const, file);
        newXS("Devel::PPPort::SvPV_flags_const_nolen", XS_Devel__PPPort_SvPV_flags_const_nolen, file);
        newXS("Devel::PPPort::SvPV_flags_mutable", XS_Devel__PPPort_SvPV_flags_mutable, file);
        newXS("Devel::PPPort::SvPV_force", XS_Devel__PPPort_SvPV_force, file);
        newXS("Devel::PPPort::SvPV_force_nolen", XS_Devel__PPPort_SvPV_force_nolen, file);
        newXS("Devel::PPPort::SvPV_force_mutable", XS_Devel__PPPort_SvPV_force_mutable, file);
        newXS("Devel::PPPort::SvPV_force_nomg", XS_Devel__PPPort_SvPV_force_nomg, file);
        newXS("Devel::PPPort::SvPV_force_nomg_nolen", XS_Devel__PPPort_SvPV_force_nomg_nolen, file);
        newXS("Devel::PPPort::SvPV_force_flags", XS_Devel__PPPort_SvPV_force_flags, file);
        newXS("Devel::PPPort::SvPV_force_flags_nolen", XS_Devel__PPPort_SvPV_force_flags_nolen, file);
        newXS("Devel::PPPort::SvPV_force_flags_mutable", XS_Devel__PPPort_SvPV_force_flags_mutable, file);
        newXS("Devel::PPPort::SvPV_nolen_const", XS_Devel__PPPort_SvPV_nolen_const, file);
        newXS("Devel::PPPort::SvPV_nomg", XS_Devel__PPPort_SvPV_nomg, file);
        newXS("Devel::PPPort::SvPV_nomg_const", XS_Devel__PPPort_SvPV_nomg_const, file);
        newXS("Devel::PPPort::SvPV_nomg_const_nolen", XS_Devel__PPPort_SvPV_nomg_const_nolen, file);
        newXS("Devel::PPPort::SvPV_nomg_nolen", XS_Devel__PPPort_SvPV_nomg_nolen, file);
        newXS("Devel::PPPort::SvPV_renew", XS_Devel__PPPort_SvPV_renew, file);
        newXS("Devel::PPPort::my_snprintf", XS_Devel__PPPort_my_snprintf, file);

/* Initialisation Section */

#line 272 "RealPPPort.xs"
	/* ---- code from parts/inc/misc ---- */
	{
	  XSPROTO_test_t_ptr p = &XS_Devel__PPPort_dXSTARG;
	  newXS("Devel::PPPort::dXSTARG", *p, file);
	}
	newXS("Devel::PPPort::dAXMARK", XS_Devel__PPPort_dAXMARK, file);

/* ---- code from parts/inc/MY_CXT ---- */
	{
	  MY_CXT_INIT;
	  /* If any of the fields in the my_cxt_t struct need
	   * to be initialised, do it here.
	   */
	  MY_CXT.dummy = 42;
	}

#line 4470 "RealPPPort.c"

/* End of Initialisation Section */

#if (PERL_REVISION == 5 && PERL_VERSION >= 9)
  if (PL_unitcheckav)
       call_list(PL_scopestack_ix, PL_unitcheckav);
#endif
    XSRETURN_YES;
}