1			/*
     2			 * This file was generated automatically by ExtUtils::ParseXS version 2.10 from the
     3			 * contents of PPPort.xs. Do not edit this file, edit PPPort.xs instead.
     4			 *
     5			 *	ANY CHANGES MADE HERE WILL BE LOST! 
     6			 *
     7			 */
     8			
     9			#line 1 "PPPort.xs"
    10			/*******************************************************************************
    11			*
    12			*  !!!!! Do NOT edit this file directly! -- Edit PPPort_xs.PL instead. !!!!!
    13			*
    14			********************************************************************************
    15			*
    16			*  Perl/Pollution/Portability
    17			*
    18			********************************************************************************
    19			*
    20			*  $Revision: 8 $
    21			*  $Author: mhx $
    22			*  $Date: 2005/01/31 08:10:55 +0100 $
    23			*
    24			********************************************************************************
    25			*
    26			*  Version 3.x, Copyright (C) 2004-2005, Marcus Holland-Moritz.
    27			*  Version 2.x, Copyright (C) 2001, Paul Marquess.
    28			*  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
    29			*
    30			*  This program is free software; you can redistribute it and/or
    31			*  modify it under the same terms as Perl itself.
    32			*
    33			*******************************************************************************/
    34			
    35			/* ========== BEGIN XSHEAD ================================================== */
    36			
    37			
    38			
    39			/* =========== END XSHEAD =================================================== */
    40			
    41			#include "EXTERN.h"
    42			#include "perl.h"
    43			#include "XSUB.h"
    44			
    45			/* ========== BEGIN XSINIT ================================================== */
    46			
    47			/* ---- from parts/inc/call ---- */
    48			#define NEED_eval_pv
    49			
    50			/* ---- from parts/inc/grok ---- */
    51			#define NEED_grok_number
    52			#define NEED_grok_numeric_radix
    53			#define NEED_grok_bin
    54			#define NEED_grok_hex
    55			#define NEED_grok_oct
    56			
    57			/* ---- from parts/inc/newCONSTSUB ---- */
    58			#define NEED_newCONSTSUB
    59			
    60			/* ---- from parts/inc/newRV ---- */
    61			#define NEED_newRV_noinc
    62			
    63			/* ---- from parts/inc/sv_xpvf ---- */
    64			#define NEED_vnewSVpvf
    65			#define NEED_sv_catpvf_mg
    66			#define NEED_sv_catpvf_mg_nocontext
    67			#define NEED_sv_setpvf_mg
    68			#define NEED_sv_setpvf_mg_nocontext
    69			
    70			/* ---- from parts/inc/SvPV ---- */
    71			#define NEED_sv_2pv_nolen
    72			#define NEED_sv_2pvbyte
    73			
    74			/* =========== END XSINIT =================================================== */
    75			
    76			#include "ppport.h"
    77			
    78			/* ========== BEGIN XSMISC ================================================== */
    79			
    80			/* ---- from parts/inc/exception ---- */
    81			/* defined in module3.c */
    82			int exception(int throw_e);
    83			
    84			/* ---- from parts/inc/misc ---- */
    85			XS(XS_Devel__PPPort_dXSTARG);  /* prototype */
    86			XS(XS_Devel__PPPort_dXSTARG)
    87			{
    88			  dXSARGS;
    89			  dXSTARG;
    90			  IV iv;
    91			  SP -= items;
    92			  iv = SvIV(ST(0)) + 1;
    93			  PUSHi(iv);
    94			  XSRETURN(1);
    95			}
    96			
    97			/* ---- from parts/inc/MY_CXT ---- */
    98			#define MY_CXT_KEY "Devel::PPPort::_guts" XS_VERSION
    99			 
   100			typedef struct {
   101			  /* Put Global Data in here */
   102			  int dummy;          
   103			} my_cxt_t;
   104			 
   105			START_MY_CXT     
   106			
   107			/* ---- from parts/inc/newCONSTSUB ---- */
   108			void call_newCONSTSUB_1(void)
   109			{
   110			#ifdef PERL_NO_GET_CONTEXT
   111				dTHX;
   112			#endif
   113				newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_1", newSViv(1));
   114			}
   115			
   116			extern void call_newCONSTSUB_2(void);
   117			extern void call_newCONSTSUB_3(void);
   118			
   119			/* ---- from parts/inc/sv_xpvf ---- */
   120			static SV * test_vnewSVpvf(pTHX_ const char *pat, ...)
   121			{
   122			  SV *sv;
   123			  va_list args;
   124			  va_start(args, pat);
   125			#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0)))
   126			  sv = vnewSVpvf(pat, &args);
   127			#else
   128			  sv = newSVpv(pat, 0);
   129			#endif
   130			  va_end(args);
   131			  return sv;
   132			}
   133			
   134			static void test_sv_vcatpvf(pTHX_ SV *sv, const char *pat, ...)
   135			{
   136			  va_list args;
   137			  va_start(args, pat);
   138			#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0)))
   139			  sv_vcatpvf(sv, pat, &args);
   140			#else
   141			  sv_catpv(sv, pat);
   142			#endif
   143			  va_end(args);
   144			}
   145			
   146			static void test_sv_vsetpvf(pTHX_ SV *sv, const char *pat, ...)
   147			{
   148			  va_list args;
   149			  va_start(args, pat);
   150			#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0)))
   151			  sv_vsetpvf(sv, pat, &args);
   152			#else
   153			  sv_setpv(sv, pat);
   154			#endif
   155			  va_end(args);
   156			}
   157			
   158			/* =========== END XSMISC =================================================== */
   159			
   160			#ifndef PERL_UNUSED_VAR
   161			#  define PERL_UNUSED_VAR(var) if (0) var = var
   162			#endif
   163			
   164			#line 165 "PPPort.c"
   165			
   166			XS(XS_Devel__PPPort_G_SCALAR); /* prototype to pass -Wmissing-prototypes */
   167			XS(XS_Devel__PPPort_G_SCALAR)
   168	           2    {
   169	           2        dXSARGS;
   170	           2        if (items != 0)
   171	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::G_SCALAR()");
   172	           2        PERL_UNUSED_VAR(cv); /* -W */
   173			    {
   174	           2    	I32	RETVAL;
   175	           2    	dXSTARG;
   176			#line 174 "PPPort.xs"
   177					RETVAL = G_SCALAR;
   178			#line 179 "PPPort.c"
   179	           2    	XSprePUSH; PUSHi((IV)RETVAL);
   180			    }
   181	           2        XSRETURN(1);
   182			}
   183			
   184			
   185			XS(XS_Devel__PPPort_G_ARRAY); /* prototype to pass -Wmissing-prototypes */
   186			XS(XS_Devel__PPPort_G_ARRAY)
   187	           2    {
   188	           2        dXSARGS;
   189	           2        if (items != 0)
   190	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::G_ARRAY()");
   191	           2        PERL_UNUSED_VAR(cv); /* -W */
   192			    {
   193	           2    	I32	RETVAL;
   194	           2    	dXSTARG;
   195			#line 181 "PPPort.xs"
   196					RETVAL = G_ARRAY;
   197			#line 198 "PPPort.c"
   198	           2    	XSprePUSH; PUSHi((IV)RETVAL);
   199			    }
   200	           2        XSRETURN(1);
   201			}
   202			
   203			
   204			XS(XS_Devel__PPPort_G_DISCARD); /* prototype to pass -Wmissing-prototypes */
   205			XS(XS_Devel__PPPort_G_DISCARD)
   206	           2    {
   207	           2        dXSARGS;
   208	           2        if (items != 0)
   209	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::G_DISCARD()");
   210	           2        PERL_UNUSED_VAR(cv); /* -W */
   211			    {
   212	           2    	I32	RETVAL;
   213	           2    	dXSTARG;
   214			#line 188 "PPPort.xs"
   215					RETVAL = G_DISCARD;
   216			#line 217 "PPPort.c"
   217	           2    	XSprePUSH; PUSHi((IV)RETVAL);
   218			    }
   219	           2        XSRETURN(1);
   220			}
   221			
   222			
   223			XS(XS_Devel__PPPort_eval_sv); /* prototype to pass -Wmissing-prototypes */
   224			XS(XS_Devel__PPPort_eval_sv)
   225	           6    {
   226	           6        dXSARGS;
   227	           6        if (items != 2)
   228	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::eval_sv(sv, flags)");
   229	           6        PERL_UNUSED_VAR(cv); /* -W */
   230	           6        PERL_UNUSED_VAR(ax); /* -Wall */
   231	           6        SP -= items;
   232			    {
   233	           6    	SV*	sv = ST(0);
   234	           6    	I32	flags = (I32)SvIV(ST(1));
   235			#line 197 "PPPort.xs"
   236					I32 i;
   237			#line 238 "PPPort.c"
   238			#line 199 "PPPort.xs"
   239					PUTBACK;
   240					i = eval_sv(sv, flags);
   241					SPAGAIN;
   242					EXTEND(SP, 1);
   243					PUSHs(sv_2mortal(newSViv(i)));
   244			#line 245 "PPPort.c"
   245	           6    	PUTBACK;
   246				return;
   247			    }
   248			}
   249			
   250			
   251			XS(XS_Devel__PPPort_eval_pv); /* prototype to pass -Wmissing-prototypes */
   252			XS(XS_Devel__PPPort_eval_pv)
   253	           2    {
   254	           2        dXSARGS;
   255	           2        if (items != 2)
   256	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::eval_pv(p, croak_on_error)");
   257	           2        PERL_UNUSED_VAR(cv); /* -W */
   258	           2        PERL_UNUSED_VAR(ax); /* -Wall */
   259	           2        SP -= items;
   260			    {
   261	           2    	char*	p = (char *)SvPV_nolen(ST(0));
   262	           2    	I32	croak_on_error = (I32)SvIV(ST(1));
   263			#line 210 "PPPort.xs"
   264					PUTBACK;
   265					EXTEND(SP, 1);
   266					PUSHs(eval_pv(p, croak_on_error));
   267			#line 268 "PPPort.c"
   268	           2    	PUTBACK;
   269				return;
   270			    }
   271			}
   272			
   273			
   274			XS(XS_Devel__PPPort_call_sv); /* prototype to pass -Wmissing-prototypes */
   275			XS(XS_Devel__PPPort_call_sv)
   276	          18    {
   277	          18        dXSARGS;
   278	          18        if (items < 2)
   279	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::call_sv(sv, flags, ...)");
   280	          18        PERL_UNUSED_VAR(cv); /* -W */
   281	          18        PERL_UNUSED_VAR(ax); /* -Wall */
   282	          18        SP -= items;
   283			    {
   284	          18    	SV*	sv = ST(0);
   285	          18    	I32	flags = (I32)SvIV(ST(1));
   286			#line 219 "PPPort.xs"
   287					I32 i;
   288			#line 289 "PPPort.c"
   289			#line 221 "PPPort.xs"
   290					for (i=0; i<items-2; i++)
   291					  ST(i) = ST(i+2); /* pop first two args */
   292					PUSHMARK(SP);
   293					SP += items - 2;
   294					PUTBACK;
   295					i = call_sv(sv, flags);
   296					SPAGAIN;
   297					EXTEND(SP, 1);
   298					PUSHs(sv_2mortal(newSViv(i)));
   299			#line 300 "PPPort.c"
   300	          18    	PUTBACK;
   301				return;
   302			    }
   303			}
   304			
   305			
   306			XS(XS_Devel__PPPort_call_pv); /* prototype to pass -Wmissing-prototypes */
   307			XS(XS_Devel__PPPort_call_pv)
   308	           6    {
   309	           6        dXSARGS;
   310	           6        if (items < 2)
   311	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::call_pv(subname, flags, ...)");
   312	           6        PERL_UNUSED_VAR(cv); /* -W */
   313	           6        PERL_UNUSED_VAR(ax); /* -Wall */
   314	           6        SP -= items;
   315			    {
   316	           6    	char*	subname = (char *)SvPV_nolen(ST(0));
   317	           6    	I32	flags = (I32)SvIV(ST(1));
   318			#line 236 "PPPort.xs"
   319					I32 i;
   320			#line 321 "PPPort.c"
   321			#line 238 "PPPort.xs"
   322					for (i=0; i<items-2; i++)
   323					  ST(i) = ST(i+2); /* pop first two args */
   324					PUSHMARK(SP);
   325					SP += items - 2;
   326					PUTBACK;
   327					i = call_pv(subname, flags);
   328					SPAGAIN;
   329					EXTEND(SP, 1);
   330					PUSHs(sv_2mortal(newSViv(i)));
   331			#line 332 "PPPort.c"
   332	           6    	PUTBACK;
   333				return;
   334			    }
   335			}
   336			
   337			
   338			XS(XS_Devel__PPPort_call_argv); /* prototype to pass -Wmissing-prototypes */
   339			XS(XS_Devel__PPPort_call_argv)
   340	           6    {
   341	           6        dXSARGS;
   342	           6        if (items < 2)
   343	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::call_argv(subname, flags, ...)");
   344	           6        PERL_UNUSED_VAR(cv); /* -W */
   345	           6        PERL_UNUSED_VAR(ax); /* -Wall */
   346	           6        SP -= items;
   347			    {
   348	           6    	char*	subname = (char *)SvPV_nolen(ST(0));
   349	           6    	I32	flags = (I32)SvIV(ST(1));
   350			#line 253 "PPPort.xs"
   351					I32 i;
   352					char *args[8];
   353			#line 354 "PPPort.c"
   354			#line 256 "PPPort.xs"
   355					if (items > 8)  /* play safe */
   356					  XSRETURN_UNDEF;
   357					for (i=2; i<items; i++)
   358					  args[i-2] = SvPV_nolen(ST(i));
   359					args[items-2] = NULL;
   360					PUTBACK;
   361					i = call_argv(subname, flags, args);
   362					SPAGAIN;
   363					EXTEND(SP, 1);
   364					PUSHs(sv_2mortal(newSViv(i)));
   365			#line 366 "PPPort.c"
   366	           6    	PUTBACK;
   367	           6    	return;
   368			    }
   369			}
   370			
   371			
   372			XS(XS_Devel__PPPort_call_method); /* prototype to pass -Wmissing-prototypes */
   373			XS(XS_Devel__PPPort_call_method)
   374	           6    {
   375	           6        dXSARGS;
   376	           6        if (items < 2)
   377	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::call_method(methname, flags, ...)");
   378	           6        PERL_UNUSED_VAR(cv); /* -W */
   379	           6        PERL_UNUSED_VAR(ax); /* -Wall */
   380	           6        SP -= items;
   381			    {
   382	           6    	char*	methname = (char *)SvPV_nolen(ST(0));
   383	           6    	I32	flags = (I32)SvIV(ST(1));
   384			#line 272 "PPPort.xs"
   385					I32 i;
   386			#line 387 "PPPort.c"
   387			#line 274 "PPPort.xs"
   388					for (i=0; i<items-2; i++)
   389					  ST(i) = ST(i+2); /* pop first two args */
   390					PUSHMARK(SP);
   391					SP += items - 2;
   392					PUTBACK;
   393					i = call_method(methname, flags);
   394					SPAGAIN;
   395					EXTEND(SP, 1);
   396					PUSHs(sv_2mortal(newSViv(i)));
   397			#line 398 "PPPort.c"
   398	           6    	PUTBACK;
   399				return;
   400			    }
   401			}
   402			
   403			
   404			XS(XS_Devel__PPPort_CopSTASHPV); /* prototype to pass -Wmissing-prototypes */
   405			XS(XS_Devel__PPPort_CopSTASHPV)
   406	           1    {
   407	           1        dXSARGS;
   408	           1        if (items != 0)
   409	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::CopSTASHPV()");
   410	           1        PERL_UNUSED_VAR(cv); /* -W */
   411			    {
   412	           1    	char *	RETVAL;
   413	           1    	dXSTARG;
   414			#line 291 "PPPort.xs"
   415					RETVAL = CopSTASHPV(PL_curcop);
   416			#line 417 "PPPort.c"
   417	           1    	sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
   418			    }
   419	           1        XSRETURN(1);
   420			}
   421			
   422			
   423			XS(XS_Devel__PPPort_CopFILE); /* prototype to pass -Wmissing-prototypes */
   424			XS(XS_Devel__PPPort_CopFILE)
   425	           1    {
   426	           1        dXSARGS;
   427	           1        if (items != 0)
   428	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::CopFILE()");
   429	           1        PERL_UNUSED_VAR(cv); /* -W */
   430			    {
   431	           1    	char *	RETVAL;
   432	           1    	dXSTARG;
   433			#line 298 "PPPort.xs"
   434					RETVAL = CopFILE(PL_curcop);
   435			#line 436 "PPPort.c"
   436	           1    	sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
   437			    }
   438	           1        XSRETURN(1);
   439			}
   440			
   441			
   442			XS(XS_Devel__PPPort_exception); /* prototype to pass -Wmissing-prototypes */
   443			XS(XS_Devel__PPPort_exception)
   444	           2    {
   445	           2        dXSARGS;
   446	           2        if (items != 1)
   447	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::exception(throw_e)");
   448	           2        PERL_UNUSED_VAR(cv); /* -W */
   449			    {
   450	           2    	int	throw_e = (int)SvIV(ST(0));
   451	           2    	int	RETVAL;
   452	           2    	dXSTARG;
   453			
   454	           2    	RETVAL = exception(throw_e);
   455	           1    	XSprePUSH; PUSHi((IV)RETVAL);
   456			    }
   457	           1        XSRETURN(1);
   458			}
   459			
   460			
   461			XS(XS_Devel__PPPort_grok_number); /* prototype to pass -Wmissing-prototypes */
   462			XS(XS_Devel__PPPort_grok_number)
   463	           2    {
   464	           2        dXSARGS;
   465	           2        if (items != 1)
   466	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::grok_number(string)");
   467	           2        PERL_UNUSED_VAR(cv); /* -W */
   468			    {
   469	           2    	SV *	string = ST(0);
   470			#line 320 "PPPort.xs"
   471					const char *pv;
   472					STRLEN len;
   473			#line 474 "PPPort.c"
   474	           2    	UV	RETVAL;
   475	           2    	dXSTARG;
   476			#line 323 "PPPort.xs"
   477					pv = SvPV(string, len);
   478					if (!grok_number(pv, len, &RETVAL))
   479					  XSRETURN_UNDEF;
   480			#line 481 "PPPort.c"
   481	           1    	XSprePUSH; PUSHu((UV)RETVAL);
   482			    }
   483	           1        XSRETURN(1);
   484			}
   485			
   486			
   487			XS(XS_Devel__PPPort_grok_bin); /* prototype to pass -Wmissing-prototypes */
   488			XS(XS_Devel__PPPort_grok_bin)
   489	           1    {
   490	           1        dXSARGS;
   491	           1        if (items != 1)
   492	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::grok_bin(string)");
   493	           1        PERL_UNUSED_VAR(cv); /* -W */
   494			    {
   495	           1    	SV *	string = ST(0);
   496			#line 333 "PPPort.xs"
   497					char *pv;
   498					I32 flags;
   499					STRLEN len;
   500			#line 501 "PPPort.c"
   501	           1    	UV	RETVAL;
   502	           1    	dXSTARG;
   503			#line 337 "PPPort.xs"
   504					pv = SvPV(string, len);
   505					RETVAL = grok_bin(pv, &len, &flags, NULL);
   506			#line 507 "PPPort.c"
   507	           1    	XSprePUSH; PUSHu((UV)RETVAL);
   508			    }
   509	           1        XSRETURN(1);
   510			}
   511			
   512			
   513			XS(XS_Devel__PPPort_grok_hex); /* prototype to pass -Wmissing-prototypes */
   514			XS(XS_Devel__PPPort_grok_hex)
   515	           1    {
   516	           1        dXSARGS;
   517	           1        if (items != 1)
   518	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::grok_hex(string)");
   519	           1        PERL_UNUSED_VAR(cv); /* -W */
   520			    {
   521	           1    	SV *	string = ST(0);
   522			#line 346 "PPPort.xs"
   523					char *pv;
   524					I32 flags;
   525					STRLEN len;
   526			#line 527 "PPPort.c"
   527	           1    	UV	RETVAL;
   528	           1    	dXSTARG;
   529			#line 350 "PPPort.xs"
   530					pv = SvPV(string, len);
   531					RETVAL = grok_hex(pv, &len, &flags, NULL);
   532			#line 533 "PPPort.c"
   533	           1    	XSprePUSH; PUSHu((UV)RETVAL);
   534			    }
   535	           1        XSRETURN(1);
   536			}
   537			
   538			
   539			XS(XS_Devel__PPPort_grok_oct); /* prototype to pass -Wmissing-prototypes */
   540			XS(XS_Devel__PPPort_grok_oct)
   541	           1    {
   542	           1        dXSARGS;
   543	           1        if (items != 1)
   544	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::grok_oct(string)");
   545	           1        PERL_UNUSED_VAR(cv); /* -W */
   546			    {
   547	           1    	SV *	string = ST(0);
   548			#line 359 "PPPort.xs"
   549					char *pv;
   550					I32 flags;
   551					STRLEN len;
   552			#line 553 "PPPort.c"
   553	           1    	UV	RETVAL;
   554	           1    	dXSTARG;
   555			#line 363 "PPPort.xs"
   556					pv = SvPV(string, len);
   557					RETVAL = grok_oct(pv, &len, &flags, NULL);
   558			#line 559 "PPPort.c"
   559	           1    	XSprePUSH; PUSHu((UV)RETVAL);
   560			    }
   561	           1        XSRETURN(1);
   562			}
   563			
   564			
   565			XS(XS_Devel__PPPort_Perl_grok_number); /* prototype to pass -Wmissing-prototypes */
   566			XS(XS_Devel__PPPort_Perl_grok_number)
   567	           2    {
   568	           2        dXSARGS;
   569	           2        if (items != 1)
   570	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::Perl_grok_number(string)");
   571	           2        PERL_UNUSED_VAR(cv); /* -W */
   572			    {
   573	           2    	SV *	string = ST(0);
   574			#line 372 "PPPort.xs"
   575					const char *pv;
   576					STRLEN len;
   577			#line 578 "PPPort.c"
   578	           2    	UV	RETVAL;
   579	           2    	dXSTARG;
   580			#line 375 "PPPort.xs"
   581					pv = SvPV(string, len);
   582					if (!Perl_grok_number(aTHX_ pv, len, &RETVAL))
   583					  XSRETURN_UNDEF;
   584			#line 585 "PPPort.c"
   585	           1    	XSprePUSH; PUSHu((UV)RETVAL);
   586			    }
   587	           1        XSRETURN(1);
   588			}
   589			
   590			
   591			XS(XS_Devel__PPPort_Perl_grok_bin); /* prototype to pass -Wmissing-prototypes */
   592			XS(XS_Devel__PPPort_Perl_grok_bin)
   593	           1    {
   594	           1        dXSARGS;
   595	           1        if (items != 1)
   596	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::Perl_grok_bin(string)");
   597	           1        PERL_UNUSED_VAR(cv); /* -W */
   598			    {
   599	           1    	SV *	string = ST(0);
   600			#line 385 "PPPort.xs"
   601					char *pv;
   602					I32 flags;
   603					STRLEN len;
   604			#line 605 "PPPort.c"
   605	           1    	UV	RETVAL;
   606	           1    	dXSTARG;
   607			#line 389 "PPPort.xs"
   608					pv = SvPV(string, len);
   609					RETVAL = Perl_grok_bin(aTHX_ pv, &len, &flags, NULL);
   610			#line 611 "PPPort.c"
   611	           1    	XSprePUSH; PUSHu((UV)RETVAL);
   612			    }
   613	           1        XSRETURN(1);
   614			}
   615			
   616			
   617			XS(XS_Devel__PPPort_Perl_grok_hex); /* prototype to pass -Wmissing-prototypes */
   618			XS(XS_Devel__PPPort_Perl_grok_hex)
   619	           1    {
   620	           1        dXSARGS;
   621	           1        if (items != 1)
   622	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::Perl_grok_hex(string)");
   623	           1        PERL_UNUSED_VAR(cv); /* -W */
   624			    {
   625	           1    	SV *	string = ST(0);
   626			#line 398 "PPPort.xs"
   627					char *pv;
   628					I32 flags;
   629					STRLEN len;
   630			#line 631 "PPPort.c"
   631	           1    	UV	RETVAL;
   632	           1    	dXSTARG;
   633			#line 402 "PPPort.xs"
   634					pv = SvPV(string, len);
   635					RETVAL = Perl_grok_hex(aTHX_ pv, &len, &flags, NULL);
   636			#line 637 "PPPort.c"
   637	           1    	XSprePUSH; PUSHu((UV)RETVAL);
   638			    }
   639	           1        XSRETURN(1);
   640			}
   641			
   642			
   643			XS(XS_Devel__PPPort_Perl_grok_oct); /* prototype to pass -Wmissing-prototypes */
   644			XS(XS_Devel__PPPort_Perl_grok_oct)
   645	           1    {
   646	           1        dXSARGS;
   647	           5        if (items != 1)
   648	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::Perl_grok_oct(string)");
   649	           1        PERL_UNUSED_VAR(cv); /* -W */
   650			    {
   651	           1    	SV *	string = ST(0);
   652			#line 411 "PPPort.xs"
   653					char *pv;
   654					I32 flags;
   655					STRLEN len;
   656			#line 657 "PPPort.c"
   657	           1    	UV	RETVAL;
   658	           1    	dXSTARG;
   659			#line 415 "PPPort.xs"
   660					pv = SvPV(string, len);
   661					RETVAL = Perl_grok_oct(aTHX_ pv, &len, &flags, NULL);
   662			#line 663 "PPPort.c"
   663	           1    	XSprePUSH; PUSHu((UV)RETVAL);
   664			    }
   665	           1        XSRETURN(1);
   666			}
   667			
   668			
   669			XS(XS_Devel__PPPort_iv_size); /* prototype to pass -Wmissing-prototypes */
   670			XS(XS_Devel__PPPort_iv_size)
   671	           1    {
   672	           1        dXSARGS;
   673	           1        if (items != 0)
   674	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::iv_size()");
   675	           1        PERL_UNUSED_VAR(cv); /* -W */
   676			    {
   677	           1    	IV	RETVAL;
   678	           1    	dXSTARG;
   679			#line 427 "PPPort.xs"
   680					RETVAL = IVSIZE == sizeof(IV);
   681			#line 682 "PPPort.c"
   682	           1    	XSprePUSH; PUSHi((IV)RETVAL);
   683			    }
   684	           1        XSRETURN(1);
   685			}
   686			
   687			
   688			XS(XS_Devel__PPPort_uv_size); /* prototype to pass -Wmissing-prototypes */
   689			XS(XS_Devel__PPPort_uv_size)
   690	           1    {
   691	           1        dXSARGS;
   692	           1        if (items != 0)
   693	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::uv_size()");
   694	           1        PERL_UNUSED_VAR(cv); /* -W */
   695			    {
   696	           1    	IV	RETVAL;
   697	           1    	dXSTARG;
   698			#line 434 "PPPort.xs"
   699					RETVAL = UVSIZE == sizeof(UV);
   700			#line 701 "PPPort.c"
   701	           1    	XSprePUSH; PUSHi((IV)RETVAL);
   702			    }
   703	           1        XSRETURN(1);
   704			}
   705			
   706			
   707			XS(XS_Devel__PPPort_iv_type); /* prototype to pass -Wmissing-prototypes */
   708			XS(XS_Devel__PPPort_iv_type)
   709	           1    {
   710	           1        dXSARGS;
   711	           1        if (items != 0)
   712	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::iv_type()");
   713	           1        PERL_UNUSED_VAR(cv); /* -W */
   714			    {
   715	           1    	IV	RETVAL;
   716	           1    	dXSTARG;
   717			#line 441 "PPPort.xs"
   718					RETVAL = sizeof(IVTYPE) == sizeof(IV);
   719			#line 720 "PPPort.c"
   720	           1    	XSprePUSH; PUSHi((IV)RETVAL);
   721			    }
   722	           1        XSRETURN(1);
   723			}
   724			
   725			
   726			XS(XS_Devel__PPPort_uv_type); /* prototype to pass -Wmissing-prototypes */
   727			XS(XS_Devel__PPPort_uv_type)
   728	           1    {
   729	           1        dXSARGS;
   730	           1        if (items != 0)
   731	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::uv_type()");
   732	           1        PERL_UNUSED_VAR(cv); /* -W */
   733			    {
   734	           1    	IV	RETVAL;
   735	           1    	dXSTARG;
   736			#line 448 "PPPort.xs"
   737					RETVAL = sizeof(UVTYPE) == sizeof(UV);
   738			#line 739 "PPPort.c"
   739	           1    	XSprePUSH; PUSHi((IV)RETVAL);
   740			    }
   741	           1        XSRETURN(1);
   742			}
   743			
   744			
   745			XS(XS_Devel__PPPort_sv_catpv_mg); /* prototype to pass -Wmissing-prototypes */
   746			XS(XS_Devel__PPPort_sv_catpv_mg)
   747	           1    {
   748	           1        dXSARGS;
   749	           1        if (items != 2)
   750	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_catpv_mg(sv, string)");
   751	           1        PERL_UNUSED_VAR(cv); /* -W */
   752			    {
   753	           1    	SV *	sv = ST(0);
   754	           1    	char *	string = (char *)SvPV_nolen(ST(1));
   755			#line 461 "PPPort.xs"
   756					sv_catpv_mg(sv, string);
   757			#line 758 "PPPort.c"
   758			    }
   759	           1        XSRETURN_EMPTY;
   760			}
   761			
   762			
   763			XS(XS_Devel__PPPort_sv_catpvn_mg); /* prototype to pass -Wmissing-prototypes */
   764			XS(XS_Devel__PPPort_sv_catpvn_mg)
   765	           1    {
   766	           1        dXSARGS;
   767	           1        if (items != 2)
   768	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_catpvn_mg(sv, sv2)");
   769	           1        PERL_UNUSED_VAR(cv); /* -W */
   770			    {
   771	           1    	SV *	sv = ST(0);
   772	           1    	SV *	sv2 = ST(1);
   773			#line 468 "PPPort.xs"
   774					char *str;
   775					STRLEN len;
   776			#line 777 "PPPort.c"
   777			#line 471 "PPPort.xs"
   778					str = SvPV(sv2, len);
   779					sv_catpvn_mg(sv, str, len);
   780			#line 781 "PPPort.c"
   781			    }
   782	           1        XSRETURN_EMPTY;
   783			}
   784			
   785			
   786			XS(XS_Devel__PPPort_sv_catsv_mg); /* prototype to pass -Wmissing-prototypes */
   787			XS(XS_Devel__PPPort_sv_catsv_mg)
   788	           1    {
   789	           1        dXSARGS;
   790	           1        if (items != 2)
   791	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_catsv_mg(sv, sv2)");
   792	           1        PERL_UNUSED_VAR(cv); /* -W */
   793			    {
   794	           1    	SV *	sv = ST(0);
   795	           1    	SV *	sv2 = ST(1);
   796			#line 479 "PPPort.xs"
   797					sv_catsv_mg(sv, sv2);
   798			#line 799 "PPPort.c"
   799			    }
   800	           1        XSRETURN_EMPTY;
   801			}
   802			
   803			
   804			XS(XS_Devel__PPPort_sv_setiv_mg); /* prototype to pass -Wmissing-prototypes */
   805			XS(XS_Devel__PPPort_sv_setiv_mg)
   806	           1    {
   807	           1        dXSARGS;
   808	           1        if (items != 2)
   809	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_setiv_mg(sv, iv)");
   810	           1        PERL_UNUSED_VAR(cv); /* -W */
   811			    {
   812	           1    	SV *	sv = ST(0);
   813	           1    	IV	iv = (IV)SvIV(ST(1));
   814			#line 486 "PPPort.xs"
   815					sv_setiv_mg(sv, iv);
   816			#line 817 "PPPort.c"
   817			    }
   818	           1        XSRETURN_EMPTY;
   819			}
   820			
   821			
   822			XS(XS_Devel__PPPort_sv_setnv_mg); /* prototype to pass -Wmissing-prototypes */
   823			XS(XS_Devel__PPPort_sv_setnv_mg)
   824	           1    {
   825	           1        dXSARGS;
   826	           1        if (items != 2)
   827	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_setnv_mg(sv, nv)");
   828	           1        PERL_UNUSED_VAR(cv); /* -W */
   829			    {
   830	           1    	SV *	sv = ST(0);
   831	           1    	NV	nv = (NV)SvNV(ST(1));
   832			#line 493 "PPPort.xs"
   833					sv_setnv_mg(sv, nv);
   834			#line 835 "PPPort.c"
   835			    }
   836	           1        XSRETURN_EMPTY;
   837			}
   838			
   839			
   840			XS(XS_Devel__PPPort_sv_setpv_mg); /* prototype to pass -Wmissing-prototypes */
   841			XS(XS_Devel__PPPort_sv_setpv_mg)
   842	           1    {
   843	           1        dXSARGS;
   844	           1        if (items != 2)
   845	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_setpv_mg(sv, pv)");
   846	           1        PERL_UNUSED_VAR(cv); /* -W */
   847			    {
   848	           1    	SV *	sv = ST(0);
   849	           1    	char *	pv = (char *)SvPV_nolen(ST(1));
   850			#line 500 "PPPort.xs"
   851					sv_setpv_mg(sv, pv);
   852			#line 853 "PPPort.c"
   853			    }
   854	           1        XSRETURN_EMPTY;
   855			}
   856			
   857			
   858			XS(XS_Devel__PPPort_sv_setpvn_mg); /* prototype to pass -Wmissing-prototypes */
   859			XS(XS_Devel__PPPort_sv_setpvn_mg)
   860	           1    {
   861	           1        dXSARGS;
   862	           1        if (items != 2)
   863	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_setpvn_mg(sv, sv2)");
   864	           1        PERL_UNUSED_VAR(cv); /* -W */
   865			    {
   866	           1    	SV *	sv = ST(0);
   867	           1    	SV *	sv2 = ST(1);
   868			#line 507 "PPPort.xs"
   869					char *str;
   870					STRLEN len;
   871			#line 872 "PPPort.c"
   872			#line 510 "PPPort.xs"
   873					str = SvPV(sv2, len);
   874					sv_setpvn_mg(sv, str, len);
   875			#line 876 "PPPort.c"
   876			    }
   877	           1        XSRETURN_EMPTY;
   878			}
   879			
   880			
   881			XS(XS_Devel__PPPort_sv_setsv_mg); /* prototype to pass -Wmissing-prototypes */
   882			XS(XS_Devel__PPPort_sv_setsv_mg)
   883	           1    {
   884	           1        dXSARGS;
   885	           1        if (items != 2)
   886	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_setsv_mg(sv, sv2)");
   887	           1        PERL_UNUSED_VAR(cv); /* -W */
   888			    {
   889	           1    	SV *	sv = ST(0);
   890	           1    	SV *	sv2 = ST(1);
   891			#line 518 "PPPort.xs"
   892					sv_setsv_mg(sv, sv2);
   893			#line 894 "PPPort.c"
   894			    }
   895	           1        XSRETURN_EMPTY;
   896			}
   897			
   898			
   899			XS(XS_Devel__PPPort_sv_setuv_mg); /* prototype to pass -Wmissing-prototypes */
   900			XS(XS_Devel__PPPort_sv_setuv_mg)
   901	           1    {
   902	           1        dXSARGS;
   903	           1        if (items != 2)
   904	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_setuv_mg(sv, uv)");
   905	           1        PERL_UNUSED_VAR(cv); /* -W */
   906			    {
   907	           1    	SV *	sv = ST(0);
   908	           1    	UV	uv = (UV)SvUV(ST(1));
   909			#line 525 "PPPort.xs"
   910					sv_setuv_mg(sv, uv);
   911			#line 912 "PPPort.c"
   912			    }
   913	           1        XSRETURN_EMPTY;
   914			}
   915			
   916			
   917			XS(XS_Devel__PPPort_sv_usepvn_mg); /* prototype to pass -Wmissing-prototypes */
   918			XS(XS_Devel__PPPort_sv_usepvn_mg)
   919	           1    {
   920	           1        dXSARGS;
   921	           1        if (items != 2)
   922	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_usepvn_mg(sv, sv2)");
   923	           1        PERL_UNUSED_VAR(cv); /* -W */
   924			    {
   925	           1    	SV *	sv = ST(0);
   926	           1    	SV *	sv2 = ST(1);
   927			#line 532 "PPPort.xs"
   928					char *str, *copy;
   929					STRLEN len;
   930			#line 931 "PPPort.c"
   931			#line 535 "PPPort.xs"
   932					str = SvPV(sv2, len);
   933					New(42, copy, len+1, char);
   934					Copy(str, copy, len+1, char);
   935					sv_usepvn_mg(sv, copy, len);
   936			#line 937 "PPPort.c"
   937			    }
   938	           1        XSRETURN_EMPTY;
   939			}
   940			
   941			
   942			XS(XS_Devel__PPPort_gv_stashpvn); /* prototype to pass -Wmissing-prototypes */
   943			XS(XS_Devel__PPPort_gv_stashpvn)
   944	           3    {
   945	           3        dXSARGS;
   946	           3        if (items != 2)
   947	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::gv_stashpvn(name, create)");
   948	           3        PERL_UNUSED_VAR(cv); /* -W */
   949			    {
   950	           3    	char *	name = (char *)SvPV_nolen(ST(0));
   951	           3    	I32	create = (I32)SvIV(ST(1));
   952	           3    	int	RETVAL;
   953	           3    	dXSTARG;
   954			#line 549 "PPPort.xs"
   955					RETVAL = gv_stashpvn(name, strlen(name), create) != NULL;
   956			#line 957 "PPPort.c"
   957	           3    	XSprePUSH; PUSHi((IV)RETVAL);
   958			    }
   959	           3        XSRETURN(1);
   960			}
   961			
   962			
   963			XS(XS_Devel__PPPort_get_sv); /* prototype to pass -Wmissing-prototypes */
   964			XS(XS_Devel__PPPort_get_sv)
   965	           3    {
   966	           3        dXSARGS;
   967	           3        if (items != 2)
   968	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::get_sv(name, create)");
   969	           3        PERL_UNUSED_VAR(cv); /* -W */
   970			    {
   971	           3    	char *	name = (char *)SvPV_nolen(ST(0));
   972	           3    	I32	create = (I32)SvIV(ST(1));
   973	           3    	int	RETVAL;
   974	           3    	dXSTARG;
   975			#line 558 "PPPort.xs"
   976					RETVAL = get_sv(name, create) != NULL;
   977			#line 978 "PPPort.c"
   978	           3    	XSprePUSH; PUSHi((IV)RETVAL);
   979			    }
   980	           3        XSRETURN(1);
   981			}
   982			
   983			
   984			XS(XS_Devel__PPPort_get_av); /* prototype to pass -Wmissing-prototypes */
   985			XS(XS_Devel__PPPort_get_av)
   986	           3    {
   987	           3        dXSARGS;
   988	           3        if (items != 2)
   989	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::get_av(name, create)");
   990	           3        PERL_UNUSED_VAR(cv); /* -W */
   991			    {
   992	           3    	char *	name = (char *)SvPV_nolen(ST(0));
   993	           3    	I32	create = (I32)SvIV(ST(1));
   994	           3    	int	RETVAL;
   995	           3    	dXSTARG;
   996			#line 567 "PPPort.xs"
   997					RETVAL = get_av(name, create) != NULL;
   998			#line 999 "PPPort.c"
   999	           3    	XSprePUSH; PUSHi((IV)RETVAL);
  1000			    }
  1001	           3        XSRETURN(1);
  1002			}
  1003			
  1004			
  1005			XS(XS_Devel__PPPort_get_hv); /* prototype to pass -Wmissing-prototypes */
  1006			XS(XS_Devel__PPPort_get_hv)
  1007	           3    {
  1008	           3        dXSARGS;
  1009	           3        if (items != 2)
  1010	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::get_hv(name, create)");
  1011	           3        PERL_UNUSED_VAR(cv); /* -W */
  1012			    {
  1013	           3    	char *	name = (char *)SvPV_nolen(ST(0));
  1014	           3    	I32	create = (I32)SvIV(ST(1));
  1015	           3    	int	RETVAL;
  1016	           3    	dXSTARG;
  1017			#line 576 "PPPort.xs"
  1018					RETVAL = get_hv(name, create) != NULL;
  1019			#line 1020 "PPPort.c"
  1020	           3    	XSprePUSH; PUSHi((IV)RETVAL);
  1021			    }
  1022	           3        XSRETURN(1);
  1023			}
  1024			
  1025			
  1026			XS(XS_Devel__PPPort_get_cv); /* prototype to pass -Wmissing-prototypes */
  1027			XS(XS_Devel__PPPort_get_cv)
  1028	           3    {
  1029	           3        dXSARGS;
  1030	           3        if (items != 2)
  1031	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::get_cv(name, create)");
  1032	           3        PERL_UNUSED_VAR(cv); /* -W */
  1033			    {
  1034	           3    	char *	name = (char *)SvPV_nolen(ST(0));
  1035	           3    	I32	create = (I32)SvIV(ST(1));
  1036	           3    	int	RETVAL;
  1037	           3    	dXSTARG;
  1038			#line 585 "PPPort.xs"
  1039					RETVAL = get_cv(name, create) != NULL;
  1040			#line 1041 "PPPort.c"
  1041	           3    	XSprePUSH; PUSHi((IV)RETVAL);
  1042			    }
  1043	           3        XSRETURN(1);
  1044			}
  1045			
  1046			
  1047			XS(XS_Devel__PPPort_newSVpvn); /* prototype to pass -Wmissing-prototypes */
  1048			XS(XS_Devel__PPPort_newSVpvn)
  1049	           1    {
  1050	           1        dXSARGS;
  1051	           1        if (items != 0)
  1052	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::newSVpvn()");
  1053	           1        PERL_UNUSED_VAR(cv); /* -W */
  1054	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1055	           1        SP -= items;
  1056			    {
  1057			#line 592 "PPPort.xs"
  1058					XPUSHs(newSVpvn("test", 4));
  1059					XPUSHs(newSVpvn("test", 2));
  1060					XPUSHs(newSVpvn("test", 0));
  1061					XPUSHs(newSVpvn(NULL, 2));
  1062					XPUSHs(newSVpvn(NULL, 0));
  1063					XSRETURN(5);
  1064			#line 1065 "PPPort.c"
  1065				PUTBACK;
  1066				return;
  1067			    }
  1068			}
  1069			
  1070			
  1071			XS(XS_Devel__PPPort_PL_sv_undef); /* prototype to pass -Wmissing-prototypes */
  1072			XS(XS_Devel__PPPort_PL_sv_undef)
  1073	           1    {
  1074	           1        dXSARGS;
  1075	           1        if (items != 0)
  1076	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::PL_sv_undef()");
  1077	           1        PERL_UNUSED_VAR(cv); /* -W */
  1078			    {
  1079	           1    	SV *	RETVAL;
  1080			#line 602 "PPPort.xs"
  1081					RETVAL = newSVsv(&PL_sv_undef);
  1082			#line 1083 "PPPort.c"
  1083	           1    	ST(0) = RETVAL;
  1084	           1    	sv_2mortal(ST(0));
  1085			    }
  1086	           1        XSRETURN(1);
  1087			}
  1088			
  1089			
  1090			XS(XS_Devel__PPPort_PL_sv_yes); /* prototype to pass -Wmissing-prototypes */
  1091			XS(XS_Devel__PPPort_PL_sv_yes)
  1092	           1    {
  1093	           1        dXSARGS;
  1094	           1        if (items != 0)
  1095	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::PL_sv_yes()");
  1096	           1        PERL_UNUSED_VAR(cv); /* -W */
  1097			    {
  1098	           1    	SV *	RETVAL;
  1099			#line 609 "PPPort.xs"
  1100					RETVAL = newSVsv(&PL_sv_yes);
  1101			#line 1102 "PPPort.c"
  1102	           1    	ST(0) = RETVAL;
  1103	           1    	sv_2mortal(ST(0));
  1104			    }
  1105	           1        XSRETURN(1);
  1106			}
  1107			
  1108			
  1109			XS(XS_Devel__PPPort_PL_sv_no); /* prototype to pass -Wmissing-prototypes */
  1110			XS(XS_Devel__PPPort_PL_sv_no)
  1111	           1    {
  1112	           1        dXSARGS;
  1113	           1        if (items != 0)
  1114	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::PL_sv_no()");
  1115	           1        PERL_UNUSED_VAR(cv); /* -W */
  1116			    {
  1117	           1    	SV *	RETVAL;
  1118			#line 616 "PPPort.xs"
  1119					RETVAL = newSVsv(&PL_sv_no);
  1120			#line 1121 "PPPort.c"
  1121	           1    	ST(0) = RETVAL;
  1122	           1    	sv_2mortal(ST(0));
  1123			    }
  1124	           1        XSRETURN(1);
  1125			}
  1126			
  1127			
  1128			XS(XS_Devel__PPPort_PL_na); /* prototype to pass -Wmissing-prototypes */
  1129			XS(XS_Devel__PPPort_PL_na)
  1130	           1    {
  1131	           1        dXSARGS;
  1132	           1        if (items != 1)
  1133	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::PL_na(string)");
  1134	           1        PERL_UNUSED_VAR(cv); /* -W */
  1135			    {
  1136	           1    	char *	string = (char *)SvPV_nolen(ST(0));
  1137	           1    	int	RETVAL;
  1138	           1    	dXSTARG;
  1139			#line 624 "PPPort.xs"
  1140					PL_na = strlen(string);
  1141					RETVAL = PL_na;
  1142			#line 1143 "PPPort.c"
  1143	           1    	XSprePUSH; PUSHi((IV)RETVAL);
  1144			    }
  1145	           1        XSRETURN(1);
  1146			}
  1147			
  1148			
  1149			XS(XS_Devel__PPPort_boolSV); /* prototype to pass -Wmissing-prototypes */
  1150			XS(XS_Devel__PPPort_boolSV)
  1151	           2    {
  1152	           2        dXSARGS;
  1153	           2        if (items != 1)
  1154	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::boolSV(value)");
  1155	           2        PERL_UNUSED_VAR(cv); /* -W */
  1156			    {
  1157	           2    	int	value = (int)SvIV(ST(0));
  1158	           2    	SV *	RETVAL;
  1159			#line 633 "PPPort.xs"
  1160					RETVAL = newSVsv(boolSV(value));
  1161			#line 1162 "PPPort.c"
  1162	           2    	ST(0) = RETVAL;
  1163	           2    	sv_2mortal(ST(0));
  1164			    }
  1165	           2        XSRETURN(1);
  1166			}
  1167			
  1168			
  1169			XS(XS_Devel__PPPort_DEFSV); /* prototype to pass -Wmissing-prototypes */
  1170			XS(XS_Devel__PPPort_DEFSV)
  1171	           1    {
  1172	           1        dXSARGS;
  1173	           1        if (items != 0)
  1174	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::DEFSV()");
  1175	           1        PERL_UNUSED_VAR(cv); /* -W */
  1176			    {
  1177	           1    	SV *	RETVAL;
  1178			#line 640 "PPPort.xs"
  1179					RETVAL = newSVsv(DEFSV);
  1180			#line 1181 "PPPort.c"
  1181	           1    	ST(0) = RETVAL;
  1182	           1    	sv_2mortal(ST(0));
  1183			    }
  1184	           1        XSRETURN(1);
  1185			}
  1186			
  1187			
  1188			XS(XS_Devel__PPPort_ERRSV); /* prototype to pass -Wmissing-prototypes */
  1189			XS(XS_Devel__PPPort_ERRSV)
  1190	           2    {
  1191	           2        dXSARGS;
  1192	           2        if (items != 0)
  1193	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::ERRSV()");
  1194	           2        PERL_UNUSED_VAR(cv); /* -W */
  1195			    {
  1196	           2    	int	RETVAL;
  1197	           2    	dXSTARG;
  1198			#line 647 "PPPort.xs"
  1199					RETVAL = SvTRUE(ERRSV);
  1200			#line 1201 "PPPort.c"
  1201	           2    	XSprePUSH; PUSHi((IV)RETVAL);
  1202			    }
  1203	           2        XSRETURN(1);
  1204			}
  1205			
  1206			
  1207			XS(XS_Devel__PPPort_UNDERBAR); /* prototype to pass -Wmissing-prototypes */
  1208			XS(XS_Devel__PPPort_UNDERBAR)
  1209	           1    {
  1210	           1        dXSARGS;
  1211	           1        if (items != 0)
  1212	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::UNDERBAR()");
  1213	           1        PERL_UNUSED_VAR(cv); /* -W */
  1214			    {
  1215	           1    	SV *	RETVAL;
  1216			#line 654 "PPPort.xs"
  1217					{
  1218					  dUNDERBAR;
  1219					  RETVAL = newSVsv(UNDERBAR);
  1220					}
  1221			#line 1222 "PPPort.c"
  1222	           1    	ST(0) = RETVAL;
  1223	           1    	sv_2mortal(ST(0));
  1224			    }
  1225	           1        XSRETURN(1);
  1226			}
  1227			
  1228			
  1229			XS(XS_Devel__PPPort_mPUSHp); /* prototype to pass -Wmissing-prototypes */
  1230			XS(XS_Devel__PPPort_mPUSHp)
  1231	           1    {
  1232	           1        dXSARGS;
  1233	           1        if (items != 0)
  1234	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::mPUSHp()");
  1235	           1        PERL_UNUSED_VAR(cv); /* -W */
  1236	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1237	           1        SP -= items;
  1238			    {
  1239			#line 668 "PPPort.xs"
  1240				EXTEND(SP, 3);
  1241				mPUSHp("one", 3);
  1242				mPUSHp("two", 3);
  1243				mPUSHp("three", 5);
  1244				XSRETURN(3);
  1245			#line 1246 "PPPort.c"
  1246				PUTBACK;
  1247				return;
  1248			    }
  1249			}
  1250			
  1251			
  1252			XS(XS_Devel__PPPort_mPUSHn); /* prototype to pass -Wmissing-prototypes */
  1253			XS(XS_Devel__PPPort_mPUSHn)
  1254	           1    {
  1255	           1        dXSARGS;
  1256	           1        if (items != 0)
  1257	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::mPUSHn()");
  1258	           1        PERL_UNUSED_VAR(cv); /* -W */
  1259	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1260	           1        SP -= items;
  1261			    {
  1262			#line 677 "PPPort.xs"
  1263				EXTEND(SP, 3);
  1264				mPUSHn(0.5);
  1265				mPUSHn(-0.25);
  1266				mPUSHn(0.125);
  1267				XSRETURN(3);
  1268			#line 1269 "PPPort.c"
  1269				PUTBACK;
  1270				return;
  1271			    }
  1272			}
  1273			
  1274			
  1275			XS(XS_Devel__PPPort_mPUSHi); /* prototype to pass -Wmissing-prototypes */
  1276			XS(XS_Devel__PPPort_mPUSHi)
  1277	           1    {
  1278	           1        dXSARGS;
  1279	           1        if (items != 0)
  1280	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::mPUSHi()");
  1281	           1        PERL_UNUSED_VAR(cv); /* -W */
  1282	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1283	           1        SP -= items;
  1284			    {
  1285			#line 686 "PPPort.xs"
  1286				EXTEND(SP, 3);
  1287				mPUSHi(-1);
  1288				mPUSHi(2);
  1289				mPUSHi(-3);
  1290				XSRETURN(3);
  1291			#line 1292 "PPPort.c"
  1292				PUTBACK;
  1293				return;
  1294			    }
  1295			}
  1296			
  1297			
  1298			XS(XS_Devel__PPPort_mPUSHu); /* prototype to pass -Wmissing-prototypes */
  1299			XS(XS_Devel__PPPort_mPUSHu)
  1300	           1    {
  1301	           1        dXSARGS;
  1302	           1        if (items != 0)
  1303	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::mPUSHu()");
  1304	           1        PERL_UNUSED_VAR(cv); /* -W */
  1305	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1306	           1        SP -= items;
  1307			    {
  1308			#line 695 "PPPort.xs"
  1309				EXTEND(SP, 3);
  1310				mPUSHu(1);
  1311				mPUSHu(2);
  1312				mPUSHu(3);
  1313				XSRETURN(3);
  1314			#line 1315 "PPPort.c"
  1315				PUTBACK;
  1316				return;
  1317			    }
  1318			}
  1319			
  1320			
  1321			XS(XS_Devel__PPPort_mXPUSHp); /* prototype to pass -Wmissing-prototypes */
  1322			XS(XS_Devel__PPPort_mXPUSHp)
  1323	           1    {
  1324	           1        dXSARGS;
  1325	           1        if (items != 0)
  1326	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::mXPUSHp()");
  1327	           1        PERL_UNUSED_VAR(cv); /* -W */
  1328	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1329	           1        SP -= items;
  1330			    {
  1331			#line 704 "PPPort.xs"
  1332				mXPUSHp("one", 3);
  1333				mXPUSHp("two", 3);
  1334				mXPUSHp("three", 5);
  1335				XSRETURN(3);
  1336			#line 1337 "PPPort.c"
  1337				PUTBACK;
  1338				return;
  1339			    }
  1340			}
  1341			
  1342			
  1343			XS(XS_Devel__PPPort_mXPUSHn); /* prototype to pass -Wmissing-prototypes */
  1344			XS(XS_Devel__PPPort_mXPUSHn)
  1345	           1    {
  1346	           1        dXSARGS;
  1347	           1        if (items != 0)
  1348	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::mXPUSHn()");
  1349	           1        PERL_UNUSED_VAR(cv); /* -W */
  1350	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1351	           1        SP -= items;
  1352			    {
  1353			#line 712 "PPPort.xs"
  1354				mXPUSHn(0.5);
  1355				mXPUSHn(-0.25);
  1356				mXPUSHn(0.125);
  1357				XSRETURN(3);
  1358			#line 1359 "PPPort.c"
  1359				PUTBACK;
  1360				return;
  1361			    }
  1362			}
  1363			
  1364			
  1365			XS(XS_Devel__PPPort_mXPUSHi); /* prototype to pass -Wmissing-prototypes */
  1366			XS(XS_Devel__PPPort_mXPUSHi)
  1367	           1    {
  1368	           1        dXSARGS;
  1369	           1        if (items != 0)
  1370	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::mXPUSHi()");
  1371	           1        PERL_UNUSED_VAR(cv); /* -W */
  1372	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1373	           1        SP -= items;
  1374			    {
  1375			#line 720 "PPPort.xs"
  1376				mXPUSHi(-1);
  1377				mXPUSHi(2);
  1378				mXPUSHi(-3);
  1379				XSRETURN(3);
  1380			#line 1381 "PPPort.c"
  1381				PUTBACK;
  1382				return;
  1383			    }
  1384			}
  1385			
  1386			
  1387			XS(XS_Devel__PPPort_mXPUSHu); /* prototype to pass -Wmissing-prototypes */
  1388			XS(XS_Devel__PPPort_mXPUSHu)
  1389	           1    {
  1390	           1        dXSARGS;
  1391	           1        if (items != 0)
  1392	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::mXPUSHu()");
  1393	           1        PERL_UNUSED_VAR(cv); /* -W */
  1394	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1395	           1        SP -= items;
  1396			    {
  1397			#line 728 "PPPort.xs"
  1398				mXPUSHu(1);
  1399				mXPUSHu(2);
  1400				mXPUSHu(3);
  1401				XSRETURN(3);
  1402			#line 1403 "PPPort.c"
  1403				PUTBACK;
  1404				return;
  1405			    }
  1406			}
  1407			
  1408			
  1409			XS(XS_Devel__PPPort_MY_CXT_1); /* prototype to pass -Wmissing-prototypes */
  1410			XS(XS_Devel__PPPort_MY_CXT_1)
  1411	           1    {
  1412	           1        dXSARGS;
  1413	           1        if (items != 0)
  1414	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::MY_CXT_1()");
  1415	           1        PERL_UNUSED_VAR(cv); /* -W */
  1416			    {
  1417	           1    	int	RETVAL;
  1418	           1    	dXSTARG;
  1419			#line 740 "PPPort.xs"
  1420					dMY_CXT;
  1421					RETVAL = MY_CXT.dummy == 42;
  1422					++MY_CXT.dummy;
  1423			#line 1424 "PPPort.c"
  1424	           1    	XSprePUSH; PUSHi((IV)RETVAL);
  1425			    }
  1426	           1        XSRETURN(1);
  1427			}
  1428			
  1429			
  1430			XS(XS_Devel__PPPort_MY_CXT_2); /* prototype to pass -Wmissing-prototypes */
  1431			XS(XS_Devel__PPPort_MY_CXT_2)
  1432	           1    {
  1433	           1        dXSARGS;
  1434	           1        if (items != 0)
  1435	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::MY_CXT_2()");
  1436	           1        PERL_UNUSED_VAR(cv); /* -W */
  1437			    {
  1438	           1    	int	RETVAL;
  1439	           1    	dXSTARG;
  1440			#line 749 "PPPort.xs"
  1441					dMY_CXT;
  1442					RETVAL = MY_CXT.dummy == 43;
  1443			#line 1444 "PPPort.c"
  1444	           1    	XSprePUSH; PUSHi((IV)RETVAL);
  1445			    }
  1446	           1        XSRETURN(1);
  1447			}
  1448			
  1449			
  1450			XS(XS_Devel__PPPort_MY_CXT_CLONE); /* prototype to pass -Wmissing-prototypes */
  1451			XS(XS_Devel__PPPort_MY_CXT_CLONE)
  1452	           1    {
  1453	           1        dXSARGS;
  1454	           1        if (items != 0)
  1455	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::MY_CXT_CLONE()");
  1456	           1        PERL_UNUSED_VAR(cv); /* -W */
  1457			    {
  1458	           1    	int	RETVAL;
  1459	           1    	dXSTARG;
  1460			#line 757 "PPPort.xs"
  1461					MY_CXT_CLONE;
  1462					RETVAL = 42;
  1463			#line 1464 "PPPort.c"
  1464	           1    	XSprePUSH; PUSHi((IV)RETVAL);
  1465			    }
  1466	           1        XSRETURN(1);
  1467			}
  1468			
  1469			
  1470			XS(XS_Devel__PPPort_call_newCONSTSUB_1); /* prototype to pass -Wmissing-prototypes */
  1471			XS(XS_Devel__PPPort_call_newCONSTSUB_1)
  1472	           1    {
  1473	           1        dXSARGS;
  1474	           1        if (items != 0)
  1475	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::call_newCONSTSUB_1()");
  1476	           1        PERL_UNUSED_VAR(cv); /* -W */
  1477			    {
  1478			
  1479	           1    	call_newCONSTSUB_1();
  1480			    }
  1481	           1        XSRETURN_EMPTY;
  1482			}
  1483			
  1484			
  1485			XS(XS_Devel__PPPort_call_newCONSTSUB_2); /* prototype to pass -Wmissing-prototypes */
  1486			XS(XS_Devel__PPPort_call_newCONSTSUB_2)
  1487	           1    {
  1488	           1        dXSARGS;
  1489	           1        if (items != 0)
  1490	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::call_newCONSTSUB_2()");
  1491	           1        PERL_UNUSED_VAR(cv); /* -W */
  1492			    {
  1493			
  1494	           1    	call_newCONSTSUB_2();
  1495			    }
  1496	           1        XSRETURN_EMPTY;
  1497			}
  1498			
  1499			
  1500			XS(XS_Devel__PPPort_call_newCONSTSUB_3); /* prototype to pass -Wmissing-prototypes */
  1501			XS(XS_Devel__PPPort_call_newCONSTSUB_3)
  1502	           1    {
  1503	           1        dXSARGS;
  1504	           1        if (items != 0)
  1505	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::call_newCONSTSUB_3()");
  1506	           1        PERL_UNUSED_VAR(cv); /* -W */
  1507			    {
  1508			
  1509	           1    	call_newCONSTSUB_3();
  1510			    }
  1511	           1        XSRETURN_EMPTY;
  1512			}
  1513			
  1514			
  1515			XS(XS_Devel__PPPort_newRV_inc_REFCNT); /* prototype to pass -Wmissing-prototypes */
  1516			XS(XS_Devel__PPPort_newRV_inc_REFCNT)
  1517	           1    {
  1518	           1        dXSARGS;
  1519	           1        if (items != 0)
  1520	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::newRV_inc_REFCNT()");
  1521	           1        PERL_UNUSED_VAR(cv); /* -W */
  1522			    {
  1523			#line 782 "PPPort.xs"
  1524					SV *sv, *rv;
  1525			#line 1526 "PPPort.c"
  1526	           1    	U32	RETVAL;
  1527	           1    	dXSTARG;
  1528			#line 784 "PPPort.xs"
  1529					sv = newSViv(42);
  1530					rv = newRV_inc(sv);
  1531					SvREFCNT_dec(sv);
  1532					RETVAL = SvREFCNT(sv);
  1533					sv_2mortal(rv);
  1534			#line 1535 "PPPort.c"
  1535	           1    	XSprePUSH; PUSHu((UV)RETVAL);
  1536			    }
  1537	           1        XSRETURN(1);
  1538			}
  1539			
  1540			
  1541			XS(XS_Devel__PPPort_newRV_noinc_REFCNT); /* prototype to pass -Wmissing-prototypes */
  1542			XS(XS_Devel__PPPort_newRV_noinc_REFCNT)
  1543	           1    {
  1544	           1        dXSARGS;
  1545	           1        if (items != 0)
  1546	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::newRV_noinc_REFCNT()");
  1547	           1        PERL_UNUSED_VAR(cv); /* -W */
  1548			    {
  1549			#line 795 "PPPort.xs"
  1550					SV *sv, *rv;
  1551			#line 1552 "PPPort.c"
  1552	           1    	U32	RETVAL;
  1553	           1    	dXSTARG;
  1554			#line 797 "PPPort.xs"
  1555					sv = newSViv(42);
  1556					rv = newRV_noinc(sv);
  1557					RETVAL = SvREFCNT(sv);
  1558					sv_2mortal(rv);
  1559			#line 1560 "PPPort.c"
  1560	           1    	XSprePUSH; PUSHu((UV)RETVAL);
  1561			    }
  1562	           1        XSRETURN(1);
  1563			}
  1564			
  1565			
  1566			XS(XS_Devel__PPPort_vnewSVpvf); /* prototype to pass -Wmissing-prototypes */
  1567			XS(XS_Devel__PPPort_vnewSVpvf)
  1568	           1    {
  1569	           1        dXSARGS;
  1570	           1        if (items != 0)
  1571	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::vnewSVpvf()");
  1572	           1        PERL_UNUSED_VAR(cv); /* -W */
  1573			    {
  1574	           1    	SV *	RETVAL;
  1575			#line 811 "PPPort.xs"
  1576					RETVAL = test_vnewSVpvf(aTHX_ "%s-%d", "Perl", 42);
  1577			#line 1578 "PPPort.c"
  1578	           1    	ST(0) = RETVAL;
  1579	           1    	sv_2mortal(ST(0));
  1580			    }
  1581	           1        XSRETURN(1);
  1582			}
  1583			
  1584			
  1585			XS(XS_Devel__PPPort_sv_vcatpvf); /* prototype to pass -Wmissing-prototypes */
  1586			XS(XS_Devel__PPPort_sv_vcatpvf)
  1587	           1    {
  1588	           1        dXSARGS;
  1589	           1        if (items != 1)
  1590	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_vcatpvf(sv)");
  1591	           1        PERL_UNUSED_VAR(cv); /* -W */
  1592			    {
  1593	           1    	SV *	sv = ST(0);
  1594	           1    	SV *	RETVAL;
  1595			#line 819 "PPPort.xs"
  1596					RETVAL = newSVsv(sv);
  1597					test_sv_vcatpvf(aTHX_ RETVAL, "%s-%d", "Perl", 42);
  1598			#line 1599 "PPPort.c"
  1599	           1    	ST(0) = RETVAL;
  1600	           1    	sv_2mortal(ST(0));
  1601			    }
  1602	           1        XSRETURN(1);
  1603			}
  1604			
  1605			
  1606			XS(XS_Devel__PPPort_sv_vsetpvf); /* prototype to pass -Wmissing-prototypes */
  1607			XS(XS_Devel__PPPort_sv_vsetpvf)
  1608	           1    {
  1609	           1        dXSARGS;
  1610	           1        if (items != 1)
  1611	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_vsetpvf(sv)");
  1612	           1        PERL_UNUSED_VAR(cv); /* -W */
  1613			    {
  1614	           1    	SV *	sv = ST(0);
  1615	           1    	SV *	RETVAL;
  1616			#line 828 "PPPort.xs"
  1617					RETVAL = newSVsv(sv);
  1618					test_sv_vsetpvf(aTHX_ RETVAL, "%s-%d", "Perl", 42);
  1619			#line 1620 "PPPort.c"
  1620	           1    	ST(0) = RETVAL;
  1621	           1    	sv_2mortal(ST(0));
  1622			    }
  1623	           1        XSRETURN(1);
  1624			}
  1625			
  1626			
  1627			XS(XS_Devel__PPPort_sv_catpvf_mg); /* prototype to pass -Wmissing-prototypes */
  1628			XS(XS_Devel__PPPort_sv_catpvf_mg)
  1629	           1    {
  1630	           1        dXSARGS;
  1631	           1        if (items != 1)
  1632	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_catpvf_mg(sv)");
  1633	           1        PERL_UNUSED_VAR(cv); /* -W */
  1634			    {
  1635	           1    	SV *	sv = ST(0);
  1636			#line 837 "PPPort.xs"
  1637			#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0)))
  1638					sv_catpvf_mg(sv, "%s-%d", "Perl", 42);
  1639			#endif
  1640			#line 1641 "PPPort.c"
  1641			    }
  1642	           1        XSRETURN_EMPTY;
  1643			}
  1644			
  1645			
  1646			XS(XS_Devel__PPPort_Perl_sv_catpvf_mg); /* prototype to pass -Wmissing-prototypes */
  1647			XS(XS_Devel__PPPort_Perl_sv_catpvf_mg)
  1648	           1    {
  1649	           1        dXSARGS;
  1650	           1        if (items != 1)
  1651	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::Perl_sv_catpvf_mg(sv)");
  1652	           1        PERL_UNUSED_VAR(cv); /* -W */
  1653			    {
  1654	           1    	SV *	sv = ST(0);
  1655			#line 845 "PPPort.xs"
  1656			#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0)))
  1657					Perl_sv_catpvf_mg(aTHX_ sv, "%s-%d", "-Perl", 43);
  1658			#endif
  1659			#line 1660 "PPPort.c"
  1660			    }
  1661	           1        XSRETURN_EMPTY;
  1662			}
  1663			
  1664			
  1665			XS(XS_Devel__PPPort_sv_catpvf_mg_nocontext); /* prototype to pass -Wmissing-prototypes */
  1666			XS(XS_Devel__PPPort_sv_catpvf_mg_nocontext)
  1667	           1    {
  1668	           1        dXSARGS;
  1669	           1        if (items != 1)
  1670	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_catpvf_mg_nocontext(sv)");
  1671	           1        PERL_UNUSED_VAR(cv); /* -W */
  1672			    {
  1673	           1    	SV *	sv = ST(0);
  1674			#line 853 "PPPort.xs"
  1675			#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0)))
  1676			#ifdef PERL_IMPLICIT_CONTEXT
  1677					sv_catpvf_mg_nocontext(sv, "%s-%d", "-Perl", 44);
  1678			#else
  1679					sv_catpvf_mg(sv, "%s-%d", "-Perl", 44);
  1680			#endif
  1681			#endif
  1682			#line 1683 "PPPort.c"
  1683			    }
  1684	           1        XSRETURN_EMPTY;
  1685			}
  1686			
  1687			
  1688			XS(XS_Devel__PPPort_sv_setpvf_mg); /* prototype to pass -Wmissing-prototypes */
  1689			XS(XS_Devel__PPPort_sv_setpvf_mg)
  1690	           1    {
  1691	           1        dXSARGS;
  1692	           1        if (items != 1)
  1693	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_setpvf_mg(sv)");
  1694	           1        PERL_UNUSED_VAR(cv); /* -W */
  1695			    {
  1696	           1    	SV *	sv = ST(0);
  1697			#line 865 "PPPort.xs"
  1698			#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0)))
  1699					sv_setpvf_mg(sv, "%s-%d", "mhx", 42);
  1700			#endif
  1701			#line 1702 "PPPort.c"
  1702			    }
  1703	           1        XSRETURN_EMPTY;
  1704			}
  1705			
  1706			
  1707			XS(XS_Devel__PPPort_Perl_sv_setpvf_mg); /* prototype to pass -Wmissing-prototypes */
  1708			XS(XS_Devel__PPPort_Perl_sv_setpvf_mg)
  1709	           1    {
  1710	           1        dXSARGS;
  1711	           1        if (items != 1)
  1712	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::Perl_sv_setpvf_mg(sv)");
  1713	           1        PERL_UNUSED_VAR(cv); /* -W */
  1714			    {
  1715	           1    	SV *	sv = ST(0);
  1716			#line 873 "PPPort.xs"
  1717			#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0)))
  1718					Perl_sv_setpvf_mg(aTHX_ sv, "%s-%d", "foo", 43);
  1719			#endif
  1720			#line 1721 "PPPort.c"
  1721			    }
  1722	           1        XSRETURN_EMPTY;
  1723			}
  1724			
  1725			
  1726			XS(XS_Devel__PPPort_sv_setpvf_mg_nocontext); /* prototype to pass -Wmissing-prototypes */
  1727			XS(XS_Devel__PPPort_sv_setpvf_mg_nocontext)
  1728	           1    {
  1729	           1        dXSARGS;
  1730	           1        if (items != 1)
  1731	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_setpvf_mg_nocontext(sv)");
  1732	           1        PERL_UNUSED_VAR(cv); /* -W */
  1733			    {
  1734	           1    	SV *	sv = ST(0);
  1735			#line 881 "PPPort.xs"
  1736			#if ((PERL_VERSION > 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION >= 0)))
  1737			#ifdef PERL_IMPLICIT_CONTEXT
  1738					sv_setpvf_mg_nocontext(sv, "%s-%d", "bar", 44);
  1739			#else
  1740					sv_setpvf_mg(sv, "%s-%d", "bar", 44);
  1741			#endif
  1742			#endif
  1743			#line 1744 "PPPort.c"
  1744			    }
  1745	           1        XSRETURN_EMPTY;
  1746			}
  1747			
  1748			
  1749			XS(XS_Devel__PPPort_SvPVbyte); /* prototype to pass -Wmissing-prototypes */
  1750			XS(XS_Devel__PPPort_SvPVbyte)
  1751	           1    {
  1752	           1        dXSARGS;
  1753	           1        if (items != 1)
  1754	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::SvPVbyte(sv)");
  1755	           1        PERL_UNUSED_VAR(cv); /* -W */
  1756			    {
  1757	           1    	SV *	sv = ST(0);
  1758			#line 897 "PPPort.xs"
  1759					STRLEN len;
  1760					const char *str;
  1761			#line 1762 "PPPort.c"
  1762	           1    	IV	RETVAL;
  1763	           1    	dXSTARG;
  1764			#line 900 "PPPort.xs"
  1765					str = SvPVbyte(sv, len);
  1766					RETVAL = strEQ(str, "mhx") ? len : -1;
  1767			#line 1768 "PPPort.c"
  1768	           1    	XSprePUSH; PUSHi((IV)RETVAL);
  1769			    }
  1770	           1        XSRETURN(1);
  1771			}
  1772			
  1773			
  1774			XS(XS_Devel__PPPort_SvPV_nolen); /* prototype to pass -Wmissing-prototypes */
  1775			XS(XS_Devel__PPPort_SvPV_nolen)
  1776	           1    {
  1777	           1        dXSARGS;
  1778	           1        if (items != 1)
  1779	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::SvPV_nolen(sv)");
  1780	           1        PERL_UNUSED_VAR(cv); /* -W */
  1781			    {
  1782	           1    	SV *	sv = ST(0);
  1783			#line 909 "PPPort.xs"
  1784					const char *str;
  1785			#line 1786 "PPPort.c"
  1786	           1    	IV	RETVAL;
  1787	           1    	dXSTARG;
  1788			#line 911 "PPPort.xs"
  1789					str = SvPV_nolen(sv);
  1790					RETVAL = strEQ(str, "mhx") ? 42 : 0;
  1791			#line 1792 "PPPort.c"
  1792	           1    	XSprePUSH; PUSHi((IV)RETVAL);
  1793			    }
  1794	           1        XSRETURN(1);
  1795			}
  1796			
  1797			
  1798			XS(XS_Devel__PPPort_no_THX_arg); /* prototype to pass -Wmissing-prototypes */
  1799			XS(XS_Devel__PPPort_no_THX_arg)
  1800	           1    {
  1801	           1        dXSARGS;
  1802	           1        if (items != 1)
  1803	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::no_THX_arg(sv)");
  1804	           1        PERL_UNUSED_VAR(cv); /* -W */
  1805			    {
  1806	           1    	SV *	sv = ST(0);
  1807	           1    	IV	RETVAL;
  1808	           1    	dXSTARG;
  1809			#line 924 "PPPort.xs"
  1810					RETVAL = 1 + sv_2iv(sv);
  1811			#line 1812 "PPPort.c"
  1812	           1    	XSprePUSH; PUSHi((IV)RETVAL);
  1813			    }
  1814	           1        XSRETURN(1);
  1815			}
  1816			
  1817			
  1818			XS(XS_Devel__PPPort_with_THX_arg); /* prototype to pass -Wmissing-prototypes */
  1819			XS(XS_Devel__PPPort_with_THX_arg)
  1820	           1    {
  1821	           1        dXSARGS;
  1822	           1        if (items != 1)
  1823	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::with_THX_arg(error)");
  1824	           1        PERL_UNUSED_VAR(cv); /* -W */
  1825	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1826	           1        SP -= items;
  1827			    {
  1828	           1    	char *	error = (char *)SvPV_nolen(ST(0));
  1829			#line 932 "PPPort.xs"
  1830					Perl_croak(aTHX_ "%s", error);
  1831			#line 1832 "PPPort.c"
  1832				PUTBACK;
  1833				return;
  1834			    }
  1835			}
  1836			
  1837			
  1838			XS(XS_Devel__PPPort_sv_setuv); /* prototype to pass -Wmissing-prototypes */
  1839			XS(XS_Devel__PPPort_sv_setuv)
  1840	           1    {
  1841	           1        dXSARGS;
  1842	           1        if (items != 1)
  1843	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_setuv(uv)");
  1844	           1        PERL_UNUSED_VAR(cv); /* -W */
  1845			    {
  1846	           1    	UV	uv = (UV)SvUV(ST(0));
  1847	           1    	SV *	RETVAL;
  1848			#line 942 "PPPort.xs"
  1849					RETVAL = newSViv(1);
  1850					sv_setuv(RETVAL, uv);
  1851			#line 1852 "PPPort.c"
  1852	           1    	ST(0) = RETVAL;
  1853	           1    	sv_2mortal(ST(0));
  1854			    }
  1855	           1        XSRETURN(1);
  1856			}
  1857			
  1858			
  1859			XS(XS_Devel__PPPort_newSVuv); /* prototype to pass -Wmissing-prototypes */
  1860			XS(XS_Devel__PPPort_newSVuv)
  1861	           1    {
  1862	           1        dXSARGS;
  1863	           1        if (items != 1)
  1864	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::newSVuv(uv)");
  1865	           1        PERL_UNUSED_VAR(cv); /* -W */
  1866			    {
  1867	           1    	UV	uv = (UV)SvUV(ST(0));
  1868	           1    	SV *	RETVAL;
  1869			#line 951 "PPPort.xs"
  1870					RETVAL = newSVuv(uv);
  1871			#line 1872 "PPPort.c"
  1872	           1    	ST(0) = RETVAL;
  1873	           1    	sv_2mortal(ST(0));
  1874			    }
  1875	           1        XSRETURN(1);
  1876			}
  1877			
  1878			
  1879			XS(XS_Devel__PPPort_sv_2uv); /* prototype to pass -Wmissing-prototypes */
  1880			XS(XS_Devel__PPPort_sv_2uv)
  1881	           2    {
  1882	           2        dXSARGS;
  1883	           2        if (items != 1)
  1884	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::sv_2uv(sv)");
  1885	           2        PERL_UNUSED_VAR(cv); /* -W */
  1886			    {
  1887	           2    	SV *	sv = ST(0);
  1888	           2    	UV	RETVAL;
  1889	           2    	dXSTARG;
  1890			#line 959 "PPPort.xs"
  1891					RETVAL = sv_2uv(sv);
  1892			#line 1893 "PPPort.c"
  1893	           2    	XSprePUSH; PUSHu((UV)RETVAL);
  1894			    }
  1895	           2        XSRETURN(1);
  1896			}
  1897			
  1898			
  1899			XS(XS_Devel__PPPort_SvUVx); /* prototype to pass -Wmissing-prototypes */
  1900			XS(XS_Devel__PPPort_SvUVx)
  1901	           3    {
  1902	           3        dXSARGS;
  1903	           3        if (items != 1)
  1904	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::SvUVx(sv)");
  1905	           3        PERL_UNUSED_VAR(cv); /* -W */
  1906			    {
  1907	           3    	SV *	sv = ST(0);
  1908	           3    	UV	RETVAL;
  1909	           3    	dXSTARG;
  1910			#line 967 "PPPort.xs"
  1911					sv--;
  1912					RETVAL = SvUVx(++sv);
  1913			#line 1914 "PPPort.c"
  1914	           3    	XSprePUSH; PUSHu((UV)RETVAL);
  1915			    }
  1916	           3        XSRETURN(1);
  1917			}
  1918			
  1919			
  1920			XS(XS_Devel__PPPort_XSRETURN_UV); /* prototype to pass -Wmissing-prototypes */
  1921			XS(XS_Devel__PPPort_XSRETURN_UV)
  1922	           1    {
  1923	           1        dXSARGS;
  1924	           1        if (items != 0)
  1925	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::XSRETURN_UV()");
  1926	           1        PERL_UNUSED_VAR(cv); /* -W */
  1927	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1928	           1        SP -= items;
  1929			    {
  1930			#line 975 "PPPort.xs"
  1931					XSRETURN_UV(42);
  1932			#line 1933 "PPPort.c"
  1933				PUTBACK;
  1934				return;
  1935			    }
  1936			}
  1937			
  1938			
  1939			XS(XS_Devel__PPPort_PUSHu); /* prototype to pass -Wmissing-prototypes */
  1940			XS(XS_Devel__PPPort_PUSHu)
  1941	           1    {
  1942	           1        dXSARGS;
  1943	           1        if (items != 0)
  1944	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::PUSHu()");
  1945	           1        PERL_UNUSED_VAR(cv); /* -W */
  1946	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1947	           1        SP -= items;
  1948			    {
  1949			#line 980 "PPPort.xs"
  1950					dTARG;
  1951			#line 1952 "PPPort.c"
  1952			#line 982 "PPPort.xs"
  1953					TARG = sv_newmortal();
  1954					EXTEND(SP, 1);
  1955					PUSHu(42);
  1956					XSRETURN(1);
  1957			#line 1958 "PPPort.c"
  1958				PUTBACK;
  1959				return;
  1960			    }
  1961			}
  1962			
  1963			
  1964			XS(XS_Devel__PPPort_XPUSHu); /* prototype to pass -Wmissing-prototypes */
  1965			XS(XS_Devel__PPPort_XPUSHu)
  1966	           1    {
  1967	           1        dXSARGS;
  1968	           1        if (items != 0)
  1969	      ######    	Perl_croak(aTHX_ "Usage: Devel::PPPort::XPUSHu()");
  1970	           1        PERL_UNUSED_VAR(cv); /* -W */
  1971	           1        PERL_UNUSED_VAR(ax); /* -Wall */
  1972	           1        SP -= items;
  1973			    {
  1974			#line 990 "PPPort.xs"
  1975					dTARG;
  1976			#line 1977 "PPPort.c"
  1977			#line 992 "PPPort.xs"
  1978					TARG = sv_newmortal();
  1979					XPUSHu(43);
  1980					XSRETURN(1);
  1981			#line 1982 "PPPort.c"
  1982				PUTBACK;
  1983				return;
  1984			    }
  1985			}
  1986			
  1987			#ifdef __cplusplus
  1988			extern "C"
  1989			#endif
  1990			XS(boot_Devel__PPPort); /* prototype to pass -Wmissing-prototypes */
  1991			XS(boot_Devel__PPPort)
  1992	          21    {
  1993	          21        dXSARGS;
  1994	          21        char* file = __FILE__;
  1995			
  1996	          21        PERL_UNUSED_VAR(cv); /* -W */
  1997	          21        PERL_UNUSED_VAR(items); /* -W */
  1998	          21        XS_VERSION_BOOTCHECK ;
  1999			
  2000	          21            newXS("Devel::PPPort::G_SCALAR", XS_Devel__PPPort_G_SCALAR, file);
  2001	          21            newXS("Devel::PPPort::G_ARRAY", XS_Devel__PPPort_G_ARRAY, file);
  2002	          21            newXS("Devel::PPPort::G_DISCARD", XS_Devel__PPPort_G_DISCARD, file);
  2003	          21            newXS("Devel::PPPort::eval_sv", XS_Devel__PPPort_eval_sv, file);
  2004	          21            newXS("Devel::PPPort::eval_pv", XS_Devel__PPPort_eval_pv, file);
  2005	          21            newXS("Devel::PPPort::call_sv", XS_Devel__PPPort_call_sv, file);
  2006	          21            newXS("Devel::PPPort::call_pv", XS_Devel__PPPort_call_pv, file);
  2007	          21            newXS("Devel::PPPort::call_argv", XS_Devel__PPPort_call_argv, file);
  2008	          21            newXS("Devel::PPPort::call_method", XS_Devel__PPPort_call_method, file);
  2009	          21            newXS("Devel::PPPort::CopSTASHPV", XS_Devel__PPPort_CopSTASHPV, file);
  2010	          21            newXS("Devel::PPPort::CopFILE", XS_Devel__PPPort_CopFILE, file);
  2011	          21            newXS("Devel::PPPort::exception", XS_Devel__PPPort_exception, file);
  2012	          21            newXS("Devel::PPPort::grok_number", XS_Devel__PPPort_grok_number, file);
  2013	          21            newXS("Devel::PPPort::grok_bin", XS_Devel__PPPort_grok_bin, file);
  2014	          21            newXS("Devel::PPPort::grok_hex", XS_Devel__PPPort_grok_hex, file);
  2015	          21            newXS("Devel::PPPort::grok_oct", XS_Devel__PPPort_grok_oct, file);
  2016	          21            newXS("Devel::PPPort::Perl_grok_number", XS_Devel__PPPort_Perl_grok_number, file);
  2017	          21            newXS("Devel::PPPort::Perl_grok_bin", XS_Devel__PPPort_Perl_grok_bin, file);
  2018	          21            newXS("Devel::PPPort::Perl_grok_hex", XS_Devel__PPPort_Perl_grok_hex, file);
  2019	          21            newXS("Devel::PPPort::Perl_grok_oct", XS_Devel__PPPort_Perl_grok_oct, file);
  2020	          21            newXS("Devel::PPPort::iv_size", XS_Devel__PPPort_iv_size, file);
  2021	          21            newXS("Devel::PPPort::uv_size", XS_Devel__PPPort_uv_size, file);
  2022	          21            newXS("Devel::PPPort::iv_type", XS_Devel__PPPort_iv_type, file);
  2023	          21            newXS("Devel::PPPort::uv_type", XS_Devel__PPPort_uv_type, file);
  2024	          21            newXS("Devel::PPPort::sv_catpv_mg", XS_Devel__PPPort_sv_catpv_mg, file);
  2025	          21            newXS("Devel::PPPort::sv_catpvn_mg", XS_Devel__PPPort_sv_catpvn_mg, file);
  2026	          21            newXS("Devel::PPPort::sv_catsv_mg", XS_Devel__PPPort_sv_catsv_mg, file);
  2027	          21            newXS("Devel::PPPort::sv_setiv_mg", XS_Devel__PPPort_sv_setiv_mg, file);
  2028	          21            newXS("Devel::PPPort::sv_setnv_mg", XS_Devel__PPPort_sv_setnv_mg, file);
  2029	          21            newXS("Devel::PPPort::sv_setpv_mg", XS_Devel__PPPort_sv_setpv_mg, file);
  2030	          21            newXS("Devel::PPPort::sv_setpvn_mg", XS_Devel__PPPort_sv_setpvn_mg, file);
  2031	          21            newXS("Devel::PPPort::sv_setsv_mg", XS_Devel__PPPort_sv_setsv_mg, file);
  2032	          21            newXS("Devel::PPPort::sv_setuv_mg", XS_Devel__PPPort_sv_setuv_mg, file);
  2033	          21            newXS("Devel::PPPort::sv_usepvn_mg", XS_Devel__PPPort_sv_usepvn_mg, file);
  2034	          21            newXS("Devel::PPPort::gv_stashpvn", XS_Devel__PPPort_gv_stashpvn, file);
  2035	          21            newXS("Devel::PPPort::get_sv", XS_Devel__PPPort_get_sv, file);
  2036	          21            newXS("Devel::PPPort::get_av", XS_Devel__PPPort_get_av, file);
  2037	          21            newXS("Devel::PPPort::get_hv", XS_Devel__PPPort_get_hv, file);
  2038	          21            newXS("Devel::PPPort::get_cv", XS_Devel__PPPort_get_cv, file);
  2039	          21            newXS("Devel::PPPort::newSVpvn", XS_Devel__PPPort_newSVpvn, file);
  2040	          21            newXS("Devel::PPPort::PL_sv_undef", XS_Devel__PPPort_PL_sv_undef, file);
  2041	          21            newXS("Devel::PPPort::PL_sv_yes", XS_Devel__PPPort_PL_sv_yes, file);
  2042	          21            newXS("Devel::PPPort::PL_sv_no", XS_Devel__PPPort_PL_sv_no, file);
  2043	          21            newXS("Devel::PPPort::PL_na", XS_Devel__PPPort_PL_na, file);
  2044	          21            newXS("Devel::PPPort::boolSV", XS_Devel__PPPort_boolSV, file);
  2045	          21            newXS("Devel::PPPort::DEFSV", XS_Devel__PPPort_DEFSV, file);
  2046	          21            newXS("Devel::PPPort::ERRSV", XS_Devel__PPPort_ERRSV, file);
  2047	          21            newXS("Devel::PPPort::UNDERBAR", XS_Devel__PPPort_UNDERBAR, file);
  2048	          21            newXS("Devel::PPPort::mPUSHp", XS_Devel__PPPort_mPUSHp, file);
  2049	          21            newXS("Devel::PPPort::mPUSHn", XS_Devel__PPPort_mPUSHn, file);
  2050	          21            newXS("Devel::PPPort::mPUSHi", XS_Devel__PPPort_mPUSHi, file);
  2051	          21            newXS("Devel::PPPort::mPUSHu", XS_Devel__PPPort_mPUSHu, file);
  2052	          21            newXS("Devel::PPPort::mXPUSHp", XS_Devel__PPPort_mXPUSHp, file);
  2053	          21            newXS("Devel::PPPort::mXPUSHn", XS_Devel__PPPort_mXPUSHn, file);
  2054	          21            newXS("Devel::PPPort::mXPUSHi", XS_Devel__PPPort_mXPUSHi, file);
  2055	          21            newXS("Devel::PPPort::mXPUSHu", XS_Devel__PPPort_mXPUSHu, file);
  2056	          21            newXS("Devel::PPPort::MY_CXT_1", XS_Devel__PPPort_MY_CXT_1, file);
  2057	          21            newXS("Devel::PPPort::MY_CXT_2", XS_Devel__PPPort_MY_CXT_2, file);
  2058	          21            newXS("Devel::PPPort::MY_CXT_CLONE", XS_Devel__PPPort_MY_CXT_CLONE, file);
  2059	          21            newXS("Devel::PPPort::call_newCONSTSUB_1", XS_Devel__PPPort_call_newCONSTSUB_1, file);
  2060	          21            newXS("Devel::PPPort::call_newCONSTSUB_2", XS_Devel__PPPort_call_newCONSTSUB_2, file);
  2061	          21            newXS("Devel::PPPort::call_newCONSTSUB_3", XS_Devel__PPPort_call_newCONSTSUB_3, file);
  2062	          21            newXS("Devel::PPPort::newRV_inc_REFCNT", XS_Devel__PPPort_newRV_inc_REFCNT, file);
  2063	          21            newXS("Devel::PPPort::newRV_noinc_REFCNT", XS_Devel__PPPort_newRV_noinc_REFCNT, file);
  2064	          21            newXS("Devel::PPPort::vnewSVpvf", XS_Devel__PPPort_vnewSVpvf, file);
  2065	          21            newXS("Devel::PPPort::sv_vcatpvf", XS_Devel__PPPort_sv_vcatpvf, file);
  2066	          21            newXS("Devel::PPPort::sv_vsetpvf", XS_Devel__PPPort_sv_vsetpvf, file);
  2067	          21            newXS("Devel::PPPort::sv_catpvf_mg", XS_Devel__PPPort_sv_catpvf_mg, file);
  2068	          21            newXS("Devel::PPPort::Perl_sv_catpvf_mg", XS_Devel__PPPort_Perl_sv_catpvf_mg, file);
  2069	          21            newXS("Devel::PPPort::sv_catpvf_mg_nocontext", XS_Devel__PPPort_sv_catpvf_mg_nocontext, file);
  2070	          21            newXS("Devel::PPPort::sv_setpvf_mg", XS_Devel__PPPort_sv_setpvf_mg, file);
  2071	          21            newXS("Devel::PPPort::Perl_sv_setpvf_mg", XS_Devel__PPPort_Perl_sv_setpvf_mg, file);
  2072	          21            newXS("Devel::PPPort::sv_setpvf_mg_nocontext", XS_Devel__PPPort_sv_setpvf_mg_nocontext, file);
  2073	          21            newXS("Devel::PPPort::SvPVbyte", XS_Devel__PPPort_SvPVbyte, file);
  2074	          21            newXS("Devel::PPPort::SvPV_nolen", XS_Devel__PPPort_SvPV_nolen, file);
  2075	          21            newXS("Devel::PPPort::no_THX_arg", XS_Devel__PPPort_no_THX_arg, file);
  2076	          21            newXS("Devel::PPPort::with_THX_arg", XS_Devel__PPPort_with_THX_arg, file);
  2077	          21            newXS("Devel::PPPort::sv_setuv", XS_Devel__PPPort_sv_setuv, file);
  2078	          21            newXS("Devel::PPPort::newSVuv", XS_Devel__PPPort_newSVuv, file);
  2079	          21            newXS("Devel::PPPort::sv_2uv", XS_Devel__PPPort_sv_2uv, file);
  2080	          21            newXS("Devel::PPPort::SvUVx", XS_Devel__PPPort_SvUVx, file);
  2081	          21            newXS("Devel::PPPort::XSRETURN_UV", XS_Devel__PPPort_XSRETURN_UV, file);
  2082	          21            newXS("Devel::PPPort::PUSHu", XS_Devel__PPPort_PUSHu, file);
  2083	          21            newXS("Devel::PPPort::XPUSHu", XS_Devel__PPPort_XPUSHu, file);
  2084			
  2085			    /* Initialisation Section */
  2086			
  2087			#line 154 "PPPort.xs"
  2088				/* ---- from parts/inc/misc ---- */
  2089				newXS("Devel::PPPort::dXSTARG", XS_Devel__PPPort_dXSTARG, file);
  2090			
  2091				/* ---- from parts/inc/MY_CXT ---- */
  2092				{
  2093				  MY_CXT_INIT;
  2094				  /* If any of the fields in the my_cxt_t struct need
  2095				   * to be initialised, do it here.
  2096				   */
  2097				  MY_CXT.dummy = 42;
  2098				}
  2099			
  2100			#line 2101 "PPPort.c"
  2101			
  2102			    /* End of Initialisation Section */
  2103			
  2104	          21        XSRETURN_YES;
  2105			}
  2106