RealPPPort.c

Bug Summary

File:	obj/gnu/usr.bin/perl/dist/Devel-PPPort/RealPPPort.c
Warning:	line 5669, column 6 Value stored to 'offset' during its initialization is never read

Annotated Source Code

Press '?' to see keyboard shortcuts

Show analyzer invocation

clang -cc1 -cc1 -triple amd64-unknown-openbsd7.0 -analyze -disable-free -disable-llvm-verifier -discard-value-names -main-file-name RealPPPort.c -analyzer-store=region -analyzer-opt-analyze-nested-blocks -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 1 -fhalf-no-semantic-interposition -fno-delete-null-pointer-checks -mframe-pointer=all -relaxed-aliasing -fno-rounding-math -mconstructor-aliases -munwind-tables -target-cpu x86-64 -target-feature +retpoline-indirect-calls -target-feature +retpoline-indirect-branches -tune-cpu generic -debugger-tuning=gdb -fcoverage-compilation-dir=/usr/obj/gnu/usr.bin/perl/dist/Devel-PPPort -resource-dir /usr/local/lib/clang/13.0.0 -D NO_LOCALE_NUMERIC -D NO_LOCALE_COLLATE -D VERSION="3.57" -D XS_VERSION="3.57" -D PIC -I ../.. -internal-isystem /usr/local/lib/clang/13.0.0/include -internal-externc-isystem /usr/include -O2 -Wwrite-strings -fconst-strings -fdebug-compilation-dir=/usr/obj/gnu/usr.bin/perl/dist/Devel-PPPort -ferror-limit 19 -fwrapv -D_RET_PROTECTOR -ret-protector -fgnuc-version=4.2.1 -vectorize-loops -vectorize-slp -fno-builtin-malloc -fno-builtin-calloc -fno-builtin-realloc -fno-builtin-valloc -fno-builtin-free -fno-builtin-strdup -fno-builtin-strndup -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /home/ben/Projects/vmm/scan-build/2022-01-12-194120-40624-1 -x c RealPPPort.c

1	/*
2	* This file was generated automatically by ExtUtils::ParseXS version 3.40 from the
3	* contents of RealPPPort.xs. Do not edit this file, edit RealPPPort.xs instead.
4	*
5	* ANY CHANGES MADE HERE WILL BE LOST!
6	*
7	*/
8
9	#line 1 "RealPPPort.xs"
10	/*******************************************************************************
11	*
12	* !!!!! Do NOT edit this file directly! -- Edit RealPPPort_xs.PL instead. !!!!!
13	*
14	* This file was automatically generated from the definition files in the
15	* parts/inc/ subdirectory by PPPort_xs.PL. To learn more about how all this
16	* works, please read the F<HACKERS> file that came with this distribution.
17	*
18	********************************************************************************
19	*
20	* Perl/Pollution/Portability
21	*
22	********************************************************************************
23	*
24	* Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
25	* Version 2.x, Copyright (C) 2001, Paul Marquess.
26	* Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
27	*
28	* This program is free software; you can redistribute it and/or
29	* modify it under the same terms as Perl itself.
30	*
31	*******************************************************************************/
32
33	/* ========== BEGIN XSHEAD ================================================== */
34
35	#define PERL_NO_GET_CONTEXT
36
37	/* =========== END XSHEAD =================================================== */
38
39	#include "EXTERN.h"
40	#include "perl.h"
41	#include "XSUB.h"
42
43	/* ========== BEGIN XSINIT ================================================== */
44
45	/* ---- code from parts/inc/call ---- */
46	#define NEED_eval_pv
47	#define NEED_load_module
48	#define NEED_vload_module
49
50	/* ---- code from parts/inc/cop ---- */
51	#define NEED_caller_cx
52
53	/* ---- code from parts/inc/grok ---- */
54	#define NEED_grok_number
55	#define NEED_grok_numeric_radix
56	#define NEED_grok_bin
57	#define NEED_grok_hex
58	#define NEED_grok_oct
59
60	/* ---- code from parts/inc/magic ---- */
61	#define NEED_mg_findext
62	#define NEED_sv_unmagicext
63
64	#ifndef STATICstatic
65	#define STATICstatic static
66	#endif
67
68	STATICstatic MGVTBL null_mg_vtbl = {
69	NULL((void)0), / get */
70	NULL((void)0), / set */
71	NULL((void)0), / len */
72	NULL((void)0), / clear */
73	NULL((void)0), / free */
74	#if MGf_COPY8
75	NULL((void)0), / copy */
76	#endif /* MGf_COPY */
77	#if MGf_DUP0x10
78	NULL((void)0), / dup */
79	#endif /* MGf_DUP */
80	#if MGf_LOCAL0x20
81	NULL((void)0), / local */
82	#endif /* MGf_LOCAL */
83	};
84
85	STATICstatic MGVTBL other_mg_vtbl = {
86	NULL((void)0), / get */
87	NULL((void)0), / set */
88	NULL((void)0), / len */
89	NULL((void)0), / clear */
90	NULL((void)0), / free */
91	#if MGf_COPY8
92	NULL((void)0), / copy */
93	#endif /* MGf_COPY */
94	#if MGf_DUP0x10
95	NULL((void)0), / dup */
96	#endif /* MGf_DUP */
97	#if MGf_LOCAL0x20
98	NULL((void)0), / local */
99	#endif /* MGf_LOCAL */
100	};
101
102	/* ---- code from parts/inc/mess ---- */
103	#define NEED_die_sv
104	#define NEED_mess_sv
105	#define NEED_croak_xs_usage
106
107	/* ---- code from parts/inc/newCONSTSUB ---- */
108	#define NEED_newCONSTSUB
109
110	/* ---- code from parts/inc/pv_tools ---- */
111	#define NEED_pv_escape
112	#define NEED_pv_pretty
113	#define NEED_pv_display
114
115	/* ---- code from parts/inc/pvs ---- */
116	#define NEED_newSVpvn_share
117
118	/* ---- code from parts/inc/shared_pv ---- */
119	#define NEED_newSVpvn_share
120
121	/* ---- code from parts/inc/snprintf ---- */
122	#define NEED_my_snprintf
123
124	/* ---- code from parts/inc/sprintf ---- */
125	#define NEED_my_sprintf
126
127	/* ---- code from parts/inc/strlfuncs ---- */
128	#define NEED_my_strlcat
129	#define NEED_my_strlcpy
130
131	/* ---- code from parts/inc/sv_xpvf ---- */
132	#define NEED_sv_catpvf_mg
133	#define NEED_sv_catpvf_mg_nocontext
134	#define NEED_sv_setpvf_mg
135	#define NEED_sv_setpvf_mg_nocontext
136
137	/* ---- code from parts/inc/utf8 ---- */
138	#define NEED_utf8_to_uvchr_buf
139
140	/* ---- code from parts/inc/uv ---- */
141	#define NEED_my_strnlen
142
143	/* ---- code from parts/inc/variables ---- */
144	#define NEED_PL_signals
145	#define NEED_PL_parser
146	#define DPPP_PL_parser_NO_DUMMY_WARNING
147
148	/* ---- code from parts/inc/warn ---- */
149	#define NEED_warner
150
151	/* =========== END XSINIT =================================================== */
152
153	#include "ppport.h"
154
155	/* ========== BEGIN XSMISC ================================================== */
156
157	/* ---- code from parts/inc/MY_CXT ---- */
158	#define MY_CXT_KEY"Devel::PPPort::_guts" "3.57" "Devel::PPPort::_guts" XS_VERSION"3.57"
159
160	typedef struct {
161	/* Put Global Data in here */
162	int dummy;
163	} my_cxt_t;
164
165	START_MY_CXTstatic my_cxt_t my_cxt;
166
167	/* ---- code from parts/inc/exception ---- */
168	/* defined in module3.c */
169	int exception(int throw_e);
170
171	/* ---- code from parts/inc/mess ---- */
172	static IV counter;
173	static void reset_counter(void) { counter = 0; }
174	static void inc_counter(void) { counter++; }
175
176	/* ---- code from parts/inc/misc ---- */
177	typedef XSPROTO(XSPROTO_test_t)void XSPROTO_test_t( CV* cv __attribute__((unused)));
178	typedef XSPROTO_test_t *XSPROTO_test_t_ptr;
179
180	XS(XS_Devel__PPPort_dXSTARG)void XS_Devel__PPPort_dXSTARG( CV* cv __attribute__((unused)) ); /* prototype */
181	XS(XS_Devel__PPPort_dXSTARG)void XS_Devel__PPPort_dXSTARG( CV* cv __attribute__((unused)) )
182	{
183	dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
184	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
185	IV iv;
186
187	PERL_UNUSED_VAR(cv)((void)sizeof(cv));
188	SPsp -= items;
189	iv = SvIV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (0)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 0)],2)) + 1;
190	PUSHi(iv)do { do { IV TARGi_iv = iv; if (__builtin_expect((((((targ)-> sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800\|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? ! (((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool)0),(0)) ) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0),(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000); targ ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ,TARGi_iv ); } while (0); (*++sp = (targ)); } while (0);
191	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
192	}
193
194	XS(XS_Devel__PPPort_dAXMARK)void XS_Devel__PPPort_dAXMARK( CV* cv __attribute__((unused)) ); /* prototype */
195	XS(XS_Devel__PPPort_dAXMARK)void XS_Devel__PPPort_dAXMARK( CV* cv __attribute__((unused)) )
196	{
197	dSPSV **sp = PL_stack_sp;
198	dAXMARKI32 ax = Perl_POPMARK(); SV **mark = PL_stack_base + ax++;
199	dITEMSI32 items = (I32)(sp - mark);
200	IV iv;
201
202	PERL_UNUSED_VAR(cv)((void)sizeof(cv));
203	SPsp -= items;
204	iv = SvIV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (0)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 0)],2)) - 1;
205	mPUSHi(iv)Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)(iv));
206	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
207	}
208
209	/* ---- code from parts/inc/newCONSTSUB ---- */
210	void call_newCONSTSUB_1(void)
211	{
212	#ifdef PERL_NO_GET_CONTEXT
213	dTHXstruct Perl___notused_struct;
214	#endif
215	newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_1", newSViv(1))Perl_newCONSTSUB( Perl_gv_stashpv( "Devel::PPPort",(0)),"test_value_1" ,Perl_newSViv( 1));
216	}
217
218	extern void call_newCONSTSUB_2(void);
219	extern void call_newCONSTSUB_3(void);
220
221	/* ---- code from parts/inc/sv_xpvf ---- */
222	static SV * test_vnewSVpvf(pTHX_ const char *pat, ...)
223	{
224	SV *sv;
225	va_list args;
226	va_start(args, pat)__builtin_va_start(args, pat);
227	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
228	sv = vnewSVpvf(pat, &args)Perl_vnewSVpvf( pat,&args);
229	#else
230	sv = newSVpv((char ) pat, 0)Perl_newSVpv( (char ) pat,0);
231	#endif
232	va_end(args)__builtin_va_end(args);
233	return sv;
234	}
235
236	static void test_sv_vcatpvf(pTHX_ SV sv, const char pat, ...)
237	{
238	va_list args;
239	va_start(args, pat)__builtin_va_start(args, pat);
240	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
241	sv_vcatpvf(sv, pat, &args)Perl_sv_vcatpvf( sv,pat,&args);
242	#else
243	sv_catpv(sv, (char ) pat)Perl_sv_catpv( sv,(char ) pat);
244	#endif
245	va_end(args)__builtin_va_end(args);
246	}
247
248	static void test_sv_vsetpvf(pTHX_ SV sv, const char pat, ...)
249	{
250	va_list args;
251	va_start(args, pat)__builtin_va_start(args, pat);
252	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
253	sv_vsetpvf(sv, pat, &args)Perl_sv_vsetpvf( sv,pat,&args);
254	#else
255	sv_setpv(sv, (char ) pat)Perl_sv_setpv( sv,(char ) pat);
256	#endif
257	va_end(args)__builtin_va_end(args);
258	}
259
260	/* ---- code from parts/inc/variables ---- */
261	U32 get_PL_signals_1(void)
262	{
263	#ifdef PERL_NO_GET_CONTEXT
264	dTHXstruct Perl___notused_struct;
265	#endif
266	return PL_signals;
267	}
268
269	extern U32 get_PL_signals_2(void);
270	extern U32 get_PL_signals_3(void);
271	int no_dummy_parser_vars(int);
272	int dummy_parser_warning(void);
273
274	/* No PTRSIZE IN 5.004 and below, so PTR2IV would warn and possibly misbehave */
275	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) > 0x5004000)
276	#define ppp_TESTVAR(var)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (++sp = (Perl_sv_newmortal())),(IV)((IV )(&var))); } while (0); count++; } while (0) STMT_STARTdo { mXPUSHi(PTR2IV(&var))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)((IV)(&var))); } while (0); count++; } STMT_ENDwhile (0)
277	#else
278	#define ppp_TESTVAR(var)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (++sp = (Perl_sv_newmortal())),(IV)((IV )(&var))); } while (0); count++; } while (0) STMT_STARTdo { mXPUSHi(&var)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)(&var)); } while (0 ); count++; } STMT_ENDwhile (0)
279	#endif
280
281	#define ppp_PARSERVAR(type, var)do { type volatile my_var; type volatile my_p_var; my_var = var ; my_p_var = &var; var = my_var; var = my_p_var; do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)(&var != ((void)0) )); } while (0); count++; } while (0) STMT_STARTdo { \
282	type volatile my_ ## var; \
283	type volatile *my_p_ ## var; \
284	my_ ## var = var; \
285	my_p_ ## var = &var; \
286	var = my_ ## var; \
287	var = *my_p_ ## var; \
288	mXPUSHi(&var != NULL)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)(&var != ((void)0) )); } while (0); \
289	count++; \
290	} STMT_ENDwhile (0)
291
292	#define ppp_PARSERVAR_dummydo { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)(1)) ; } while (0); count++; } while (0) STMT_STARTdo { \
293	mXPUSHi(1)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(1)); } while (0); \
294	count++; \
295	} STMT_ENDwhile (0)
296
297	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) < 0x5004000)
298	# define ppp_rsfp_tPerlIO * FILE *
299	#else
300	# define ppp_rsfp_tPerlIO * PerlIOPerlIO *
301	#endif
302
303	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) < 0x5006000)
304	# define ppp_expect_tU8 expectation
305	#elif (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) < 0x5009005)
306	# define ppp_expect_tU8 int
307	#else
308	# define ppp_expect_tU8 U8
309	#endif
310
311	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) < 0x5009005)
312	# define ppp_lex_state_tU8 U32
313	#else
314	# define ppp_lex_state_tU8 U8
315	#endif
316
317	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) < 0x5006000)
318	# define ppp_in_my_tU16 bool_Bool
319	#elif (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) < 0x5009005)
320	# define ppp_in_my_tU16 I32
321	#else
322	# define ppp_in_my_tU16 U16
323	#endif
324
325	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) < 0x5009005)
326	# define ppp_error_count_tU8 I32
327	#else
328	# define ppp_error_count_tU8 U8
329	#endif
330
331	/* =========== END XSMISC =================================================== */
332
333	#line 334 "RealPPPort.c"
334	#ifndef PERL_UNUSED_VAR
335	# define PERL_UNUSED_VAR(var)((void)sizeof(var)) if (0) var = var
336	#endif
337
338	#ifndef dVARstruct Perl___notused_struct
339	# define dVARstruct Perl___notused_struct dNOOPstruct Perl___notused_struct
340	#endif
341
342
343	/* This stuff is not part of the API! You have been warned. */
344	#ifndef PERL_VERSION_DECIMAL
345	# define PERL_VERSION_DECIMAL(r,v,s)(r1000000 + v1000 + s) (r1000000 + v1000 + s)
346	#endif
347	#ifndef PERL_DECIMAL_VERSION(51000000 + 321000 + 1)
348	# define PERL_DECIMAL_VERSION(51000000 + 321000 + 1) \
349	PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)(51000000 + 321000 + 1)
350	#endif
351	#ifndef PERL_VERSION_GE
352	# define PERL_VERSION_GE(r,v,s)((51000000 + 321000 + 1) >= (r1000000 + v1000 + s)) \
353	(PERL_DECIMAL_VERSION(51000000 + 321000 + 1) >= PERL_VERSION_DECIMAL(r,v,s)(r1000000 + v1000 + s))
354	#endif
355	#ifndef PERL_VERSION_LE
356	# define PERL_VERSION_LE(r,v,s)((51000000 + 321000 + 1) <= (r1000000 + v1000 + s)) \
357	(PERL_DECIMAL_VERSION(51000000 + 321000 + 1) <= PERL_VERSION_DECIMAL(r,v,s)(r1000000 + v1000 + s))
358	#endif
359
360	/* XS_INTERNAL is the explicit static-linkage variant of the default
361	* XS macro.
362	*
363	* XS_EXTERNAL is the same as XS_INTERNAL except it does not include
364	* "STATIC", ie. it exports XSUB symbols. You probably don't want that
365	* for anything but the BOOT XSUB.
366	*
367	* See XSUB.h in core!
368	*/
369
370
371	/* TODO: This might be compatible further back than 5.10.0. */
372	#if PERL_VERSION_GE(5, 10, 0)((51000000 + 321000 + 1) >= (51000000 + 101000 + 0)) && PERL_VERSION_LE(5, 15, 1)((51000000 + 321000 + 1) <= (51000000 + 151000 + 1))
373	# undef XS_EXTERNAL
374	# undef XS_INTERNAL
375	# if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING)
376	# define XS_EXTERNAL(name)void name( CV* cv __attribute__((unused))) __declspec(dllexport) XSPROTO(name)void name( CV* cv __attribute__((unused)))
377	# define XS_INTERNAL(name)static void name( CV* cv __attribute__((unused))) STATICstatic XSPROTO(name)void name( CV* cv __attribute__((unused)))
378	# endif
379	# if defined(__SYMBIAN32__)
380	# define XS_EXTERNAL(name)void name( CV* cv __attribute__((unused))) EXPORT_C XSPROTO(name)void name( CV* cv __attribute__((unused)))
381	# define XS_INTERNAL(name)static void name( CV* cv __attribute__((unused))) EXPORT_C STATICstatic XSPROTO(name)void name( CV* cv __attribute__((unused)))
382	# endif
383	# ifndef XS_EXTERNAL
384	# if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus)
385	# define XS_EXTERNAL(name)void name( CV* cv __attribute__((unused))) void name(pTHX_ CV* cv __attribute__unused____attribute__((unused)))
386	# define XS_INTERNAL(name)static void name( CV* cv __attribute__((unused))) STATICstatic void name(pTHX_ CV* cv __attribute__unused____attribute__((unused)))
387	# else
388	# ifdef __cplusplus
389	# define XS_EXTERNAL(name)void name( CV* cv __attribute__((unused))) extern "C" XSPROTO(name)void name( CV* cv __attribute__((unused)))
390	# define XS_INTERNAL(name)static void name( CV* cv __attribute__((unused))) static XSPROTO(name)void name( CV* cv __attribute__((unused)))
391	# else
392	# define XS_EXTERNAL(name)void name( CV* cv __attribute__((unused))) XSPROTO(name)void name( CV* cv __attribute__((unused)))
393	# define XS_INTERNAL(name)static void name( CV* cv __attribute__((unused))) STATICstatic XSPROTO(name)void name( CV* cv __attribute__((unused)))
394	# endif
395	# endif
396	# endif
397	#endif
398
399	/* perl >= 5.10.0 && perl <= 5.15.1 */
400
401
402	/* The XS_EXTERNAL macro is used for functions that must not be static
403	* like the boot XSUB of a module. If perl didn't have an XS_EXTERNAL
404	* macro defined, the best we can do is assume XS is the same.
405	* Dito for XS_INTERNAL.
406	*/
407	#ifndef XS_EXTERNAL
408	# define XS_EXTERNAL(name)void name( CV* cv __attribute__((unused))) XS(name)void name( CV* cv __attribute__((unused)))
409	#endif
410	#ifndef XS_INTERNAL
411	# define XS_INTERNAL(name)static void name( CV* cv __attribute__((unused))) XS(name)void name( CV* cv __attribute__((unused)))
412	#endif
413
414	/* Now, finally, after all this mess, we want an ExtUtils::ParseXS
415	* internal macro that we're free to redefine for varying linkage due
416	* to the EXPORT_XSUB_SYMBOLS XS keyword. This is internal, use
417	* XS_EXTERNAL(name) or XS_INTERNAL(name) in your code if you need to!
418	*/
419
420	#undef XS_EUPXS
421	#if defined(PERL_EUPXS_ALWAYS_EXPORT)
422	# define XS_EUPXS(name)static void name( CV* cv __attribute__((unused))) XS_EXTERNAL(name)void name( CV* cv __attribute__((unused)))
423	#else
424	/* default to internal */
425	# define XS_EUPXS(name)static void name( CV* cv __attribute__((unused))) XS_INTERNAL(name)static void name( CV* cv __attribute__((unused)))
426	#endif
427
428	#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE((void)0); ((void)0)
429	#define PERL_ARGS_ASSERT_CROAK_XS_USAGE((void)0); ((void)0) assert(cv)((void)0); assert(params)((void)0)
430
431	/* prototype to pass -Wmissing-prototypes */
432	STATICstatic void
433	S_croak_xs_usage(const CV const cv, const char const params);
434
435	STATICstatic void
436	S_croak_xs_usage(const CV const cv, const char const params)
437	{
438	const GV const gv = CvGV(cv)Perl_CvGV( (CV )(cv));
439
440	PERL_ARGS_ASSERT_CROAK_XS_USAGE((void)0); ((void)0);
441
442	if (gv) {
443	const char const gvname = GvNAME(gv)((((XPVGV)(gv)->sv_any)->xiv_u.xivu_namehek))->hek_key;
444	const HV const stash = GvSTASH(gv)(((XPVGV)(gv)->sv_any)->xnv_u.xgv_stash);
445	const char const hvname = stash ? HvNAME(stash)((((stash)->sv_flags & 0x02000000) && ((struct xpvhv_aux)&(((stash)->sv_u.svu_hash)[((XPVHV) (stash )->sv_any)->xhv_max+1]))->xhv_name_u.xhvnameu_name && ( ((struct xpvhv_aux)&(((stash)->sv_u.svu_hash)[((XPVHV ) (stash)->sv_any)->xhv_max+1]))->xhv_name_count ? ((struct xpvhv_aux)&(((stash)->sv_u.svu_hash)[((XPVHV ) (stash)->sv_any)->xhv_max+1]))->xhv_name_u.xhvnameu_names : ((struct xpvhv_aux)&(((stash)->sv_u.svu_hash)[((XPVHV ) (stash)->sv_any)->xhv_max+1]))->xhv_name_u.xhvnameu_name )) ? (( ((struct xpvhv_aux)&(((stash)->sv_u.svu_hash )[((XPVHV) (stash)->sv_any)->xhv_max+1]))->xhv_name_count ? ((struct xpvhv_aux)&(((stash)->sv_u.svu_hash)[((XPVHV ) (stash)->sv_any)->xhv_max+1]))->xhv_name_u.xhvnameu_names : ((struct xpvhv_aux)&(((stash)->sv_u.svu_hash)[((XPVHV ) (stash)->sv_any)->xhv_max+1]))->xhv_name_u.xhvnameu_name ))->hek_key : ((void)0)) : NULL((void*)0);
446
447	if (hvname)
448	Perl_croak_nocontextPerl_croak("Usage: %s::%s(%s)", hvname, gvname, params);
449	else
450	Perl_croak_nocontextPerl_croak("Usage: %s(%s)", gvname, params);
451	} else {
452	/* Pants. I don't think that it should be possible to get here. */
453	Perl_croak_nocontextPerl_croak("Usage: CODE(0x%" UVxf"lx" ")(%s)", PTR2UV(cv)(UV)(cv), params);
454	}
455	}
456	#undef PERL_ARGS_ASSERT_CROAK_XS_USAGE((void)0); ((void)0)
457
458	#define croak_xs_usagePerl_croak_xs_usage S_croak_xs_usage
459
460	#endif
461
462	/* NOTE: the prototype of newXSproto() is different in versions of perls,
463	* so we define a portable version of newXSproto()
464	*/
465	#ifdef newXS_flags
466	#define newXSproto_portable(name, c_impl, file, proto)Perl_newXS_flags( name,c_impl,file,proto,0) newXS_flags(name, c_impl, file, proto, 0)Perl_newXS_flags( name,c_impl,file,proto,0)
467	#else
468	#define newXSproto_portable(name, c_impl, file, proto)Perl_newXS_flags( name,c_impl,file,proto,0) (PL_Sv=(SV)newXS(name, c_impl, file)Perl_newXS( name,c_impl,file), sv_setpv(PL_Sv, proto)Perl_sv_setpv( PL_Sv,proto), (CV)PL_Sv)
469	#endif /* !defined(newXS_flags) */
470
471	#if PERL_VERSION_LE(5, 21, 5)((51000000 + 321000 + 1) <= (51000000 + 211000 + 5))
472	# define newXS_deffile(a,b)Perl_newXS_deffile( a,b) Perl_newXS(aTHX_ a,b,file)
473	#else
474	# define newXS_deffile(a,b)Perl_newXS_deffile( a,b) Perl_newXS_deffile(aTHX_ a,b)
475	#endif
476
477	#line 478 "RealPPPort.c"
478
479	XS_EUPXS(XS_Devel__PPPort_HvNAME_get)static void XS_Devel__PPPort_HvNAME_get( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
480	XS_EUPXS(XS_Devel__PPPort_HvNAME_get)static void XS_Devel__PPPort_HvNAME_get( CV* cv __attribute__ ((unused)))
481	{
482	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
483	if (items != 1)
484	croak_xs_usagePerl_croak_xs_usage(cv, "hv");
485	{
486	HV * hv;
487	char * RETVAL;
488	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
489
490	if (SvROK(ST(0))((PL_stack_base[ax + (0)])->sv_flags & 0x00000800) && SvTYPE(SvRV(ST(0)))((svtype)((((PL_stack_base[ax + (0)])->sv_u.svu_rv))->sv_flags & 0xff))==SVt_PVHV)
491	hv = (HV*)SvRV(ST(0))((PL_stack_base[ax + (0)])->sv_u.svu_rv);
492	else
493	Perl_croak(aTHX_ "hv is not a hash reference")
494	;
495
496	RETVAL = HvNAME_get(hv)((((hv)->sv_flags & 0x02000000) && ((struct xpvhv_aux )&(((hv)->sv_u.svu_hash)[((XPVHV) (hv)->sv_any)-> xhv_max+1]))->xhv_name_u.xhvnameu_name && ( ((struct xpvhv_aux)&(((hv)->sv_u.svu_hash)[((XPVHV) (hv)-> sv_any)->xhv_max+1]))->xhv_name_count ? ((struct xpvhv_aux )&(((hv)->sv_u.svu_hash)[((XPVHV) (hv)->sv_any)-> xhv_max+1]))->xhv_name_u.xhvnameu_names : ((struct xpvhv_aux )&(((hv)->sv_u.svu_hash)[((XPVHV) (hv)->sv_any)-> xhv_max+1]))->xhv_name_u.xhvnameu_name )) ? (( ((struct xpvhv_aux )&(((hv)->sv_u.svu_hash)[((XPVHV) (hv)->sv_any)-> xhv_max+1]))->xhv_name_count ? ((struct xpvhv_aux)&( ((hv)->sv_u.svu_hash)[((XPVHV) (hv)->sv_any)->xhv_max +1]))->xhv_name_u.xhvnameu_names : ((struct xpvhv_aux)& (((hv)->sv_u.svu_hash)[((XPVHV) (hv)->sv_any)->xhv_max +1]))->xhv_name_u.xhvnameu_name ))->hek_key : ((void*)0 ));
497	sv_setpv(TARG, RETVAL)Perl_sv_setpv( targ,RETVAL); XSprePUSH(sp = PL_stack_base + ax - 1); PUSHTARGdo { do { if (__builtin_expect(((((targ)->sv_flags & 0x00400000 )) ? (_Bool)1 : (_Bool)0),(0))) Perl_mg_set( targ); } while ( 0); (*++sp = (targ)); } while (0);
498	}
499	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
500	}
501
502
503	XS_EUPXS(XS_Devel__PPPort_HvNAMELEN_get)static void XS_Devel__PPPort_HvNAMELEN_get( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
504	XS_EUPXS(XS_Devel__PPPort_HvNAMELEN_get)static void XS_Devel__PPPort_HvNAMELEN_get( CV* cv __attribute__ ((unused)))
505	{
506	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
507	if (items != 1)
508	croak_xs_usagePerl_croak_xs_usage(cv, "hv");
509	{
510	HV * hv;
511	int RETVAL;
512	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
513
514	if (SvROK(ST(0))((PL_stack_base[ax + (0)])->sv_flags & 0x00000800) && SvTYPE(SvRV(ST(0)))((svtype)((((PL_stack_base[ax + (0)])->sv_u.svu_rv))->sv_flags & 0xff))==SVt_PVHV)
515	hv = (HV*)SvRV(ST(0))((PL_stack_base[ax + (0)])->sv_u.svu_rv);
516	else
517	Perl_croak(aTHX_ "hv is not a hash reference")
518	;
519
520	RETVAL = HvNAMELEN_get(hv)((((hv)->sv_flags & 0x02000000) && ((struct xpvhv_aux )&(((hv)->sv_u.svu_hash)[((XPVHV) (hv)->sv_any)-> xhv_max+1]))->xhv_name_u.xhvnameu_name && ( ((struct xpvhv_aux)&(((hv)->sv_u.svu_hash)[((XPVHV) (hv)-> sv_any)->xhv_max+1]))->xhv_name_count ? ((struct xpvhv_aux )&(((hv)->sv_u.svu_hash)[((XPVHV) (hv)->sv_any)-> xhv_max+1]))->xhv_name_u.xhvnameu_names : ((struct xpvhv_aux )&(((hv)->sv_u.svu_hash)[((XPVHV) (hv)->sv_any)-> xhv_max+1]))->xhv_name_u.xhvnameu_name )) ? (( ((struct xpvhv_aux )&(((hv)->sv_u.svu_hash)[((XPVHV) (hv)->sv_any)-> xhv_max+1]))->xhv_name_count ? ((struct xpvhv_aux)&( ((hv)->sv_u.svu_hash)[((XPVHV) (hv)->sv_any)->xhv_max +1]))->xhv_name_u.xhvnameu_names : ((struct xpvhv_aux)& (((hv)->sv_u.svu_hash)[((XPVHV) (hv)->sv_any)->xhv_max +1]))->xhv_name_u.xhvnameu_name ))->hek_len : 0);
521	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
522	}
523	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
524	}
525
526
527	XS_EUPXS(XS_Devel__PPPort_MY_CXT_1)static void XS_Devel__PPPort_MY_CXT_1( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
528	XS_EUPXS(XS_Devel__PPPort_MY_CXT_1)static void XS_Devel__PPPort_MY_CXT_1( CV* cv __attribute__(( unused)))
529	{
530	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
531	if (items != 0)
532	croak_xs_usagePerl_croak_xs_usage(cv, "");
533	{
534	int RETVAL;
535	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
536	#line 363 "RealPPPort.xs"
537	dMY_CXTstruct Perl___notused_struct;
538	RETVAL = MY_CXTmy_cxt.dummy == 42;
539	++MY_CXTmy_cxt.dummy;
540	#line 541 "RealPPPort.c"
541	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
542	}
543	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
544	}
545
546
547	XS_EUPXS(XS_Devel__PPPort_MY_CXT_2)static void XS_Devel__PPPort_MY_CXT_2( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
548	XS_EUPXS(XS_Devel__PPPort_MY_CXT_2)static void XS_Devel__PPPort_MY_CXT_2( CV* cv __attribute__(( unused)))
549	{
550	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
551	if (items != 0)
552	croak_xs_usagePerl_croak_xs_usage(cv, "");
553	{
554	int RETVAL;
555	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
556	#line 372 "RealPPPort.xs"
557	dMY_CXTstruct Perl___notused_struct;
558	RETVAL = MY_CXTmy_cxt.dummy == 43;
559	#line 560 "RealPPPort.c"
560	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
561	}
562	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
563	}
564
565
566	XS_EUPXS(XS_Devel__PPPort_MY_CXT_CLONE)static void XS_Devel__PPPort_MY_CXT_CLONE( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
567	XS_EUPXS(XS_Devel__PPPort_MY_CXT_CLONE)static void XS_Devel__PPPort_MY_CXT_CLONE( CV* cv __attribute__ ((unused)))
568	{
569	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
570	if (items != 0)
571	croak_xs_usagePerl_croak_xs_usage(cv, "");
572	{
573	int RETVAL;
574	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
575	#line 380 "RealPPPort.xs"
576	MY_CXT_CLONE(void)0;
577	RETVAL = 42;
578	#line 579 "RealPPPort.c"
579	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
580	}
581	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
582	}
583
584
585	XS_EUPXS(XS_Devel__PPPort_SvPVbyte)static void XS_Devel__PPPort_SvPVbyte( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
586	XS_EUPXS(XS_Devel__PPPort_SvPVbyte)static void XS_Devel__PPPort_SvPVbyte( CV* cv __attribute__(( unused)))
587	{
588	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
589	if (items != 1)
590	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
591	{
592	SV * sv = ST(0)PL_stack_base[ax + (0)]
593	;
594	#line 393 "RealPPPort.xs"
595	char *str;
596	STRLEN len;
597	#line 598 "RealPPPort.c"
598	IV RETVAL;
599	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
600	#line 396 "RealPPPort.xs"
601	str = SvPVbyte(sv, len)((((sv)->sv_flags & (0x00000400\|0x20000000\|0x00200000) ) == 0x00000400) ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur ), ((sv)->sv_u.svu_pv)) : Perl_sv_2pvbyte_flags( sv,&len ,2));
602	RETVAL = strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? (IV) len : (IV) -1;
603	#line 604 "RealPPPort.c"
604	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
605	}
606	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
607	}
608
609
610	XS_EUPXS(XS_Devel__PPPort_SvPV_nolen)static void XS_Devel__PPPort_SvPV_nolen( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
611	XS_EUPXS(XS_Devel__PPPort_SvPV_nolen)static void XS_Devel__PPPort_SvPV_nolen( CV* cv __attribute__ ((unused)))
612	{
613	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
614	if (items != 1)
615	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
616	{
617	SV * sv = ST(0)PL_stack_base[ax + (0)]
618	;
619	#line 405 "RealPPPort.xs"
620	char *str;
621	#line 622 "RealPPPort.c"
622	IV RETVAL;
623	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
624	#line 407 "RealPPPort.xs"
625	str = SvPV_nolen(sv)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((sv)->sv_u.svu_pv) : Perl_sv_2pv_flags( sv,0,2));
626	RETVAL = strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 42 : 0;
627	#line 628 "RealPPPort.c"
628	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
629	}
630	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
631	}
632
633
634	XS_EUPXS(XS_Devel__PPPort_SvPV_const)static void XS_Devel__PPPort_SvPV_const( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
635	XS_EUPXS(XS_Devel__PPPort_SvPV_const)static void XS_Devel__PPPort_SvPV_const( CV* cv __attribute__ ((unused)))
636	{
637	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
638	if (items != 1)
639	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
640	{
641	SV * sv = ST(0)PL_stack_base[ax + (0)]
642	;
643	#line 416 "RealPPPort.xs"
644	const char *str;
645	STRLEN len;
646	#line 647 "RealPPPort.c"
647	IV RETVAL;
648	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
649	#line 419 "RealPPPort.xs"
650	str = SvPV_const(sv, len)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV) (sv)->sv_any)->xpv_cur), ((const char )(0 + (sv)->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags ( sv,&len,(2\|32)));
651	RETVAL = len + (strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 40 : 0);
652	#line 653 "RealPPPort.c"
653	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
654	}
655	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
656	}
657
658
659	XS_EUPXS(XS_Devel__PPPort_SvPV_mutable)static void XS_Devel__PPPort_SvPV_mutable( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
660	XS_EUPXS(XS_Devel__PPPort_SvPV_mutable)static void XS_Devel__PPPort_SvPV_mutable( CV* cv __attribute__ ((unused)))
661	{
662	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
663	if (items != 1)
664	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
665	{
666	SV * sv = ST(0)PL_stack_base[ax + (0)]
667	;
668	#line 428 "RealPPPort.xs"
669	char *str;
670	STRLEN len;
671	#line 672 "RealPPPort.c"
672	IV RETVAL;
673	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
674	#line 431 "RealPPPort.xs"
675	str = SvPV_mutable(sv, len)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), (0 + (sv)-> sv_u.svu_pv)) : Perl_sv_2pv_flags( sv,&len,(2\|64)));
676	RETVAL = len + (strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 41 : 0);
677	#line 678 "RealPPPort.c"
678	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
679	}
680	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
681	}
682
683
684	XS_EUPXS(XS_Devel__PPPort_SvPV_flags)static void XS_Devel__PPPort_SvPV_flags( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
685	XS_EUPXS(XS_Devel__PPPort_SvPV_flags)static void XS_Devel__PPPort_SvPV_flags( CV* cv __attribute__ ((unused)))
686	{
687	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
688	if (items != 1)
689	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
690	{
691	SV * sv = ST(0)PL_stack_base[ax + (0)]
692	;
693	#line 440 "RealPPPort.xs"
694	char *str;
695	STRLEN len;
696	#line 697 "RealPPPort.c"
697	IV RETVAL;
698	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
699	#line 443 "RealPPPort.xs"
700	str = SvPV_flags(sv, len, SV_GMAGIC)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((sv)-> sv_u.svu_pv)) : Perl_sv_2pv_flags( sv,&len,2));
701	RETVAL = len + (strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 42 : 0);
702	#line 703 "RealPPPort.c"
703	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
704	}
705	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
706	}
707
708
709	XS_EUPXS(XS_Devel__PPPort_SvPV_flags_const)static void XS_Devel__PPPort_SvPV_flags_const( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
710	XS_EUPXS(XS_Devel__PPPort_SvPV_flags_const)static void XS_Devel__PPPort_SvPV_flags_const( CV* cv __attribute__ ((unused)))
711	{
712	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
713	if (items != 1)
714	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
715	{
716	SV * sv = ST(0)PL_stack_base[ax + (0)]
717	;
718	#line 452 "RealPPPort.xs"
719	const char *str;
720	STRLEN len;
721	#line 722 "RealPPPort.c"
722	IV RETVAL;
723	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
724	#line 455 "RealPPPort.xs"
725	str = SvPV_flags_const(sv, len, SV_GMAGIC)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV) (sv)->sv_any)->xpv_cur), ((const char )(0 + (sv)->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags ( sv,&len,(2\|32)));
726	RETVAL = len + (strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 43 : 0);
727	#line 728 "RealPPPort.c"
728	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
729	}
730	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
731	}
732
733
734	XS_EUPXS(XS_Devel__PPPort_SvPV_flags_const_nolen)static void XS_Devel__PPPort_SvPV_flags_const_nolen( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
735	XS_EUPXS(XS_Devel__PPPort_SvPV_flags_const_nolen)static void XS_Devel__PPPort_SvPV_flags_const_nolen( CV* cv __attribute__ ((unused)))
736	{
737	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
738	if (items != 1)
739	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
740	{
741	SV * sv = ST(0)PL_stack_base[ax + (0)]
742	;
743	#line 464 "RealPPPort.xs"
744	const char *str;
745	#line 746 "RealPPPort.c"
746	IV RETVAL;
747	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
748	#line 466 "RealPPPort.xs"
749	str = SvPV_flags_const_nolen(sv, SV_GMAGIC)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((const char)(0 + (sv)->sv_u.svu_pv)) : (const char) Perl_sv_2pv_flags( sv,0,(2\|32)));
750	RETVAL = strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 47 : 0;
751	#line 752 "RealPPPort.c"
752	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
753	}
754	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
755	}
756
757
758	XS_EUPXS(XS_Devel__PPPort_SvPV_flags_mutable)static void XS_Devel__PPPort_SvPV_flags_mutable( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
759	XS_EUPXS(XS_Devel__PPPort_SvPV_flags_mutable)static void XS_Devel__PPPort_SvPV_flags_mutable( CV* cv __attribute__ ((unused)))
760	{
761	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
762	if (items != 1)
763	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
764	{
765	SV * sv = ST(0)PL_stack_base[ax + (0)]
766	;
767	#line 475 "RealPPPort.xs"
768	char *str;
769	STRLEN len;
770	#line 771 "RealPPPort.c"
771	IV RETVAL;
772	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
773	#line 478 "RealPPPort.xs"
774	str = SvPV_flags_mutable(sv, len, SV_GMAGIC)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), (0 + (sv)-> sv_u.svu_pv)) : Perl_sv_2pv_flags( sv,&len,(2\|64)));
775	RETVAL = len + (strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 45 : 0);
776	#line 777 "RealPPPort.c"
777	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
778	}
779	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
780	}
781
782
783	XS_EUPXS(XS_Devel__PPPort_SvPV_force)static void XS_Devel__PPPort_SvPV_force( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
784	XS_EUPXS(XS_Devel__PPPort_SvPV_force)static void XS_Devel__PPPort_SvPV_force( CV* cv __attribute__ ((unused)))
785	{
786	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
787	if (items != 1)
788	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
789	{
790	SV * sv = ST(0)PL_stack_base[ax + (0)]
791	;
792	#line 487 "RealPPPort.xs"
793	char *str;
794	STRLEN len;
795	#line 796 "RealPPPort.c"
796	IV RETVAL;
797	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
798	#line 490 "RealPPPort.xs"
799	str = SvPV_force(sv, len)((((sv)->sv_flags & (0x00000400\|0x00000100\|0x00000200\| 0x00000800\|0x00008000\|(0x08000000\|0x00010000\|0x00000800\|0x01000000 \|0x00800000\|0x10000000)\|0x00200000)) == 0x00000400) ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((sv)->sv_u.svu_pv )) : Perl_sv_pvn_force_flags( sv,&len,2));
800	RETVAL = len + (strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 46 : 0);
801	#line 802 "RealPPPort.c"
802	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
803	}
804	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
805	}
806
807
808	XS_EUPXS(XS_Devel__PPPort_SvPV_force_nolen)static void XS_Devel__PPPort_SvPV_force_nolen( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
809	XS_EUPXS(XS_Devel__PPPort_SvPV_force_nolen)static void XS_Devel__PPPort_SvPV_force_nolen( CV* cv __attribute__ ((unused)))
810	{
811	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
812	if (items != 1)
813	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
814	{
815	SV * sv = ST(0)PL_stack_base[ax + (0)]
816	;
817	#line 499 "RealPPPort.xs"
818	char *str;
819	#line 820 "RealPPPort.c"
820	IV RETVAL;
821	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
822	#line 501 "RealPPPort.xs"
823	str = SvPV_force_nolen(sv)((((sv)->sv_flags & (0x00000400\|0x00000100\|0x00000200\| 0x00000800\|0x00008000\|(0x08000000\|0x00010000\|0x00000800\|0x01000000 \|0x00800000\|0x10000000)\|0x00200000)) == 0x00000400) ? ((sv)-> sv_u.svu_pv) : Perl_sv_pvn_force_flags( sv,0,2));
824	RETVAL = strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 50 : 0;
825	#line 826 "RealPPPort.c"
826	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
827	}
828	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
829	}
830
831
832	XS_EUPXS(XS_Devel__PPPort_SvPV_force_mutable)static void XS_Devel__PPPort_SvPV_force_mutable( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
833	XS_EUPXS(XS_Devel__PPPort_SvPV_force_mutable)static void XS_Devel__PPPort_SvPV_force_mutable( CV* cv __attribute__ ((unused)))
834	{
835	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
836	if (items != 1)
837	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
838	{
839	SV * sv = ST(0)PL_stack_base[ax + (0)]
840	;
841	#line 510 "RealPPPort.xs"
842	char *str;
843	STRLEN len;
844	#line 845 "RealPPPort.c"
845	IV RETVAL;
846	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
847	#line 513 "RealPPPort.xs"
848	str = SvPV_force_mutable(sv, len)((((sv)->sv_flags & (0x00000400\|0x00000100\|0x00000200\| 0x00000800\|0x00008000\|(0x08000000\|0x00010000\|0x00000800\|0x01000000 \|0x00800000\|0x10000000)\|0x00200000)) == 0x00000400) ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), (0 + (sv)->sv_u.svu_pv )) : Perl_sv_pvn_force_flags( sv,&len,2\|64));
849	RETVAL = len + (strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 48 : 0);
850	#line 851 "RealPPPort.c"
851	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
852	}
853	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
854	}
855
856
857	XS_EUPXS(XS_Devel__PPPort_SvPV_force_nomg)static void XS_Devel__PPPort_SvPV_force_nomg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
858	XS_EUPXS(XS_Devel__PPPort_SvPV_force_nomg)static void XS_Devel__PPPort_SvPV_force_nomg( CV* cv __attribute__ ((unused)))
859	{
860	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
861	if (items != 1)
862	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
863	{
864	SV * sv = ST(0)PL_stack_base[ax + (0)]
865	;
866	#line 522 "RealPPPort.xs"
867	char *str;
868	STRLEN len;
869	#line 870 "RealPPPort.c"
870	IV RETVAL;
871	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
872	#line 525 "RealPPPort.xs"
873	str = SvPV_force_nomg(sv, len)((((sv)->sv_flags & (0x00000400\|0x00000100\|0x00000200\| 0x00000800\|0x00008000\|(0x08000000\|0x00010000\|0x00000800\|0x01000000 \|0x00800000\|0x10000000)\|0x00200000)) == 0x00000400) ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((sv)->sv_u.svu_pv )) : Perl_sv_pvn_force_flags( sv,&len,0));
874	RETVAL = len + (strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 49 : 0);
875	#line 876 "RealPPPort.c"
876	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
877	}
878	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
879	}
880
881
882	XS_EUPXS(XS_Devel__PPPort_SvPV_force_nomg_nolen)static void XS_Devel__PPPort_SvPV_force_nomg_nolen( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
883	XS_EUPXS(XS_Devel__PPPort_SvPV_force_nomg_nolen)static void XS_Devel__PPPort_SvPV_force_nomg_nolen( CV* cv __attribute__ ((unused)))
884	{
885	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
886	if (items != 1)
887	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
888	{
889	SV * sv = ST(0)PL_stack_base[ax + (0)]
890	;
891	#line 534 "RealPPPort.xs"
892	char *str;
893	#line 894 "RealPPPort.c"
894	IV RETVAL;
895	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
896	#line 536 "RealPPPort.xs"
897	str = SvPV_force_nomg_nolen(sv)((((sv)->sv_flags & (0x00000400\|0x00000100\|0x00000200\| 0x00000800\|0x00008000\|(0x08000000\|0x00010000\|0x00000800\|0x01000000 \|0x00800000\|0x10000000)\|0x00200000)) == 0x00000400) ? ((sv)-> sv_u.svu_pv) : Perl_sv_pvn_force_flags( sv,0,0));
898	RETVAL = strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 53 : 0;
899	#line 900 "RealPPPort.c"
900	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
901	}
902	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
903	}
904
905
906	XS_EUPXS(XS_Devel__PPPort_SvPV_force_flags)static void XS_Devel__PPPort_SvPV_force_flags( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
907	XS_EUPXS(XS_Devel__PPPort_SvPV_force_flags)static void XS_Devel__PPPort_SvPV_force_flags( CV* cv __attribute__ ((unused)))
908	{
909	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
910	if (items != 1)
911	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
912	{
913	SV * sv = ST(0)PL_stack_base[ax + (0)]
914	;
915	#line 545 "RealPPPort.xs"
916	char *str;
917	STRLEN len;
918	#line 919 "RealPPPort.c"
919	IV RETVAL;
920	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
921	#line 548 "RealPPPort.xs"
922	str = SvPV_force_flags(sv, len, SV_GMAGIC)((((sv)->sv_flags & (0x00000400\|0x00000100\|0x00000200\| 0x00000800\|0x00008000\|(0x08000000\|0x00010000\|0x00000800\|0x01000000 \|0x00800000\|0x10000000)\|0x00200000)) == 0x00000400) ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((sv)->sv_u.svu_pv )) : Perl_sv_pvn_force_flags( sv,&len,2));
923	RETVAL = len + (strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 51 : 0);
924	#line 925 "RealPPPort.c"
925	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
926	}
927	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
928	}
929
930
931	XS_EUPXS(XS_Devel__PPPort_SvPV_force_flags_nolen)static void XS_Devel__PPPort_SvPV_force_flags_nolen( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
932	XS_EUPXS(XS_Devel__PPPort_SvPV_force_flags_nolen)static void XS_Devel__PPPort_SvPV_force_flags_nolen( CV* cv __attribute__ ((unused)))
933	{
934	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
935	if (items != 1)
936	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
937	{
938	SV * sv = ST(0)PL_stack_base[ax + (0)]
939	;
940	#line 557 "RealPPPort.xs"
941	char *str;
942	#line 943 "RealPPPort.c"
943	IV RETVAL;
944	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
945	#line 559 "RealPPPort.xs"
946	str = SvPV_force_flags_nolen(sv, SV_GMAGIC)((((sv)->sv_flags & (0x00000400\|0x00000100\|0x00000200\| 0x00000800\|0x00008000\|(0x08000000\|0x00010000\|0x00000800\|0x01000000 \|0x00800000\|0x10000000)\|0x00200000)) == 0x00000400) ? ((sv)-> sv_u.svu_pv) : Perl_sv_pvn_force_flags( sv,0,2));
947	RETVAL = strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 55 : 0;
948	#line 949 "RealPPPort.c"
949	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
950	}
951	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
952	}
953
954
955	XS_EUPXS(XS_Devel__PPPort_SvPV_force_flags_mutable)static void XS_Devel__PPPort_SvPV_force_flags_mutable( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
956	XS_EUPXS(XS_Devel__PPPort_SvPV_force_flags_mutable)static void XS_Devel__PPPort_SvPV_force_flags_mutable( CV* cv __attribute__((unused)))
957	{
958	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
959	if (items != 1)
960	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
961	{
962	SV * sv = ST(0)PL_stack_base[ax + (0)]
963	;
964	#line 568 "RealPPPort.xs"
965	char *str;
966	STRLEN len;
967	#line 968 "RealPPPort.c"
968	IV RETVAL;
969	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
970	#line 571 "RealPPPort.xs"
971	str = SvPV_force_flags_mutable(sv, len, SV_GMAGIC)((((sv)->sv_flags & (0x00000400\|0x00000100\|0x00000200\| 0x00000800\|0x00008000\|(0x08000000\|0x00010000\|0x00000800\|0x01000000 \|0x00800000\|0x10000000)\|0x00200000)) == 0x00000400) ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), (0 + (sv)->sv_u.svu_pv )) : Perl_sv_pvn_force_flags( sv,&len,2\|64));
972	RETVAL = len + (strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 53 : 0);
973	#line 974 "RealPPPort.c"
974	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
975	}
976	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
977	}
978
979
980	XS_EUPXS(XS_Devel__PPPort_SvPV_nolen_const)static void XS_Devel__PPPort_SvPV_nolen_const( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
981	XS_EUPXS(XS_Devel__PPPort_SvPV_nolen_const)static void XS_Devel__PPPort_SvPV_nolen_const( CV* cv __attribute__ ((unused)))
982	{
983	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
984	if (items != 1)
985	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
986	{
987	SV * sv = ST(0)PL_stack_base[ax + (0)]
988	;
989	#line 580 "RealPPPort.xs"
990	const char *str;
991	#line 992 "RealPPPort.c"
992	IV RETVAL;
993	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
994	#line 582 "RealPPPort.xs"
995	str = SvPV_nolen_const(sv)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((const char*)(0 + (sv)->sv_u.svu_pv)) : Perl_sv_2pv_flags ( sv,0,2\|32));
996	RETVAL = strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 57 : 0;
997	#line 998 "RealPPPort.c"
998	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
999	}
1000	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1001	}
1002
1003
1004	XS_EUPXS(XS_Devel__PPPort_SvPV_nomg)static void XS_Devel__PPPort_SvPV_nomg( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
1005	XS_EUPXS(XS_Devel__PPPort_SvPV_nomg)static void XS_Devel__PPPort_SvPV_nomg( CV* cv __attribute__( (unused)))
1006	{
1007	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1008	if (items != 1)
1009	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
1010	{
1011	SV * sv = ST(0)PL_stack_base[ax + (0)]
1012	;
1013	#line 591 "RealPPPort.xs"
1014	char *str;
1015	STRLEN len;
1016	#line 1017 "RealPPPort.c"
1017	IV RETVAL;
1018	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1019	#line 594 "RealPPPort.xs"
1020	str = SvPV_nomg(sv, len)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((sv)-> sv_u.svu_pv)) : Perl_sv_2pv_flags( sv,&len,0));
1021	RETVAL = len + (strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 55 : 0);
1022	#line 1023 "RealPPPort.c"
1023	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1024	}
1025	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1026	}
1027
1028
1029	XS_EUPXS(XS_Devel__PPPort_SvPV_nomg_const)static void XS_Devel__PPPort_SvPV_nomg_const( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1030	XS_EUPXS(XS_Devel__PPPort_SvPV_nomg_const)static void XS_Devel__PPPort_SvPV_nomg_const( CV* cv __attribute__ ((unused)))
1031	{
1032	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1033	if (items != 1)
1034	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
1035	{
1036	SV * sv = ST(0)PL_stack_base[ax + (0)]
1037	;
1038	#line 603 "RealPPPort.xs"
1039	const char *str;
1040	STRLEN len;
1041	#line 1042 "RealPPPort.c"
1042	IV RETVAL;
1043	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1044	#line 606 "RealPPPort.xs"
1045	str = SvPV_nomg_const(sv, len)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV) (sv)->sv_any)->xpv_cur), ((const char )(0 + (sv)->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags ( sv,&len,(0\|32)));
1046	RETVAL = len + (strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 56 : 0);
1047	#line 1048 "RealPPPort.c"
1048	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1049	}
1050	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1051	}
1052
1053
1054	XS_EUPXS(XS_Devel__PPPort_SvPV_nomg_const_nolen)static void XS_Devel__PPPort_SvPV_nomg_const_nolen( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1055	XS_EUPXS(XS_Devel__PPPort_SvPV_nomg_const_nolen)static void XS_Devel__PPPort_SvPV_nomg_const_nolen( CV* cv __attribute__ ((unused)))
1056	{
1057	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1058	if (items != 1)
1059	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
1060	{
1061	SV * sv = ST(0)PL_stack_base[ax + (0)]
1062	;
1063	#line 615 "RealPPPort.xs"
1064	const char *str;
1065	#line 1066 "RealPPPort.c"
1066	IV RETVAL;
1067	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1068	#line 617 "RealPPPort.xs"
1069	str = SvPV_nomg_const_nolen(sv)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((const char)(0 + (sv)->sv_u.svu_pv)) : (const char) Perl_sv_2pv_flags( sv,0,(0\|32)));
1070	RETVAL = strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 60 : 0;
1071	#line 1072 "RealPPPort.c"
1072	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1073	}
1074	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1075	}
1076
1077
1078	XS_EUPXS(XS_Devel__PPPort_SvPV_nomg_nolen)static void XS_Devel__PPPort_SvPV_nomg_nolen( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1079	XS_EUPXS(XS_Devel__PPPort_SvPV_nomg_nolen)static void XS_Devel__PPPort_SvPV_nomg_nolen( CV* cv __attribute__ ((unused)))
1080	{
1081	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1082	if (items != 1)
1083	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
1084	{
1085	SV * sv = ST(0)PL_stack_base[ax + (0)]
1086	;
1087	#line 626 "RealPPPort.xs"
1088	char *str;
1089	#line 1090 "RealPPPort.c"
1090	IV RETVAL;
1091	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1092	#line 628 "RealPPPort.xs"
1093	str = SvPV_nomg_nolen(sv)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((sv)->sv_u.svu_pv) : Perl_sv_2pv_flags( sv,0,0));
1094	RETVAL = strEQ(str, "mhx")(strcmp(str,"mhx") == 0) ? 61 : 0;
1095	#line 1096 "RealPPPort.c"
1096	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1097	}
1098	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1099	}
1100
1101
1102	XS_EUPXS(XS_Devel__PPPort_SvPV_renew)static void XS_Devel__PPPort_SvPV_renew( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1103	XS_EUPXS(XS_Devel__PPPort_SvPV_renew)static void XS_Devel__PPPort_SvPV_renew( CV* cv __attribute__ ((unused)))
1104	{
1105	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1106	if (items != 3)
1107	croak_xs_usagePerl_croak_xs_usage(cv, "sv, nlen, insv");
1108	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
1109	SPsp -= items;
1110	{
1111	SV * sv = ST(0)PL_stack_base[ax + (0)]
1112	;
1113	STRLEN nlen = (STRLEN)SvUV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (1)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (1)],2))
1114	;
1115	SV * insv = ST(2)PL_stack_base[ax + (2)]
1116	;
1117	#line 639 "RealPPPort.xs"
1118	STRLEN slen;
1119	const char *str;
1120	#line 1121 "RealPPPort.c"
1121	#line 642 "RealPPPort.xs"
1122	str = SvPV_const(insv, slen)((((insv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((slen = ((XPV) (insv)->sv_any)->xpv_cur), ((const char)(0 + (insv)->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags ( insv,&slen,(2\|32)));
1123	XPUSHs(sv)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (sv); } while (0);
1124	mXPUSHi(SvLEN(sv))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)(((XPV) (sv)->sv_any )->xpv_len_u.xpvlenu_len)); } while (0);
1125	SvPV_renew(sv, nlen)do { do { ((void)0); ((void)0); ((void)0); (((XPV) (sv)-> sv_any)->xpv_len_u.xpvlenu_len = (nlen)); } while (0); do { ((void)0); ((void)0); ((void)0); (((sv))->sv_u.svu_pv = ( ((void)(__builtin_expect(((((( sizeof(size_t) < sizeof(nlen ) \|\| sizeof(char) > ((size_t)1 << 8(sizeof(size_t) - sizeof(nlen)))) ? (size_t)(nlen) : ((size_t)-1)/sizeof(char) ) > ((size_t)-1)/sizeof(char))) ? (_Bool)1 : (_Bool)0),(0) ) && (Perl_croak_memory_wrap(),0)), (char)Perl_safesysrealloc ((void )((sv)->sv_u.svu_pv), (size_t)((nlen)))))); } while (0); } while (0);
1126	Copy(str, SvPVX(sv), slen + 1, char)((void)(__builtin_expect(((((( sizeof(size_t) < sizeof(slen + 1) \|\| sizeof(char) > ((size_t)1 << 8(sizeof(size_t ) - sizeof(slen + 1)))) ? (size_t)(slen + 1) : ((size_t)-1)/sizeof (char)) > ((size_t)-1)/sizeof(char))) ? (_Bool)1 : (_Bool) 0),(0)) && (Perl_croak_memory_wrap(),0)), ((void)0), ( (void)0), (void)memcpy((char)(((sv)->sv_u.svu_pv)),(const char)(str), (slen + 1) sizeof(char)));
1127	SvCUR_set(sv, slen)do { ((void)0); ((void)0); ((void)0); (((XPV*) (sv)->sv_any )->xpv_cur = (slen)); } while (0);
1128	mXPUSHi(SvLEN(sv))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)(((XPV) (sv)->sv_any )->xpv_len_u.xpvlenu_len)); } while (0);
1129	#line 1130 "RealPPPort.c"
1130	PUTBACKPL_stack_sp = sp;
1131	return;
1132	}
1133	}
1134
1135
1136	XS_EUPXS(XS_Devel__PPPort_SvREFCNT)static void XS_Devel__PPPort_SvREFCNT( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
1137	XS_EUPXS(XS_Devel__PPPort_SvREFCNT)static void XS_Devel__PPPort_SvREFCNT( CV* cv __attribute__(( unused)))
1138	{
1139	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1140	if (items != 0)
1141	croak_xs_usagePerl_croak_xs_usage(cv, "");
1142	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
1143	SPsp -= items;
1144	{
1145	#line 657 "RealPPPort.xs"
1146	SV sv, svr;
1147	#line 1148 "RealPPPort.c"
1148	#line 659 "RealPPPort.xs"
1149	sv = newSV(0)Perl_newSV( 0);
1150	mXPUSHi(SvREFCNT(sv) == 1)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)((sv)->sv_refcnt == 1 )); } while (0);
1151	svr = SvREFCNT_inc(sv)Perl_SvREFCNT_inc(((SV )({ void _p = (sv); _p; })));
1152	mXPUSHi(sv == svr)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(sv == svr)); } while ( 0);
1153	mXPUSHi(SvREFCNT(sv) == 2)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)((sv)->sv_refcnt == 2 )); } while (0);
1154	svr = SvREFCNT_inc_simple(sv)Perl_SvREFCNT_inc(((SV )({ void _p = (sv); _p; })));
1155	mXPUSHi(sv == svr)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(sv == svr)); } while ( 0);
1156	mXPUSHi(SvREFCNT(sv) == 3)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)((sv)->sv_refcnt == 3 )); } while (0);
1157	svr = SvREFCNT_inc_NN(sv)Perl_SvREFCNT_inc_NN(((SV )({ void _p = (sv); _p; })));
1158	mXPUSHi(sv == svr)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(sv == svr)); } while ( 0);
1159	mXPUSHi(SvREFCNT(sv) == 4)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)((sv)->sv_refcnt == 4 )); } while (0);
1160	svr = SvREFCNT_inc_simple_NN(sv)(++((sv)->sv_refcnt),((SV )({ void _p = (sv); _p; })));
1161	mXPUSHi(sv == svr)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(sv == svr)); } while ( 0);
1162	mXPUSHi(SvREFCNT(sv) == 5)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)((sv)->sv_refcnt == 5 )); } while (0);
1163	SvREFCNT_inc_void(sv)Perl_SvREFCNT_inc_void(((SV )({ void _p = (sv); _p; })));
1164	mXPUSHi(SvREFCNT(sv) == 6)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)((sv)->sv_refcnt == 6 )); } while (0);
1165	SvREFCNT_inc_simple_void(sv)do { if (sv) (sv)->sv_refcnt++; } while (0);
1166	mXPUSHi(SvREFCNT(sv) == 7)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)((sv)->sv_refcnt == 7 )); } while (0);
1167	SvREFCNT_inc_void_NN(sv)(void)(++(((SV )({ void _p = (sv); _p; })))->sv_refcnt);
1168	mXPUSHi(SvREFCNT(sv) == 8)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)((sv)->sv_refcnt == 8 )); } while (0);
1169	SvREFCNT_inc_simple_void_NN(sv)(void)(++(((SV )({ void _p = (sv); _p; })))->sv_refcnt);
1170	mXPUSHi(SvREFCNT(sv) == 9)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)((sv)->sv_refcnt == 9 )); } while (0);
1171	while (SvREFCNT(sv)(sv)->sv_refcnt > 1)
1172	SvREFCNT_dec(sv)Perl_SvREFCNT_dec( ((SV )({ void _p = (sv); _p; })));
1173	mXPUSHi(SvREFCNT(sv) == 1)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)((sv)->sv_refcnt == 1 )); } while (0);
1174	SvREFCNT_dec(sv)Perl_SvREFCNT_dec( ((SV )({ void _p = (sv); _p; })));
1175	XSRETURN(14)do { const IV tmpXSoff = (14); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1176	#line 1177 "RealPPPort.c"
1177	PUTBACKPL_stack_sp = sp;
1178	return;
1179	}
1180	}
1181
1182
1183	XS_EUPXS(XS_Devel__PPPort_TestSvUV_set)static void XS_Devel__PPPort_TestSvUV_set( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1184	XS_EUPXS(XS_Devel__PPPort_TestSvUV_set)static void XS_Devel__PPPort_TestSvUV_set( CV* cv __attribute__ ((unused)))
1185	{
1186	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1187	if (items != 2)
1188	croak_xs_usagePerl_croak_xs_usage(cv, "sv, val");
1189	{
1190	SV * sv = ST(0)PL_stack_base[ax + (0)]
1191	;
1192	UV val = (UV)SvUV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (1)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (1)],2))
1193	;
1194	IV RETVAL;
1195	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1196	#line 696 "RealPPPort.xs"
1197	SvUV_set(sv, val)do { ((void)0); ((void)0); (((XPVUV*)(sv)->sv_any)->xuv_u .xivu_uv = (val)); } while (0);
1198	RETVAL = SvUVX(sv)((XPVUV*) (sv)->sv_any)->xuv_u.xivu_uv == val ? 42 : -1;
1199	#line 1200 "RealPPPort.c"
1200	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1201	}
1202	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1203	}
1204
1205
1206	XS_EUPXS(XS_Devel__PPPort_TestSvPVX_const)static void XS_Devel__PPPort_TestSvPVX_const( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1207	XS_EUPXS(XS_Devel__PPPort_TestSvPVX_const)static void XS_Devel__PPPort_TestSvPVX_const( CV* cv __attribute__ ((unused)))
1208	{
1209	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1210	if (items != 1)
1211	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
1212	{
1213	SV * sv = ST(0)PL_stack_base[ax + (0)]
1214	;
1215	IV RETVAL;
1216	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1217	#line 705 "RealPPPort.xs"
1218	RETVAL = strEQ(SvPVX_const(sv), "mhx")(strcmp(((const char*)(0 + (sv)->sv_u.svu_pv)),"mhx") == 0 ) ? 43 : -1;
1219	#line 1220 "RealPPPort.c"
1220	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1221	}
1222	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1223	}
1224
1225
1226	XS_EUPXS(XS_Devel__PPPort_TestSvPVX_mutable)static void XS_Devel__PPPort_TestSvPVX_mutable( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1227	XS_EUPXS(XS_Devel__PPPort_TestSvPVX_mutable)static void XS_Devel__PPPort_TestSvPVX_mutable( CV* cv __attribute__ ((unused)))
1228	{
1229	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1230	if (items != 1)
1231	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
1232	{
1233	SV * sv = ST(0)PL_stack_base[ax + (0)]
1234	;
1235	IV RETVAL;
1236	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1237	#line 713 "RealPPPort.xs"
1238	RETVAL = strEQ(SvPVX_mutable(sv), "mhx")(strcmp((0 + (sv)->sv_u.svu_pv),"mhx") == 0) ? 44 : -1;
1239	#line 1240 "RealPPPort.c"
1240	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1241	}
1242	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1243	}
1244
1245
1246	XS_EUPXS(XS_Devel__PPPort_TestSvSTASH_set)static void XS_Devel__PPPort_TestSvSTASH_set( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1247	XS_EUPXS(XS_Devel__PPPort_TestSvSTASH_set)static void XS_Devel__PPPort_TestSvSTASH_set( CV* cv __attribute__ ((unused)))
1248	{
1249	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1250	if (items != 2)
1251	croak_xs_usagePerl_croak_xs_usage(cv, "sv, name");
1252	{
1253	SV * sv = ST(0)PL_stack_base[ax + (0)]
1254	;
1255	char * name = (char *)SvPV_nolen(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (1)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (1)],0,2))
1256	;
1257	#line 722 "RealPPPort.xs"
1258	sv = SvRV(sv)((sv)->sv_u.svu_rv);
1259	SvREFCNT_dec(SvSTASH(sv))Perl_SvREFCNT_dec( ((SV )({ void _p = (((XPVMG*) (sv)->sv_any )->xmg_stash); _p; })));
1260	SvSTASH_set(sv, (HV) SvREFCNT_inc(gv_stashpv(name, 0)))do { ((void)0); (((XPVMG) (sv)->sv_any)->xmg_stash = ( (HV) Perl_SvREFCNT_inc(((SV )({ void *_p = (Perl_gv_stashpv ( name,0)); _p; }))))); } while (0);
1261	#line 1262 "RealPPPort.c"
1262	}
1263	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
1264	}
1265
1266
1267	XS_EUPXS(XS_Devel__PPPort_Test_sv_setsv_SV_NOSTEAL)static void XS_Devel__PPPort_Test_sv_setsv_SV_NOSTEAL( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1268	XS_EUPXS(XS_Devel__PPPort_Test_sv_setsv_SV_NOSTEAL)static void XS_Devel__PPPort_Test_sv_setsv_SV_NOSTEAL( CV* cv __attribute__((unused)))
1269	{
1270	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1271	if (items != 0)
1272	croak_xs_usagePerl_croak_xs_usage(cv, "");
1273	{
1274	#line 729 "RealPPPort.xs"
1275	SV sv1, sv2;
1276	#line 1277 "RealPPPort.c"
1277	IV RETVAL;
1278	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1279	#line 731 "RealPPPort.xs"
1280	sv1 = sv_2mortal(newSVpv("test1", 0))Perl_sv_2mortal( Perl_newSVpv( "test1",0));
1281	sv2 = sv_2mortal(newSVpv("test2", 0))Perl_sv_2mortal( Perl_newSVpv( "test2",0));
1282	sv_setsv_flags(sv2, sv1, SV_NOSTEAL)Perl_sv_setsv_flags( sv2,sv1,16);
1283	RETVAL = (strEQ(SvPV_nolen(sv1), "test1")(strcmp(((((sv1)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400) ? ((sv1)->sv_u.svu_pv) : Perl_sv_2pv_flags( sv1 ,0,2)),"test1") == 0) && strEQ(SvPV_nolen(sv2), "test1")(strcmp(((((sv2)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400) ? ((sv2)->sv_u.svu_pv) : Perl_sv_2pv_flags( sv2 ,0,2)),"test1") == 0));
1284	#line 1285 "RealPPPort.c"
1285	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1286	}
1287	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1288	}
1289
1290
1291	XS_EUPXS(XS_Devel__PPPort_newSVsv_nomg)static void XS_Devel__PPPort_newSVsv_nomg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1292	XS_EUPXS(XS_Devel__PPPort_newSVsv_nomg)static void XS_Devel__PPPort_newSVsv_nomg( CV* cv __attribute__ ((unused)))
1293	{
1294	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1295	if (items != 1)
1296	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
1297	{
1298	SV * sv = ST(0)PL_stack_base[ax + (0)]
1299	;
1300	SV * RETVAL;
1301	#line 742 "RealPPPort.xs"
1302	RETVAL = newSVsv_nomg(sv)Perl_newSVsv_flags( (sv),16);
1303	#line 1304 "RealPPPort.c"
1304	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
1305	ST(0)PL_stack_base[ax + (0)] = RETVAL;
1306	}
1307	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1308	}
1309
1310
1311	XS_EUPXS(XS_Devel__PPPort_sv_setsv_compile_test)static void XS_Devel__PPPort_sv_setsv_compile_test( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1312	XS_EUPXS(XS_Devel__PPPort_sv_setsv_compile_test)static void XS_Devel__PPPort_sv_setsv_compile_test( CV* cv __attribute__ ((unused)))
1313	{
1314	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1315	if (items != 1)
1316	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
1317	{
1318	SV * sv = ST(0)PL_stack_base[ax + (0)]
1319	;
1320	#line 750 "RealPPPort.xs"
1321	sv_setsv(sv, NULL)Perl_sv_setsv_flags( sv,((void*)0),2\|0);
1322	sv_setsv_flags(sv, NULL, 0)Perl_sv_setsv_flags( sv,((void*)0),0);
1323	sv_setsv_flags(sv, NULL, SV_NOSTEAL)Perl_sv_setsv_flags( sv,((void*)0),16);
1324	#line 1325 "RealPPPort.c"
1325	}
1326	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
1327	}
1328
1329
1330	XS_EUPXS(XS_Devel__PPPort_G_SCALAR)static void XS_Devel__PPPort_G_SCALAR( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
1331	XS_EUPXS(XS_Devel__PPPort_G_SCALAR)static void XS_Devel__PPPort_G_SCALAR( CV* cv __attribute__(( unused)))
1332	{
1333	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1334	if (items != 0)
1335	croak_xs_usagePerl_croak_xs_usage(cv, "");
1336	{
1337	I32 RETVAL;
1338	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1339	#line 761 "RealPPPort.xs"
1340	RETVAL = G_SCALAR2;
1341	#line 1342 "RealPPPort.c"
1342	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1343	}
1344	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1345	}
1346
1347
1348	XS_EUPXS(XS_Devel__PPPort_G_ARRAY)static void XS_Devel__PPPort_G_ARRAY( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
1349	XS_EUPXS(XS_Devel__PPPort_G_ARRAY)static void XS_Devel__PPPort_G_ARRAY( CV* cv __attribute__((unused )))
1350	{
1351	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1352	if (items != 0)
1353	croak_xs_usagePerl_croak_xs_usage(cv, "");
1354	{
1355	I32 RETVAL;
1356	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1357	#line 768 "RealPPPort.xs"
1358	RETVAL = G_ARRAY3;
1359	#line 1360 "RealPPPort.c"
1360	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1361	}
1362	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1363	}
1364
1365
1366	XS_EUPXS(XS_Devel__PPPort_G_DISCARD)static void XS_Devel__PPPort_G_DISCARD( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
1367	XS_EUPXS(XS_Devel__PPPort_G_DISCARD)static void XS_Devel__PPPort_G_DISCARD( CV* cv __attribute__( (unused)))
1368	{
1369	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1370	if (items != 0)
1371	croak_xs_usagePerl_croak_xs_usage(cv, "");
1372	{
1373	I32 RETVAL;
1374	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1375	#line 775 "RealPPPort.xs"
1376	RETVAL = G_DISCARD0x4;
1377	#line 1378 "RealPPPort.c"
1378	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1379	}
1380	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1381	}
1382
1383
1384	XS_EUPXS(XS_Devel__PPPort_G_RETHROW)static void XS_Devel__PPPort_G_RETHROW( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
1385	XS_EUPXS(XS_Devel__PPPort_G_RETHROW)static void XS_Devel__PPPort_G_RETHROW( CV* cv __attribute__( (unused)))
1386	{
1387	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1388	if (items != 0)
1389	croak_xs_usagePerl_croak_xs_usage(cv, "");
1390	{
1391	I32 RETVAL;
1392	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1393	#line 782 "RealPPPort.xs"
1394	RETVAL = G_RETHROW0x2000;
1395	#line 1396 "RealPPPort.c"
1396	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1397	}
1398	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1399	}
1400
1401
1402	XS_EUPXS(XS_Devel__PPPort_eval_sv)static void XS_Devel__PPPort_eval_sv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
1403	XS_EUPXS(XS_Devel__PPPort_eval_sv)static void XS_Devel__PPPort_eval_sv( CV* cv __attribute__((unused )))
1404	{
1405	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1406	if (items != 2)
1407	croak_xs_usagePerl_croak_xs_usage(cv, "sv, flags");
1408	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
1409	SPsp -= items;
1410	{
1411	SV* sv = ST(0)PL_stack_base[ax + (0)]
1412	;
1413	I32 flags = (I32)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
1414	;
1415	#line 791 "RealPPPort.xs"
1416	I32 i;
1417	#line 1418 "RealPPPort.c"
1418	#line 793 "RealPPPort.xs"
1419	PUTBACKPL_stack_sp = sp;
1420	i = eval_sv(sv, flags)Perl_eval_sv( sv,flags);
1421	SPAGAINsp = PL_stack_sp;
1422	EXTEND(SP, 1)do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0);
1423	mPUSHi(i)Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)(i));
1424	#line 1425 "RealPPPort.c"
1425	PUTBACKPL_stack_sp = sp;
1426	return;
1427	}
1428	}
1429
1430
1431	XS_EUPXS(XS_Devel__PPPort_eval_pv)static void XS_Devel__PPPort_eval_pv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
1432	XS_EUPXS(XS_Devel__PPPort_eval_pv)static void XS_Devel__PPPort_eval_pv( CV* cv __attribute__((unused )))
1433	{
1434	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1435	if (items != 2)
1436	croak_xs_usagePerl_croak_xs_usage(cv, "p, croak_on_error");
1437	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
1438	SPsp -= items;
1439	{
1440	char* p = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
1441	;
1442	I32 croak_on_error = (I32)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
1443	;
1444	#line 804 "RealPPPort.xs"
1445	PUTBACKPL_stack_sp = sp;
1446	EXTEND(SP, 1)do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0);
1447	PUSHs(eval_pv(p, croak_on_error))(*++sp = (Perl_eval_pv( p,croak_on_error)));
1448	#line 1449 "RealPPPort.c"
1449	PUTBACKPL_stack_sp = sp;
1450	return;
1451	}
1452	}
1453
1454
1455	XS_EUPXS(XS_Devel__PPPort_call_sv)static void XS_Devel__PPPort_call_sv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
1456	XS_EUPXS(XS_Devel__PPPort_call_sv)static void XS_Devel__PPPort_call_sv( CV* cv __attribute__((unused )))
1457	{
1458	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1459	if (items < 2)
1460	croak_xs_usagePerl_croak_xs_usage(cv, "sv, flags, ...");
1461	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
1462	SPsp -= items;
1463	{
1464	SV* sv = ST(0)PL_stack_base[ax + (0)]
1465	;
1466	I32 flags = (I32)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
1467	;
1468	#line 813 "RealPPPort.xs"
1469	I32 i;
1470	#line 1471 "RealPPPort.c"
1471	#line 815 "RealPPPort.xs"
1472	for (i=0; i<items-2; i++)
1473	ST(i)PL_stack_base[ax + (i)] = ST(i+2)PL_stack_base[ax + (i+2)]; /* pop first two args */
1474	PUSHMARK(SP)do { I32 * mark_stack_entry; if (__builtin_expect((((mark_stack_entry = ++PL_markstack_ptr) == PL_markstack_max) ? (_Bool)1 : (_Bool )0),(0))) mark_stack_entry = Perl_markstack_grow(); *mark_stack_entry = (I32)((sp) - PL_stack_base); ; } while (0);
1475	SPsp += items - 2;
1476	PUTBACKPL_stack_sp = sp;
1477	i = call_sv(sv, flags)Perl_call_sv( sv,flags);
1478	SPAGAINsp = PL_stack_sp;
1479	EXTEND(SP, 1)do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0);
1480	mPUSHi(i)Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)(i));
1481	#line 1482 "RealPPPort.c"
1482	PUTBACKPL_stack_sp = sp;
1483	return;
1484	}
1485	}
1486
1487
1488	XS_EUPXS(XS_Devel__PPPort_call_pv)static void XS_Devel__PPPort_call_pv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
1489	XS_EUPXS(XS_Devel__PPPort_call_pv)static void XS_Devel__PPPort_call_pv( CV* cv __attribute__((unused )))
1490	{
1491	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1492	if (items < 2)
1493	croak_xs_usagePerl_croak_xs_usage(cv, "subname, flags, ...");
1494	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
1495	SPsp -= items;
1496	{
1497	char* subname = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
1498	;
1499	I32 flags = (I32)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
1500	;
1501	#line 830 "RealPPPort.xs"
1502	I32 i;
1503	#line 1504 "RealPPPort.c"
1504	#line 832 "RealPPPort.xs"
1505	for (i=0; i<items-2; i++)
1506	ST(i)PL_stack_base[ax + (i)] = ST(i+2)PL_stack_base[ax + (i+2)]; /* pop first two args */
1507	PUSHMARK(SP)do { I32 * mark_stack_entry; if (__builtin_expect((((mark_stack_entry = ++PL_markstack_ptr) == PL_markstack_max) ? (_Bool)1 : (_Bool )0),(0))) mark_stack_entry = Perl_markstack_grow(); *mark_stack_entry = (I32)((sp) - PL_stack_base); ; } while (0);
1508	SPsp += items - 2;
1509	PUTBACKPL_stack_sp = sp;
1510	i = call_pv(subname, flags)Perl_call_pv( subname,flags);
1511	SPAGAINsp = PL_stack_sp;
1512	EXTEND(SP, 1)do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0);
1513	mPUSHi(i)Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)(i));
1514	#line 1515 "RealPPPort.c"
1515	PUTBACKPL_stack_sp = sp;
1516	return;
1517	}
1518	}
1519
1520
1521	XS_EUPXS(XS_Devel__PPPort_call_argv)static void XS_Devel__PPPort_call_argv( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
1522	XS_EUPXS(XS_Devel__PPPort_call_argv)static void XS_Devel__PPPort_call_argv( CV* cv __attribute__( (unused)))
1523	{
1524	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1525	if (items < 2)
1526	croak_xs_usagePerl_croak_xs_usage(cv, "subname, flags, ...");
1527	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
1528	SPsp -= items;
1529	{
1530	char* subname = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
1531	;
1532	I32 flags = (I32)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
1533	;
1534	#line 847 "RealPPPort.xs"
1535	I32 i;
1536	char *args[8];
1537	#line 1538 "RealPPPort.c"
1538	#line 850 "RealPPPort.xs"
1539	if (items > 8) /* play safe */
1540	XSRETURN_UNDEFdo { (PL_stack_base[ax + (0)] = &(PL_sv_immortals[1])); do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
1541	for (i=2; i<items; i++)
1542	args[i-2] = SvPV_nolen(ST(i))((((PL_stack_base[ax + (i)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (i)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (i)],0,2));
1543	args[items-2] = NULL((void*)0);
1544	PUTBACKPL_stack_sp = sp;
1545	i = call_argv(subname, flags, args)Perl_call_argv( subname,flags,args);
1546	SPAGAINsp = PL_stack_sp;
1547	EXTEND(SP, 1)do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0);
1548	mPUSHi(i)Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)(i));
1549	#line 1550 "RealPPPort.c"
1550	PUTBACKPL_stack_sp = sp;
1551	return;
1552	}
1553	}
1554
1555
1556	XS_EUPXS(XS_Devel__PPPort_call_method)static void XS_Devel__PPPort_call_method( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1557	XS_EUPXS(XS_Devel__PPPort_call_method)static void XS_Devel__PPPort_call_method( CV* cv __attribute__ ((unused)))
1558	{
1559	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1560	if (items < 2)
1561	croak_xs_usagePerl_croak_xs_usage(cv, "methname, flags, ...");
1562	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
1563	SPsp -= items;
1564	{
1565	char* methname = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
1566	;
1567	I32 flags = (I32)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
1568	;
1569	#line 866 "RealPPPort.xs"
1570	I32 i;
1571	#line 1572 "RealPPPort.c"
1572	#line 868 "RealPPPort.xs"
1573	for (i=0; i<items-2; i++)
1574	ST(i)PL_stack_base[ax + (i)] = ST(i+2)PL_stack_base[ax + (i+2)]; /* pop first two args */
1575	PUSHMARK(SP)do { I32 * mark_stack_entry; if (__builtin_expect((((mark_stack_entry = ++PL_markstack_ptr) == PL_markstack_max) ? (_Bool)1 : (_Bool )0),(0))) mark_stack_entry = Perl_markstack_grow(); *mark_stack_entry = (I32)((sp) - PL_stack_base); ; } while (0);
1576	SPsp += items - 2;
1577	PUTBACKPL_stack_sp = sp;
1578	i = call_method(methname, flags)Perl_call_method( methname,flags);
1579	SPAGAINsp = PL_stack_sp;
1580	EXTEND(SP, 1)do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0);
1581	mPUSHi(i)Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)(i));
1582	#line 1583 "RealPPPort.c"
1583	PUTBACKPL_stack_sp = sp;
1584	return;
1585	}
1586	}
1587
1588
1589	XS_EUPXS(XS_Devel__PPPort_call_sv_G_METHOD)static void XS_Devel__PPPort_call_sv_G_METHOD( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1590	XS_EUPXS(XS_Devel__PPPort_call_sv_G_METHOD)static void XS_Devel__PPPort_call_sv_G_METHOD( CV* cv __attribute__ ((unused)))
1591	{
1592	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1593	if (items < 2)
1594	croak_xs_usagePerl_croak_xs_usage(cv, "sv, flags, ...");
1595	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
1596	SPsp -= items;
1597	{
1598	SV* sv = ST(0)PL_stack_base[ax + (0)]
1599	;
1600	I32 flags = (I32)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
1601	;
1602	#line 883 "RealPPPort.xs"
1603	I32 i;
1604	#line 1605 "RealPPPort.c"
1605	#line 885 "RealPPPort.xs"
1606	for (i=0; i<items-2; i++)
1607	ST(i)PL_stack_base[ax + (i)] = ST(i+2)PL_stack_base[ax + (i+2)]; /* pop first two args */
1608	PUSHMARK(SP)do { I32 * mark_stack_entry; if (__builtin_expect((((mark_stack_entry = ++PL_markstack_ptr) == PL_markstack_max) ? (_Bool)1 : (_Bool )0),(0))) mark_stack_entry = Perl_markstack_grow(); *mark_stack_entry = (I32)((sp) - PL_stack_base); ; } while (0);
1609	SPsp += items - 2;
1610	PUTBACKPL_stack_sp = sp;
1611	i = call_sv(sv, flags \| G_METHOD)Perl_call_sv( sv,flags \| 0x80);
1612	SPAGAINsp = PL_stack_sp;
1613	EXTEND(SP, 1)do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0);
1614	mPUSHi(i)Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)(i));
1615	#line 1616 "RealPPPort.c"
1616	PUTBACKPL_stack_sp = sp;
1617	return;
1618	}
1619	}
1620
1621
1622	XS_EUPXS(XS_Devel__PPPort_load_module)static void XS_Devel__PPPort_load_module( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1623	XS_EUPXS(XS_Devel__PPPort_load_module)static void XS_Devel__PPPort_load_module( CV* cv __attribute__ ((unused)))
1624	{
1625	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1626	if (items < 3)
1627	croak_xs_usagePerl_croak_xs_usage(cv, "flags, name, version, ...");
1628	{
1629	U32 flags = (unsigned long)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
1630	;
1631	SV * name = ST(1)PL_stack_base[ax + (1)]
1632	;
1633	SV * version = ST(2)PL_stack_base[ax + (2)]
1634	;
1635	#line 901 "RealPPPort.xs"
1636	/* Both SV parameters are donated to the ops built inside
1637	load_module, so we need to bump the refcounts. */
1638	Perl_load_module(aTHX_ flags, SvREFCNT_inc_simple(name)Perl_SvREFCNT_inc(((SV )({ void _p = (name); _p; }))),
1639	SvREFCNT_inc_simple(version)Perl_SvREFCNT_inc(((SV )({ void _p = (version); _p; }))), NULL((void*)0));
1640	#line 1641 "RealPPPort.c"
1641	}
1642	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
1643	}
1644
1645
1646	XS_EUPXS(XS_Devel__PPPort_CopSTASHPV)static void XS_Devel__PPPort_CopSTASHPV( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1647	XS_EUPXS(XS_Devel__PPPort_CopSTASHPV)static void XS_Devel__PPPort_CopSTASHPV( CV* cv __attribute__ ((unused)))
1648	{
1649	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1650	if (items != 0)
1651	croak_xs_usagePerl_croak_xs_usage(cv, "");
1652	{
1653	char * RETVAL;
1654	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1655	#line 913 "RealPPPort.xs"
1656	RETVAL = CopSTASHPV(PL_curcop)(((PL_curcop)->cop_stash) ? ((((((PL_curcop)->cop_stash ))->sv_flags & 0x02000000) && ((struct xpvhv_aux )&(((((PL_curcop)->cop_stash))->sv_u.svu_hash)[((XPVHV ) (((PL_curcop)->cop_stash))->sv_any)->xhv_max+1])) ->xhv_name_u.xhvnameu_name && ( ((struct xpvhv_aux )&(((((PL_curcop)->cop_stash))->sv_u.svu_hash)[((XPVHV ) (((PL_curcop)->cop_stash))->sv_any)->xhv_max+1])) ->xhv_name_count ? ((struct xpvhv_aux)&(((((PL_curcop )->cop_stash))->sv_u.svu_hash)[((XPVHV) (((PL_curcop)-> cop_stash))->sv_any)->xhv_max+1]))->xhv_name_u.xhvnameu_names : ((struct xpvhv_aux)&(((((PL_curcop)->cop_stash))-> sv_u.svu_hash)[((XPVHV) (((PL_curcop)->cop_stash))->sv_any )->xhv_max+1]))->xhv_name_u.xhvnameu_name )) ? (( ((struct xpvhv_aux)&(((((PL_curcop)->cop_stash))->sv_u.svu_hash )[((XPVHV) (((PL_curcop)->cop_stash))->sv_any)->xhv_max +1]))->xhv_name_count ? ((struct xpvhv_aux)&(((((PL_curcop )->cop_stash))->sv_u.svu_hash)[((XPVHV) (((PL_curcop)-> cop_stash))->sv_any)->xhv_max+1]))->xhv_name_u.xhvnameu_names : ((struct xpvhv_aux)&(((((PL_curcop)->cop_stash))-> sv_u.svu_hash)[((XPVHV) (((PL_curcop)->cop_stash))->sv_any )->xhv_max+1]))->xhv_name_u.xhvnameu_name ))->hek_key : ((void)0)) : ((void)0));
1657	#line 1658 "RealPPPort.c"
1658	sv_setpv(TARG, RETVAL)Perl_sv_setpv( targ,RETVAL); XSprePUSH(sp = PL_stack_base + ax - 1); PUSHTARGdo { do { if (__builtin_expect(((((targ)->sv_flags & 0x00400000 )) ? (_Bool)1 : (_Bool)0),(0))) Perl_mg_set( targ); } while ( 0); (*++sp = (targ)); } while (0);
1659	}
1660	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1661	}
1662
1663
1664	XS_EUPXS(XS_Devel__PPPort_CopFILE)static void XS_Devel__PPPort_CopFILE( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
1665	XS_EUPXS(XS_Devel__PPPort_CopFILE)static void XS_Devel__PPPort_CopFILE( CV* cv __attribute__((unused )))
1666	{
1667	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1668	if (items != 0)
1669	croak_xs_usagePerl_croak_xs_usage(cv, "");
1670	{
1671	char * RETVAL;
1672	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1673	#line 920 "RealPPPort.xs"
1674	RETVAL = CopFILE(PL_curcop)(((PL_curcop)->cop_filegv) ? ((((XPVGV)(((PL_curcop)-> cop_filegv))->sv_any)->xiv_u.xivu_namehek))->hek_key +2 : ((void)0));
1675	#line 1676 "RealPPPort.c"
1676	sv_setpv(TARG, RETVAL)Perl_sv_setpv( targ,RETVAL); XSprePUSH(sp = PL_stack_base + ax - 1); PUSHTARGdo { do { if (__builtin_expect(((((targ)->sv_flags & 0x00400000 )) ? (_Bool)1 : (_Bool)0),(0))) Perl_mg_set( targ); } while ( 0); (*++sp = (targ)); } while (0);
1677	}
1678	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1679	}
1680
1681	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5006000)
1682	#define XSubPPtmpAAAA1 1
1683
1684
1685	XS_EUPXS(XS_Devel__PPPort_caller_cx)static void XS_Devel__PPPort_caller_cx( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
1686	XS_EUPXS(XS_Devel__PPPort_caller_cx)static void XS_Devel__PPPort_caller_cx( CV* cv __attribute__( (unused)))
1687	{
1688	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1689	if (items != 1)
1690	croak_xs_usagePerl_croak_xs_usage(cv, "level");
1691	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
1692	SPsp -= items;
1693	{
1694	I32 level = (I32)SvIV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (0)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 0)],2))
1695	;
1696	#line 930 "RealPPPort.xs"
1697	const PERL_CONTEXT cx, dbcx;
1698	const char *pv;
1699	const GV *gv;
1700	#line 1701 "RealPPPort.c"
1701	#line 934 "RealPPPort.xs"
1702	cx = caller_cx(level, &dbcx)Perl_caller_cx( level,&dbcx);
1703	if (!cx) XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
1704
1705	EXTEND(SP, 4)do { (void)0; if (__builtin_expect(((((4) < 0 \|\| PL_stack_max - (sp) < (4))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(4) > sizeof(ssize_t) && ((ssize_t) (4) != (4)) ? -1 : (4))); ((void)sizeof(sp)); } } while (0);
1706
1707	pv = CopSTASHPV(cx->blk_oldcop)(((cx->cx_u.cx_blk.blku_oldcop)->cop_stash) ? ((((((cx-> cx_u.cx_blk.blku_oldcop)->cop_stash))->sv_flags & 0x02000000 ) && ((struct xpvhv_aux)&(((((cx->cx_u.cx_blk .blku_oldcop)->cop_stash))->sv_u.svu_hash)[((XPVHV) (( (cx->cx_u.cx_blk.blku_oldcop)->cop_stash))->sv_any)-> xhv_max+1]))->xhv_name_u.xhvnameu_name && ( ((struct xpvhv_aux)&(((((cx->cx_u.cx_blk.blku_oldcop)->cop_stash ))->sv_u.svu_hash)[((XPVHV) (((cx->cx_u.cx_blk.blku_oldcop )->cop_stash))->sv_any)->xhv_max+1]))->xhv_name_count ? ((struct xpvhv_aux)&(((((cx->cx_u.cx_blk.blku_oldcop )->cop_stash))->sv_u.svu_hash)[((XPVHV) (((cx->cx_u .cx_blk.blku_oldcop)->cop_stash))->sv_any)->xhv_max+ 1]))->xhv_name_u.xhvnameu_names : ((struct xpvhv_aux)& (((((cx->cx_u.cx_blk.blku_oldcop)->cop_stash))->sv_u .svu_hash)[((XPVHV) (((cx->cx_u.cx_blk.blku_oldcop)->cop_stash ))->sv_any)->xhv_max+1]))->xhv_name_u.xhvnameu_name ) ) ? (( ((struct xpvhv_aux)&(((((cx->cx_u.cx_blk.blku_oldcop )->cop_stash))->sv_u.svu_hash)[((XPVHV) (((cx->cx_u .cx_blk.blku_oldcop)->cop_stash))->sv_any)->xhv_max+ 1]))->xhv_name_count ? ((struct xpvhv_aux)&(((((cx-> cx_u.cx_blk.blku_oldcop)->cop_stash))->sv_u.svu_hash)[( (XPVHV) (((cx->cx_u.cx_blk.blku_oldcop)->cop_stash))-> sv_any)->xhv_max+1]))->xhv_name_u.xhvnameu_names : ((struct xpvhv_aux)&(((((cx->cx_u.cx_blk.blku_oldcop)->cop_stash ))->sv_u.svu_hash)[((XPVHV) (((cx->cx_u.cx_blk.blku_oldcop )->cop_stash))->sv_any)->xhv_max+1]))->xhv_name_u .xhvnameu_name ))->hek_key : ((void)0)) : ((void)0));
1708	ST(0)PL_stack_base[ax + (0)] = pv ? sv_2mortal(newSVpv(pv, 0))Perl_sv_2mortal( Perl_newSVpv( pv,0)) : &PL_sv_undef(PL_sv_immortals[1]);
1709	gv = CvGV(cx->blk_sub.cv)Perl_CvGV( (CV *)(cx->cx_u.cx_blk.blk_u.blku_sub.cv));
1710	ST(1)PL_stack_base[ax + (1)] = isGV(gv)(((svtype)((gv)->sv_flags & 0xff)) == SVt_PVGV) ? sv_2mortal(newSVpv(GvNAME(gv), 0))Perl_sv_2mortal( Perl_newSVpv( ((((XPVGV*)(gv)->sv_any)-> xiv_u.xivu_namehek))->hek_key,0)) : &PL_sv_undef(PL_sv_immortals[1]);
1711
1712	pv = CopSTASHPV(dbcx->blk_oldcop)(((dbcx->cx_u.cx_blk.blku_oldcop)->cop_stash) ? ((((((dbcx ->cx_u.cx_blk.blku_oldcop)->cop_stash))->sv_flags & 0x02000000) && ((struct xpvhv_aux)&(((((dbcx-> cx_u.cx_blk.blku_oldcop)->cop_stash))->sv_u.svu_hash)[( (XPVHV) (((dbcx->cx_u.cx_blk.blku_oldcop)->cop_stash)) ->sv_any)->xhv_max+1]))->xhv_name_u.xhvnameu_name && ( ((struct xpvhv_aux)&(((((dbcx->cx_u.cx_blk.blku_oldcop )->cop_stash))->sv_u.svu_hash)[((XPVHV) (((dbcx->cx_u .cx_blk.blku_oldcop)->cop_stash))->sv_any)->xhv_max+ 1]))->xhv_name_count ? ((struct xpvhv_aux)&(((((dbcx ->cx_u.cx_blk.blku_oldcop)->cop_stash))->sv_u.svu_hash )[((XPVHV) (((dbcx->cx_u.cx_blk.blku_oldcop)->cop_stash ))->sv_any)->xhv_max+1]))->xhv_name_u.xhvnameu_names : ((struct xpvhv_aux)&(((((dbcx->cx_u.cx_blk.blku_oldcop )->cop_stash))->sv_u.svu_hash)[((XPVHV) (((dbcx->cx_u .cx_blk.blku_oldcop)->cop_stash))->sv_any)->xhv_max+ 1]))->xhv_name_u.xhvnameu_name )) ? (( ((struct xpvhv_aux )&(((((dbcx->cx_u.cx_blk.blku_oldcop)->cop_stash))-> sv_u.svu_hash)[((XPVHV) (((dbcx->cx_u.cx_blk.blku_oldcop) ->cop_stash))->sv_any)->xhv_max+1]))->xhv_name_count ? ((struct xpvhv_aux)&(((((dbcx->cx_u.cx_blk.blku_oldcop )->cop_stash))->sv_u.svu_hash)[((XPVHV) (((dbcx->cx_u .cx_blk.blku_oldcop)->cop_stash))->sv_any)->xhv_max+ 1]))->xhv_name_u.xhvnameu_names : ((struct xpvhv_aux)& (((((dbcx->cx_u.cx_blk.blku_oldcop)->cop_stash))->sv_u .svu_hash)[((XPVHV) (((dbcx->cx_u.cx_blk.blku_oldcop)-> cop_stash))->sv_any)->xhv_max+1]))->xhv_name_u.xhvnameu_name ))->hek_key : ((void)0)) : ((void)0));
1713	ST(2)PL_stack_base[ax + (2)] = pv ? sv_2mortal(newSVpv(pv, 0))Perl_sv_2mortal( Perl_newSVpv( pv,0)) : &PL_sv_undef(PL_sv_immortals[1]);
1714	gv = CvGV(dbcx->blk_sub.cv)Perl_CvGV( (CV *)(dbcx->cx_u.cx_blk.blk_u.blku_sub.cv));
1715	ST(3)PL_stack_base[ax + (3)] = isGV(gv)(((svtype)((gv)->sv_flags & 0xff)) == SVt_PVGV) ? sv_2mortal(newSVpv(GvNAME(gv), 0))Perl_sv_2mortal( Perl_newSVpv( ((((XPVGV*)(gv)->sv_any)-> xiv_u.xivu_namehek))->hek_key,0)) : &PL_sv_undef(PL_sv_immortals[1]);
1716
1717	XSRETURN(4)do { const IV tmpXSoff = (4); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1718	#line 1719 "RealPPPort.c"
1719	PUTBACKPL_stack_sp = sp;
1720	return;
1721	}
1722	}
1723
1724	#endif /* 5.6.0 */
1725
1726	XS_EUPXS(XS_Devel__PPPort_exception)static void XS_Devel__PPPort_exception( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
1727	XS_EUPXS(XS_Devel__PPPort_exception)static void XS_Devel__PPPort_exception( CV* cv __attribute__( (unused)))
1728	{
1729	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1730	if (items != 1)
1731	croak_xs_usagePerl_croak_xs_usage(cv, "throw_e");
1732	{
1733	int throw_e = (int)SvIV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (0)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 0)],2))
1734	;
1735	int RETVAL;
1736	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1737
1738	RETVAL = exception(throw_e);
1739	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
1740	}
1741	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1742	}
1743
1744
1745	XS_EUPXS(XS_Devel__PPPort_croak_NVgf)static void XS_Devel__PPPort_croak_NVgf( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1746	XS_EUPXS(XS_Devel__PPPort_croak_NVgf)static void XS_Devel__PPPort_croak_NVgf( CV* cv __attribute__ ((unused)))
1747	{
1748	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1749	if (items != 1)
1750	croak_xs_usagePerl_croak_xs_usage(cv, "num");
1751	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
1752	SPsp -= items;
1753	{
1754	NV num = (NV)SvNV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000200\|0x00200000 )) == 0x00000200) ? ((XPVNV*) (PL_stack_base[ax + (0)])->sv_any )->xnv_u.xnv_nv : Perl_sv_2nv_flags( PL_stack_base[ax + (0 )],2))
1755	;
1756	#line 971 "RealPPPort.xs"
1757	Perl_croak(aTHX_ "%.20" NVgf"g" "\n", num);
1758	#line 1759 "RealPPPort.c"
1759	PUTBACKPL_stack_sp = sp;
1760	return;
1761	}
1762	}
1763
1764	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
1765	#define XSubPPtmpAAAB1 1
1766
1767
1768	XS_EUPXS(XS_Devel__PPPort_sprintf_iv)static void XS_Devel__PPPort_sprintf_iv( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1769	XS_EUPXS(XS_Devel__PPPort_sprintf_iv)static void XS_Devel__PPPort_sprintf_iv( CV* cv __attribute__ ((unused)))
1770	{
1771	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1772	if (items != 1)
1773	croak_xs_usagePerl_croak_xs_usage(cv, "iv");
1774	{
1775	IV iv = (IV)SvIV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (0)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 0)],2))
1776	;
1777	SV * RETVAL;
1778	#line 979 "RealPPPort.xs"
1779	RETVAL = newSVpvfPerl_newSVpvf("XX_%" IVdf"ld" "_XX", iv);
1780	#line 1781 "RealPPPort.c"
1781	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
1782	ST(0)PL_stack_base[ax + (0)] = RETVAL;
1783	}
1784	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1785	}
1786
1787
1788	XS_EUPXS(XS_Devel__PPPort_sprintf_uv)static void XS_Devel__PPPort_sprintf_uv( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1789	XS_EUPXS(XS_Devel__PPPort_sprintf_uv)static void XS_Devel__PPPort_sprintf_uv( CV* cv __attribute__ ((unused)))
1790	{
1791	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1792	if (items != 1)
1793	croak_xs_usagePerl_croak_xs_usage(cv, "uv");
1794	{
1795	UV uv = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
1796	;
1797	SV * RETVAL;
1798	#line 987 "RealPPPort.xs"
1799	RETVAL = newSVpvfPerl_newSVpvf("XX_%" UVuf"lu" "_XX", uv);
1800	#line 1801 "RealPPPort.c"
1801	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
1802	ST(0)PL_stack_base[ax + (0)] = RETVAL;
1803	}
1804	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1805	}
1806
1807
1808	XS_EUPXS(XS_Devel__PPPort_sprintf_ivmax)static void XS_Devel__PPPort_sprintf_ivmax( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1809	XS_EUPXS(XS_Devel__PPPort_sprintf_ivmax)static void XS_Devel__PPPort_sprintf_ivmax( CV* cv __attribute__ ((unused)))
1810	{
1811	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1812	if (items != 0)
1813	croak_xs_usagePerl_croak_xs_usage(cv, "");
1814	{
1815	SV * RETVAL;
1816	#line 994 "RealPPPort.xs"
1817	RETVAL = newSVpvfPerl_newSVpvf("%" IVdf"ld", IV_MAX((IV) ((~(UV)0) >> 1)));
1818	#line 1819 "RealPPPort.c"
1819	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
1820	ST(0)PL_stack_base[ax + (0)] = RETVAL;
1821	}
1822	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1823	}
1824
1825
1826	XS_EUPXS(XS_Devel__PPPort_sprintf_uvmax)static void XS_Devel__PPPort_sprintf_uvmax( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1827	XS_EUPXS(XS_Devel__PPPort_sprintf_uvmax)static void XS_Devel__PPPort_sprintf_uvmax( CV* cv __attribute__ ((unused)))
1828	{
1829	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1830	if (items != 0)
1831	croak_xs_usagePerl_croak_xs_usage(cv, "");
1832	{
1833	SV * RETVAL;
1834	#line 1001 "RealPPPort.xs"
1835	RETVAL = newSVpvfPerl_newSVpvf("%" UVuf"lu", UV_MAX(~(UV)0));
1836	#line 1837 "RealPPPort.c"
1837	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
1838	ST(0)PL_stack_base[ax + (0)] = RETVAL;
1839	}
1840	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1841	}
1842
1843	#endif
1844
1845	XS_EUPXS(XS_Devel__PPPort_grok_number)static void XS_Devel__PPPort_grok_number( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1846	XS_EUPXS(XS_Devel__PPPort_grok_number)static void XS_Devel__PPPort_grok_number( CV* cv __attribute__ ((unused)))
1847	{
1848	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1849	if (items != 1)
1850	croak_xs_usagePerl_croak_xs_usage(cv, "string");
1851	{
1852	SV * string = ST(0)PL_stack_base[ax + (0)]
1853	;
1854	#line 1015 "RealPPPort.xs"
1855	const char *pv;
1856	STRLEN len;
1857	#line 1858 "RealPPPort.c"
1858	UV RETVAL;
1859	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1860	#line 1018 "RealPPPort.xs"
1861	pv = SvPV(string, len)((((string)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (string)->sv_any)->xpv_cur), ((string )->sv_u.svu_pv)) : Perl_sv_2pv_flags( string,&len,2));
1862	if (!grok_number(pv, len, &RETVAL)Perl_grok_number( pv,len,&RETVAL))
1863	XSRETURN_UNDEFdo { (PL_stack_base[ax + (0)] = &(PL_sv_immortals[1])); do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
1864	#line 1865 "RealPPPort.c"
1865	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
1866	}
1867	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1868	}
1869
1870
1871	XS_EUPXS(XS_Devel__PPPort_grok_bin)static void XS_Devel__PPPort_grok_bin( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
1872	XS_EUPXS(XS_Devel__PPPort_grok_bin)static void XS_Devel__PPPort_grok_bin( CV* cv __attribute__(( unused)))
1873	{
1874	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1875	if (items != 1)
1876	croak_xs_usagePerl_croak_xs_usage(cv, "string");
1877	{
1878	SV * string = ST(0)PL_stack_base[ax + (0)]
1879	;
1880	#line 1028 "RealPPPort.xs"
1881	char *pv;
1882	I32 flags = 0;
1883	STRLEN len;
1884	#line 1885 "RealPPPort.c"
1885	UV RETVAL;
1886	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1887	#line 1032 "RealPPPort.xs"
1888	pv = SvPV(string, len)((((string)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (string)->sv_any)->xpv_cur), ((string )->sv_u.svu_pv)) : Perl_sv_2pv_flags( string,&len,2));
1889	RETVAL = grok_bin(pv, &len, &flags, NULL)Perl_grok_bin_oct_hex( pv,&len,&flags,((void*)0),1,23 ,'b');
1890	#line 1891 "RealPPPort.c"
1891	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
1892	}
1893	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1894	}
1895
1896
1897	XS_EUPXS(XS_Devel__PPPort_grok_hex)static void XS_Devel__PPPort_grok_hex( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
1898	XS_EUPXS(XS_Devel__PPPort_grok_hex)static void XS_Devel__PPPort_grok_hex( CV* cv __attribute__(( unused)))
1899	{
1900	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1901	if (items != 1)
1902	croak_xs_usagePerl_croak_xs_usage(cv, "string");
1903	{
1904	SV * string = ST(0)PL_stack_base[ax + (0)]
1905	;
1906	#line 1041 "RealPPPort.xs"
1907	char *pv;
1908	I32 flags = 0;
1909	STRLEN len;
1910	#line 1911 "RealPPPort.c"
1911	UV RETVAL;
1912	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1913	#line 1045 "RealPPPort.xs"
1914	pv = SvPV(string, len)((((string)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (string)->sv_any)->xpv_cur), ((string )->sv_u.svu_pv)) : Perl_sv_2pv_flags( string,&len,2));
1915	RETVAL = grok_hex(pv, &len, &flags, NULL)Perl_grok_bin_oct_hex( pv,&len,&flags,((void*)0),4,12 ,'x');
1916	#line 1917 "RealPPPort.c"
1917	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
1918	}
1919	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1920	}
1921
1922
1923	XS_EUPXS(XS_Devel__PPPort_grok_oct)static void XS_Devel__PPPort_grok_oct( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
1924	XS_EUPXS(XS_Devel__PPPort_grok_oct)static void XS_Devel__PPPort_grok_oct( CV* cv __attribute__(( unused)))
1925	{
1926	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1927	if (items != 1)
1928	croak_xs_usagePerl_croak_xs_usage(cv, "string");
1929	{
1930	SV * string = ST(0)PL_stack_base[ax + (0)]
1931	;
1932	#line 1054 "RealPPPort.xs"
1933	char *pv;
1934	I32 flags = 0;
1935	STRLEN len;
1936	#line 1937 "RealPPPort.c"
1937	UV RETVAL;
1938	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1939	#line 1058 "RealPPPort.xs"
1940	pv = SvPV(string, len)((((string)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (string)->sv_any)->xpv_cur), ((string )->sv_u.svu_pv)) : Perl_sv_2pv_flags( string,&len,2));
1941	RETVAL = grok_oct(pv, &len, &flags, NULL)((&flags) \|= 0x02, Perl_grok_bin_oct_hex( pv,&len,& flags,((void)0),3,24,'\0'));
1942	#line 1943 "RealPPPort.c"
1943	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
1944	}
1945	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1946	}
1947
1948
1949	XS_EUPXS(XS_Devel__PPPort_Perl_grok_number)static void XS_Devel__PPPort_Perl_grok_number( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1950	XS_EUPXS(XS_Devel__PPPort_Perl_grok_number)static void XS_Devel__PPPort_Perl_grok_number( CV* cv __attribute__ ((unused)))
1951	{
1952	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1953	if (items != 1)
1954	croak_xs_usagePerl_croak_xs_usage(cv, "string");
1955	{
1956	SV * string = ST(0)PL_stack_base[ax + (0)]
1957	;
1958	#line 1067 "RealPPPort.xs"
1959	const char *pv;
1960	STRLEN len;
1961	#line 1962 "RealPPPort.c"
1962	UV RETVAL;
1963	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1964	#line 1070 "RealPPPort.xs"
1965	pv = SvPV(string, len)((((string)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (string)->sv_any)->xpv_cur), ((string )->sv_u.svu_pv)) : Perl_sv_2pv_flags( string,&len,2));
1966	if (!Perl_grok_number(aTHX_ pv, len, &RETVAL))
1967	XSRETURN_UNDEFdo { (PL_stack_base[ax + (0)] = &(PL_sv_immortals[1])); do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
1968	#line 1969 "RealPPPort.c"
1969	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
1970	}
1971	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1972	}
1973
1974
1975	XS_EUPXS(XS_Devel__PPPort_Perl_grok_bin)static void XS_Devel__PPPort_Perl_grok_bin( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
1976	XS_EUPXS(XS_Devel__PPPort_Perl_grok_bin)static void XS_Devel__PPPort_Perl_grok_bin( CV* cv __attribute__ ((unused)))
1977	{
1978	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
1979	if (items != 1)
1980	croak_xs_usagePerl_croak_xs_usage(cv, "string");
1981	{
1982	SV * string = ST(0)PL_stack_base[ax + (0)]
1983	;
1984	#line 1080 "RealPPPort.xs"
1985	char *pv;
1986	I32 flags = 0;
1987	STRLEN len;
1988	#line 1989 "RealPPPort.c"
1989	UV RETVAL;
1990	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
1991	#line 1084 "RealPPPort.xs"
1992	pv = SvPV(string, len)((((string)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (string)->sv_any)->xpv_cur), ((string )->sv_u.svu_pv)) : Perl_sv_2pv_flags( string,&len,2));
1993	RETVAL = Perl_grok_bin(aTHX_ pv, &len, &flags, NULL((void*)0));
1994	#line 1995 "RealPPPort.c"
1995	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
1996	}
1997	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
1998	}
1999
2000
2001	XS_EUPXS(XS_Devel__PPPort_Perl_grok_hex)static void XS_Devel__PPPort_Perl_grok_hex( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2002	XS_EUPXS(XS_Devel__PPPort_Perl_grok_hex)static void XS_Devel__PPPort_Perl_grok_hex( CV* cv __attribute__ ((unused)))
2003	{
2004	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2005	if (items != 1)
2006	croak_xs_usagePerl_croak_xs_usage(cv, "string");
2007	{
2008	SV * string = ST(0)PL_stack_base[ax + (0)]
2009	;
2010	#line 1093 "RealPPPort.xs"
2011	char *pv;
2012	I32 flags = 0;
2013	STRLEN len;
2014	#line 2015 "RealPPPort.c"
2015	UV RETVAL;
2016	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2017	#line 1097 "RealPPPort.xs"
2018	pv = SvPV(string, len)((((string)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (string)->sv_any)->xpv_cur), ((string )->sv_u.svu_pv)) : Perl_sv_2pv_flags( string,&len,2));
2019	RETVAL = Perl_grok_hex(aTHX_ pv, &len, &flags, NULL((void*)0));
2020	#line 2021 "RealPPPort.c"
2021	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
2022	}
2023	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2024	}
2025
2026
2027	XS_EUPXS(XS_Devel__PPPort_Perl_grok_oct)static void XS_Devel__PPPort_Perl_grok_oct( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2028	XS_EUPXS(XS_Devel__PPPort_Perl_grok_oct)static void XS_Devel__PPPort_Perl_grok_oct( CV* cv __attribute__ ((unused)))
2029	{
2030	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2031	if (items != 1)
2032	croak_xs_usagePerl_croak_xs_usage(cv, "string");
2033	{
2034	SV * string = ST(0)PL_stack_base[ax + (0)]
2035	;
2036	#line 1106 "RealPPPort.xs"
2037	char *pv;
2038	I32 flags = 0;
2039	STRLEN len;
2040	#line 2041 "RealPPPort.c"
2041	UV RETVAL;
2042	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2043	#line 1110 "RealPPPort.xs"
2044	pv = SvPV(string, len)((((string)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (string)->sv_any)->xpv_cur), ((string )->sv_u.svu_pv)) : Perl_sv_2pv_flags( string,&len,2));
2045	RETVAL = Perl_grok_oct(aTHX_ pv, &len, &flags, NULL((void*)0));
2046	#line 2047 "RealPPPort.c"
2047	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
2048	}
2049	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2050	}
2051
2052
2053	XS_EUPXS(XS_Devel__PPPort_GvSVn)static void XS_Devel__PPPort_GvSVn( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2054	XS_EUPXS(XS_Devel__PPPort_GvSVn)static void XS_Devel__PPPort_GvSVn( CV* cv __attribute__((unused )))
2055	{
2056	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2057	if (items != 0)
2058	croak_xs_usagePerl_croak_xs_usage(cv, "");
2059	{
2060	#line 1122 "RealPPPort.xs"
2061	GV* gv;
2062	#line 2063 "RealPPPort.c"
2063	int RETVAL;
2064	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2065	#line 1124 "RealPPPort.xs"
2066	RETVAL = 0;
2067	gv = gv_fetchpvs("Devel::PPPort::GvTest", GV_ADDMULTI, SVt_PVGV)Perl_gv_fetchpvn_flags( ("" "Devel::PPPort::GvTest" ""), (sizeof ("Devel::PPPort::GvTest")-1), 0x02, SVt_PVGV);
2068	if (GvSVn(gv)(((0+(gv)->sv_u.svu_gp)->gp_sv ? &((0+(gv)->sv_u .svu_gp)->gp_sv) : &((0+(Perl_gv_add_by_type( (gv),SVt_NULL ))->sv_u.svu_gp)->gp_sv))) != NULL((void)0))
2069	{
2070	RETVAL++;
2071	}
2072	#line 2073 "RealPPPort.c"
2073	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
2074	}
2075	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2076	}
2077
2078
2079	XS_EUPXS(XS_Devel__PPPort_isGV_with_GP)static void XS_Devel__PPPort_isGV_with_GP( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2080	XS_EUPXS(XS_Devel__PPPort_isGV_with_GP)static void XS_Devel__PPPort_isGV_with_GP( CV* cv __attribute__ ((unused)))
2081	{
2082	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2083	if (items != 0)
2084	croak_xs_usagePerl_croak_xs_usage(cv, "");
2085	{
2086	#line 1136 "RealPPPort.xs"
2087	GV* gv;
2088	#line 2089 "RealPPPort.c"
2089	int RETVAL;
2090	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2091	#line 1138 "RealPPPort.xs"
2092	RETVAL = 0;
2093	gv = gv_fetchpvs("Devel::PPPort::GvTest", GV_ADDMULTI, SVt_PVGV)Perl_gv_fetchpvn_flags( ("" "Devel::PPPort::GvTest" ""), (sizeof ("Devel::PPPort::GvTest")-1), 0x02, SVt_PVGV);
2094	if (isGV_with_GP(gv)((((gv)->sv_flags & (0x00004000\|0x00008000)) == 0x00008000 ) && (((svtype)((gv)->sv_flags & 0xff)) == SVt_PVGV \|\| ((svtype)((gv)->sv_flags & 0xff)) == SVt_PVLV)))
2095	{
2096	RETVAL++;
2097	}
2098	if (!isGV(&PL_sv_undef)(((svtype)((&(PL_sv_immortals[1]))->sv_flags & 0xff )) == SVt_PVGV))
2099	{
2100	RETVAL++;
2101	}
2102	#line 2103 "RealPPPort.c"
2103	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
2104	}
2105	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2106	}
2107
2108
2109	XS_EUPXS(XS_Devel__PPPort_get_cvn_flags)static void XS_Devel__PPPort_get_cvn_flags( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2110	XS_EUPXS(XS_Devel__PPPort_get_cvn_flags)static void XS_Devel__PPPort_get_cvn_flags( CV* cv __attribute__ ((unused)))
2111	{
2112	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2113	if (items != 0)
2114	croak_xs_usagePerl_croak_xs_usage(cv, "");
2115	{
2116	#line 1154 "RealPPPort.xs"
2117	CV* xv;
2118	#line 2119 "RealPPPort.c"
2119	int RETVAL;
2120	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2121	#line 1156 "RealPPPort.xs"
2122	RETVAL = 0;
2123	xv = get_cvn_flags("Devel::PPPort::foobar", sizeof("Devel::PPPort::foobar")-1, 0)Perl_get_cvn_flags( "Devel::PPPort::foobar",sizeof("Devel::PPPort::foobar" )-1,0);
2124	if(xv == NULL((void*)0)) RETVAL++;
2125	xv = get_cvn_flags("Devel::PPPort::foobar", sizeof("Devel::PPPort::foobar")-1, GV_ADDMULTI)Perl_get_cvn_flags( "Devel::PPPort::foobar",sizeof("Devel::PPPort::foobar" )-1,0x02);
2126	if(xv && SvTYPE(xv)((svtype)((xv)->sv_flags & 0xff)) == SVt_PVCV) RETVAL++;
2127	xv = get_cvn_flags("Devel::PPPort::get_cvn_flags", sizeof("Devel::PPPort::get_cvn_flags")-1, 0)Perl_get_cvn_flags( "Devel::PPPort::get_cvn_flags",sizeof("Devel::PPPort::get_cvn_flags" )-1,0);
2128	if(xv && SvTYPE(xv)((svtype)((xv)->sv_flags & 0xff)) == SVt_PVCV) RETVAL++;
2129	#line 2130 "RealPPPort.c"
2130	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
2131	}
2132	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2133	}
2134
2135
2136	XS_EUPXS(XS_Devel__PPPort_gv_fetchpvn_flags)static void XS_Devel__PPPort_gv_fetchpvn_flags( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2137	XS_EUPXS(XS_Devel__PPPort_gv_fetchpvn_flags)static void XS_Devel__PPPort_gv_fetchpvn_flags( CV* cv __attribute__ ((unused)))
2138	{
2139	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2140	if (items != 0)
2141	croak_xs_usagePerl_croak_xs_usage(cv, "");
2142	{
2143	SV * RETVAL;
2144	#line 1169 "RealPPPort.xs"
2145	RETVAL = newRV_inc((SV)gv_fetchpvn_flags("Devel::PPPort::VERSIONFAKE", sizeof("Devel::PPPort::VERSIONFAKE")-5, 0, SVt_PV))Perl_newRV( (SV)Perl_gv_fetchpvn_flags( "Devel::PPPort::VERSIONFAKE" ,sizeof("Devel::PPPort::VERSIONFAKE")-5,0,SVt_PV));
2146	#line 2147 "RealPPPort.c"
2147	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
2148	ST(0)PL_stack_base[ax + (0)] = RETVAL;
2149	}
2150	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2151	}
2152
2153
2154	XS_EUPXS(XS_Devel__PPPort_gv_fetchsv)static void XS_Devel__PPPort_gv_fetchsv( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2155	XS_EUPXS(XS_Devel__PPPort_gv_fetchsv)static void XS_Devel__PPPort_gv_fetchsv( CV* cv __attribute__ ((unused)))
2156	{
2157	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2158	if (items != 1)
2159	croak_xs_usagePerl_croak_xs_usage(cv, "name");
2160	{
2161	SV * name = ST(0)PL_stack_base[ax + (0)]
2162	;
2163	SV * RETVAL;
2164	#line 1177 "RealPPPort.xs"
2165	RETVAL = newRV_inc((SV)gv_fetchsv(name, 0, SVt_PV))Perl_newRV( (SV)Perl_gv_fetchsv( name,0,SVt_PV));
2166	#line 2167 "RealPPPort.c"
2167	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
2168	ST(0)PL_stack_base[ax + (0)] = RETVAL;
2169	}
2170	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2171	}
2172
2173
2174	XS_EUPXS(XS_Devel__PPPort_gv_init_type)static void XS_Devel__PPPort_gv_init_type( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2175	XS_EUPXS(XS_Devel__PPPort_gv_init_type)static void XS_Devel__PPPort_gv_init_type( CV* cv __attribute__ ((unused)))
2176	{
2177	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2178	if (items != 3)
2179	croak_xs_usagePerl_croak_xs_usage(cv, "namesv, multi, flags");
2180	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2181	SPsp -= items;
2182	{
2183	SV* namesv = ST(0)PL_stack_base[ax + (0)]
2184	;
2185	int multi = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
2186	;
2187	I32 flags = (I32)SvIV(ST(2))((((PL_stack_base[ax + (2)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (2)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 2)],2))
2188	;
2189	#line 1187 "RealPPPort.xs"
2190	HV *defstash = gv_stashpv("main", 0)Perl_gv_stashpv( "main",0);
2191	STRLEN len;
2192	const char * const name = SvPV_const(namesv, len)((((namesv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV) (namesv)->sv_any)->xpv_cur), ((const char)(0 + (namesv)->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags ( namesv,&len,(2\|32)));
2193	GV gv = (GV)hv_fetch(defstash, name, len, TRUE)((SV) Perl_hv_common_key_len( (defstash),(name),(len),((1)) ? (0x20 \| 0x10) : 0x20,((void*)0),0));
2194	#line 2195 "RealPPPort.c"
2195	#line 1192 "RealPPPort.xs"
2196	if (SvTYPE(gv)((svtype)((gv)->sv_flags & 0xff)) == SVt_PVGV)
2197	Perl_croak(aTHX_ "GV is already a PVGV");
2198	if (multi) flags \|= GV_ADDMULTI0x02;
2199	gv_init_pvn(gv, defstash, name, len, flags)Perl_gv_init_pvn( gv,defstash,name,len,flags);
2200	XPUSHs( gv ? (SV)gv : &PL_sv_undef)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); ++sp = (gv ? (SV*)gv : &(PL_sv_immortals[1])); } while (0 );
2201	#line 2202 "RealPPPort.c"
2202	PUTBACKPL_stack_sp = sp;
2203	return;
2204	}
2205	}
2206
2207
2208	XS_EUPXS(XS_Devel__PPPort_iv_size)static void XS_Devel__PPPort_iv_size( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2209	XS_EUPXS(XS_Devel__PPPort_iv_size)static void XS_Devel__PPPort_iv_size( CV* cv __attribute__((unused )))
2210	{
2211	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2212	if (items != 0)
2213	croak_xs_usagePerl_croak_xs_usage(cv, "");
2214	{
2215	IV RETVAL;
2216	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2217	#line 1205 "RealPPPort.xs"
2218	RETVAL = IVSIZE8 == sizeof(IV);
2219	#line 2220 "RealPPPort.c"
2220	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
2221	}
2222	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2223	}
2224
2225
2226	XS_EUPXS(XS_Devel__PPPort_uv_size)static void XS_Devel__PPPort_uv_size( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2227	XS_EUPXS(XS_Devel__PPPort_uv_size)static void XS_Devel__PPPort_uv_size( CV* cv __attribute__((unused )))
2228	{
2229	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2230	if (items != 0)
2231	croak_xs_usagePerl_croak_xs_usage(cv, "");
2232	{
2233	IV RETVAL;
2234	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2235	#line 1212 "RealPPPort.xs"
2236	RETVAL = UVSIZE8 == sizeof(UV);
2237	#line 2238 "RealPPPort.c"
2238	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
2239	}
2240	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2241	}
2242
2243
2244	XS_EUPXS(XS_Devel__PPPort_iv_type)static void XS_Devel__PPPort_iv_type( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2245	XS_EUPXS(XS_Devel__PPPort_iv_type)static void XS_Devel__PPPort_iv_type( CV* cv __attribute__((unused )))
2246	{
2247	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2248	if (items != 0)
2249	croak_xs_usagePerl_croak_xs_usage(cv, "");
2250	{
2251	IV RETVAL;
2252	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2253	#line 1219 "RealPPPort.xs"
2254	RETVAL = sizeof(IVTYPElong) == sizeof(IV);
2255	#line 2256 "RealPPPort.c"
2256	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
2257	}
2258	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2259	}
2260
2261
2262	XS_EUPXS(XS_Devel__PPPort_uv_type)static void XS_Devel__PPPort_uv_type( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2263	XS_EUPXS(XS_Devel__PPPort_uv_type)static void XS_Devel__PPPort_uv_type( CV* cv __attribute__((unused )))
2264	{
2265	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2266	if (items != 0)
2267	croak_xs_usagePerl_croak_xs_usage(cv, "");
2268	{
2269	IV RETVAL;
2270	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2271	#line 1226 "RealPPPort.xs"
2272	RETVAL = sizeof(UVTYPEunsigned long) == sizeof(UV);
2273	#line 2274 "RealPPPort.c"
2274	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
2275	}
2276	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2277	}
2278
2279
2280	XS_EUPXS(XS_Devel__PPPort_sync_locale)static void XS_Devel__PPPort_sync_locale( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2281	XS_EUPXS(XS_Devel__PPPort_sync_locale)static void XS_Devel__PPPort_sync_locale( CV* cv __attribute__ ((unused)))
2282	{
2283	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2284	if (items != 0)
2285	croak_xs_usagePerl_croak_xs_usage(cv, "");
2286	{
2287	bool_Bool RETVAL;
2288	#line 1237 "RealPPPort.xs"
2289	RETVAL = sync_localePerl_sync_locale();
2290	#line 2291 "RealPPPort.c"
2291	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
2292	}
2293	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2294	}
2295
2296
2297	XS_EUPXS(XS_Devel__PPPort_mPUSHs)static void XS_Devel__PPPort_mPUSHs( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2298	XS_EUPXS(XS_Devel__PPPort_mPUSHs)static void XS_Devel__PPPort_mPUSHs( CV* cv __attribute__((unused )))
2299	{
2300	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2301	if (items != 0)
2302	croak_xs_usagePerl_croak_xs_usage(cv, "");
2303	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2304	SPsp -= items;
2305	{
2306	#line 1248 "RealPPPort.xs"
2307	EXTEND(SP, 3)do { (void)0; if (__builtin_expect(((((3) < 0 \|\| PL_stack_max - (sp) < (3))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(3) > sizeof(ssize_t) && ((ssize_t) (3) != (3)) ? -1 : (3))); ((void)sizeof(sp)); } } while (0);
2308	mPUSHs(newSVpv("foo", 0))(*++sp = (Perl_sv_2mortal( Perl_newSVpv( "foo",0))));
2309	mPUSHs(newSVpv("bar13", 3))(*++sp = (Perl_sv_2mortal( Perl_newSVpv( "bar13",3))));
2310	mPUSHs(newSViv(42))(*++sp = (Perl_sv_2mortal( Perl_newSViv( 42))));
2311	XSRETURN(3)do { const IV tmpXSoff = (3); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2312	#line 2313 "RealPPPort.c"
2313	PUTBACKPL_stack_sp = sp;
2314	return;
2315	}
2316	}
2317
2318
2319	XS_EUPXS(XS_Devel__PPPort_mPUSHp)static void XS_Devel__PPPort_mPUSHp( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2320	XS_EUPXS(XS_Devel__PPPort_mPUSHp)static void XS_Devel__PPPort_mPUSHp( CV* cv __attribute__((unused )))
2321	{
2322	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2323	if (items != 0)
2324	croak_xs_usagePerl_croak_xs_usage(cv, "");
2325	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2326	SPsp -= items;
2327	{
2328	#line 1257 "RealPPPort.xs"
2329	EXTEND(SP, 3)do { (void)0; if (__builtin_expect(((((3) < 0 \|\| PL_stack_max - (sp) < (3))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(3) > sizeof(ssize_t) && ((ssize_t) (3) != (3)) ? -1 : (3))); ((void)sizeof(sp)); } } while (0);
2330	mPUSHp("one", 3)(*++sp = (Perl_newSVpvn_flags( ("one"),(3),0x00080000)));
2331	mPUSHp("two", 3)(*++sp = (Perl_newSVpvn_flags( ("two"),(3),0x00080000)));
2332	mPUSHp("three", 5)(*++sp = (Perl_newSVpvn_flags( ("three"),(5),0x00080000)));
2333	XSRETURN(3)do { const IV tmpXSoff = (3); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2334	#line 2335 "RealPPPort.c"
2335	PUTBACKPL_stack_sp = sp;
2336	return;
2337	}
2338	}
2339
2340
2341	XS_EUPXS(XS_Devel__PPPort_mPUSHn)static void XS_Devel__PPPort_mPUSHn( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2342	XS_EUPXS(XS_Devel__PPPort_mPUSHn)static void XS_Devel__PPPort_mPUSHn( CV* cv __attribute__((unused )))
2343	{
2344	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2345	if (items != 0)
2346	croak_xs_usagePerl_croak_xs_usage(cv, "");
2347	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2348	SPsp -= items;
2349	{
2350	#line 1266 "RealPPPort.xs"
2351	EXTEND(SP, 3)do { (void)0; if (__builtin_expect(((((3) < 0 \|\| PL_stack_max - (sp) < (3))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(3) > sizeof(ssize_t) && ((ssize_t) (3) != (3)) ? -1 : (3))); ((void)sizeof(sp)); } } while (0);
2352	mPUSHn(0.5)Perl_sv_setnv( (*++sp = (Perl_sv_newmortal())),(NV)(0.5));
2353	mPUSHn(-0.25)Perl_sv_setnv( (*++sp = (Perl_sv_newmortal())),(NV)(-0.25));
2354	mPUSHn(0.125)Perl_sv_setnv( (*++sp = (Perl_sv_newmortal())),(NV)(0.125));
2355	XSRETURN(3)do { const IV tmpXSoff = (3); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2356	#line 2357 "RealPPPort.c"
2357	PUTBACKPL_stack_sp = sp;
2358	return;
2359	}
2360	}
2361
2362
2363	XS_EUPXS(XS_Devel__PPPort_mPUSHi)static void XS_Devel__PPPort_mPUSHi( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2364	XS_EUPXS(XS_Devel__PPPort_mPUSHi)static void XS_Devel__PPPort_mPUSHi( CV* cv __attribute__((unused )))
2365	{
2366	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2367	if (items != 0)
2368	croak_xs_usagePerl_croak_xs_usage(cv, "");
2369	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2370	SPsp -= items;
2371	{
2372	#line 1275 "RealPPPort.xs"
2373	EXTEND(SP, 3)do { (void)0; if (__builtin_expect(((((3) < 0 \|\| PL_stack_max - (sp) < (3))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(3) > sizeof(ssize_t) && ((ssize_t) (3) != (3)) ? -1 : (3))); ((void)sizeof(sp)); } } while (0);
2374	mPUSHi(-1)Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)(-1));
2375	mPUSHi(2)Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)(2));
2376	mPUSHi(-3)Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)(-3));
2377	XSRETURN(3)do { const IV tmpXSoff = (3); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2378	#line 2379 "RealPPPort.c"
2379	PUTBACKPL_stack_sp = sp;
2380	return;
2381	}
2382	}
2383
2384
2385	XS_EUPXS(XS_Devel__PPPort_mPUSHu)static void XS_Devel__PPPort_mPUSHu( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2386	XS_EUPXS(XS_Devel__PPPort_mPUSHu)static void XS_Devel__PPPort_mPUSHu( CV* cv __attribute__((unused )))
2387	{
2388	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2389	if (items != 0)
2390	croak_xs_usagePerl_croak_xs_usage(cv, "");
2391	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2392	SPsp -= items;
2393	{
2394	#line 1284 "RealPPPort.xs"
2395	EXTEND(SP, 3)do { (void)0; if (__builtin_expect(((((3) < 0 \|\| PL_stack_max - (sp) < (3))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(3) > sizeof(ssize_t) && ((ssize_t) (3) != (3)) ? -1 : (3))); ((void)sizeof(sp)); } } while (0);
2396	mPUSHu(1)Perl_sv_setuv( (*++sp = (Perl_sv_newmortal())),(UV)(1));
2397	mPUSHu(2)Perl_sv_setuv( (*++sp = (Perl_sv_newmortal())),(UV)(2));
2398	mPUSHu(3)Perl_sv_setuv( (*++sp = (Perl_sv_newmortal())),(UV)(3));
2399	XSRETURN(3)do { const IV tmpXSoff = (3); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2400	#line 2401 "RealPPPort.c"
2401	PUTBACKPL_stack_sp = sp;
2402	return;
2403	}
2404	}
2405
2406
2407	XS_EUPXS(XS_Devel__PPPort_mXPUSHs)static void XS_Devel__PPPort_mXPUSHs( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2408	XS_EUPXS(XS_Devel__PPPort_mXPUSHs)static void XS_Devel__PPPort_mXPUSHs( CV* cv __attribute__((unused )))
2409	{
2410	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2411	if (items != 0)
2412	croak_xs_usagePerl_croak_xs_usage(cv, "");
2413	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2414	SPsp -= items;
2415	{
2416	#line 1293 "RealPPPort.xs"
2417	mXPUSHs(newSVpv("foo", 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( "foo",0))); } while (0 );
2418	mXPUSHs(newSVpv("bar13", 3))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( "bar13",3))); } while ( 0);
2419	mXPUSHs(newSViv(42))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSViv( 42))); } while (0);
2420	XSRETURN(3)do { const IV tmpXSoff = (3); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2421	#line 2422 "RealPPPort.c"
2422	PUTBACKPL_stack_sp = sp;
2423	return;
2424	}
2425	}
2426
2427
2428	XS_EUPXS(XS_Devel__PPPort_mXPUSHp)static void XS_Devel__PPPort_mXPUSHp( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2429	XS_EUPXS(XS_Devel__PPPort_mXPUSHp)static void XS_Devel__PPPort_mXPUSHp( CV* cv __attribute__((unused )))
2430	{
2431	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2432	if (items != 0)
2433	croak_xs_usagePerl_croak_xs_usage(cv, "");
2434	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2435	SPsp -= items;
2436	{
2437	#line 1301 "RealPPPort.xs"
2438	mXPUSHp("one", 3)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); ( *++sp = (Perl_newSVpvn_flags( (("one")),((3)),0x00080000))); } while (0);
2439	mXPUSHp("two", 3)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); ( *++sp = (Perl_newSVpvn_flags( (("two")),((3)),0x00080000))); } while (0);
2440	mXPUSHp("three", 5)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); ( *++sp = (Perl_newSVpvn_flags( (("three")),((5)),0x00080000))) ; } while (0);
2441	XSRETURN(3)do { const IV tmpXSoff = (3); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2442	#line 2443 "RealPPPort.c"
2443	PUTBACKPL_stack_sp = sp;
2444	return;
2445	}
2446	}
2447
2448
2449	XS_EUPXS(XS_Devel__PPPort_mXPUSHn)static void XS_Devel__PPPort_mXPUSHn( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2450	XS_EUPXS(XS_Devel__PPPort_mXPUSHn)static void XS_Devel__PPPort_mXPUSHn( CV* cv __attribute__((unused )))
2451	{
2452	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2453	if (items != 0)
2454	croak_xs_usagePerl_croak_xs_usage(cv, "");
2455	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2456	SPsp -= items;
2457	{
2458	#line 1309 "RealPPPort.xs"
2459	mXPUSHn(0.5)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setnv ( (*++sp = (Perl_sv_newmortal())),(NV)(0.5)); } while (0);
2460	mXPUSHn(-0.25)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setnv ( (*++sp = (Perl_sv_newmortal())),(NV)(-0.25)); } while (0);
2461	mXPUSHn(0.125)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setnv ( (*++sp = (Perl_sv_newmortal())),(NV)(0.125)); } while (0);
2462	XSRETURN(3)do { const IV tmpXSoff = (3); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2463	#line 2464 "RealPPPort.c"
2464	PUTBACKPL_stack_sp = sp;
2465	return;
2466	}
2467	}
2468
2469
2470	XS_EUPXS(XS_Devel__PPPort_mXPUSHi)static void XS_Devel__PPPort_mXPUSHi( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2471	XS_EUPXS(XS_Devel__PPPort_mXPUSHi)static void XS_Devel__PPPort_mXPUSHi( CV* cv __attribute__((unused )))
2472	{
2473	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2474	if (items != 0)
2475	croak_xs_usagePerl_croak_xs_usage(cv, "");
2476	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2477	SPsp -= items;
2478	{
2479	#line 1317 "RealPPPort.xs"
2480	mXPUSHi(-1)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(-1)); } while (0);
2481	mXPUSHi(2)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(2)); } while (0);
2482	mXPUSHi(-3)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(-3)); } while (0);
2483	XSRETURN(3)do { const IV tmpXSoff = (3); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2484	#line 2485 "RealPPPort.c"
2485	PUTBACKPL_stack_sp = sp;
2486	return;
2487	}
2488	}
2489
2490
2491	XS_EUPXS(XS_Devel__PPPort_mXPUSHu)static void XS_Devel__PPPort_mXPUSHu( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
2492	XS_EUPXS(XS_Devel__PPPort_mXPUSHu)static void XS_Devel__PPPort_mXPUSHu( CV* cv __attribute__((unused )))
2493	{
2494	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2495	if (items != 0)
2496	croak_xs_usagePerl_croak_xs_usage(cv, "");
2497	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2498	SPsp -= items;
2499	{
2500	#line 1325 "RealPPPort.xs"
2501	mXPUSHu(1)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setuv ( (*++sp = (Perl_sv_newmortal())),(UV)(1)); } while (0);
2502	mXPUSHu(2)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setuv ( (*++sp = (Perl_sv_newmortal())),(UV)(2)); } while (0);
2503	mXPUSHu(3)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setuv ( (*++sp = (Perl_sv_newmortal())),(UV)(3)); } while (0);
2504	XSRETURN(3)do { const IV tmpXSoff = (3); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2505	#line 2506 "RealPPPort.c"
2506	PUTBACKPL_stack_sp = sp;
2507	return;
2508	}
2509	}
2510
2511
2512	XS_EUPXS(XS_Devel__PPPort_new_with_other_mg)static void XS_Devel__PPPort_new_with_other_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2513	XS_EUPXS(XS_Devel__PPPort_new_with_other_mg)static void XS_Devel__PPPort_new_with_other_mg( CV* cv __attribute__ ((unused)))
2514	{
2515	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2516	if (items < 1)
2517	croak_xs_usagePerl_croak_xs_usage(cv, "package, ...");
2518	{
2519	SV * package = ST(0)PL_stack_base[ax + (0)]
2520	;
2521	#line 1338 "RealPPPort.xs"
2522	HV *self;
2523	HV *stash;
2524	SV *self_ref;
2525	const char *data = "hello\0";
2526	MAGIC *mg;
2527	#line 2528 "RealPPPort.c"
2528	SV * RETVAL;
2529	#line 1344 "RealPPPort.xs"
2530	self = newHV()((HV )({ void _p = (Perl_newSV_type( SVt_PVHV)); _p; }));
2531	stash = gv_stashpv(SvPV_nolen(package), 0)Perl_gv_stashpv( ((((package)->sv_flags & (0x00000400\| 0x00200000)) == 0x00000400) ? ((package)->sv_u.svu_pv) : Perl_sv_2pv_flags ( package,0,2)),0);
2532
2533	self_ref = newRV_noinc((SV)self)Perl_newRV_noinc( (SV)self);
2534
2535	sv_magic((SV)self, NULL, PERL_MAGIC_ext, data, strlen(data))Perl_sv_magic( (SV)self,((void*)0),'~',data,strlen(data));
2536	mg = mg_findPerl_mg_find((SV*)self, PERL_MAGIC_ext'~');
2537	if (mg)
2538	mg->mg_virtual = &other_mg_vtbl;
2539	else
2540	croakPerl_croak("No mg!");
2541
2542	RETVAL = sv_bless(self_ref, stash)Perl_sv_bless( self_ref,stash);
2543	#line 2544 "RealPPPort.c"
2544	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
2545	ST(0)PL_stack_base[ax + (0)] = RETVAL;
2546	}
2547	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2548	}
2549
2550
2551	XS_EUPXS(XS_Devel__PPPort_new_with_mg)static void XS_Devel__PPPort_new_with_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2552	XS_EUPXS(XS_Devel__PPPort_new_with_mg)static void XS_Devel__PPPort_new_with_mg( CV* cv __attribute__ ((unused)))
2553	{
2554	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2555	if (items < 1)
2556	croak_xs_usagePerl_croak_xs_usage(cv, "package, ...");
2557	{
2558	SV * package = ST(0)PL_stack_base[ax + (0)]
2559	;
2560	#line 1364 "RealPPPort.xs"
2561	HV *self;
2562	HV *stash;
2563	SV *self_ref;
2564	const char *data = "hello\0";
2565	MAGIC *mg;
2566	#line 2567 "RealPPPort.c"
2567	SV * RETVAL;
2568	#line 1370 "RealPPPort.xs"
2569	self = newHV()((HV )({ void _p = (Perl_newSV_type( SVt_PVHV)); _p; }));
2570	stash = gv_stashpv(SvPV_nolen(package), 0)Perl_gv_stashpv( ((((package)->sv_flags & (0x00000400\| 0x00200000)) == 0x00000400) ? ((package)->sv_u.svu_pv) : Perl_sv_2pv_flags ( package,0,2)),0);
2571
2572	self_ref = newRV_noinc((SV)self)Perl_newRV_noinc( (SV)self);
2573
2574	sv_magic((SV)self, NULL, PERL_MAGIC_ext, data, strlen(data))Perl_sv_magic( (SV)self,((void*)0),'~',data,strlen(data));
2575	mg = mg_findPerl_mg_find((SV*)self, PERL_MAGIC_ext'~');
2576	if (mg)
2577	mg->mg_virtual = &null_mg_vtbl;
2578	else
2579	croakPerl_croak("No mg!");
2580
2581	RETVAL = sv_bless(self_ref, stash)Perl_sv_bless( self_ref,stash);
2582	#line 2583 "RealPPPort.c"
2583	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
2584	ST(0)PL_stack_base[ax + (0)] = RETVAL;
2585	}
2586	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2587	}
2588
2589
2590	XS_EUPXS(XS_Devel__PPPort_remove_null_magic)static void XS_Devel__PPPort_remove_null_magic( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2591	XS_EUPXS(XS_Devel__PPPort_remove_null_magic)static void XS_Devel__PPPort_remove_null_magic( CV* cv __attribute__ ((unused)))
2592	{
2593	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2594	if (items != 1)
2595	croak_xs_usagePerl_croak_xs_usage(cv, "self");
2596	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2597	SPsp -= items;
2598	{
2599	SV * self = ST(0)PL_stack_base[ax + (0)]
2600	;
2601	#line 1390 "RealPPPort.xs"
2602	HV *obj;
2603	#line 2604 "RealPPPort.c"
2604	#line 1392 "RealPPPort.xs"
2605	obj = (HV*) SvRV(self)((self)->sv_u.svu_rv);
2606
2607	sv_unmagicext((SV)obj, PERL_MAGIC_ext, &null_mg_vtbl)Perl_sv_unmagicext( (SV)obj,'~',&null_mg_vtbl);
2608	#line 2609 "RealPPPort.c"
2609	PUTBACKPL_stack_sp = sp;
2610	return;
2611	}
2612	}
2613
2614
2615	XS_EUPXS(XS_Devel__PPPort_remove_other_magic)static void XS_Devel__PPPort_remove_other_magic( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2616	XS_EUPXS(XS_Devel__PPPort_remove_other_magic)static void XS_Devel__PPPort_remove_other_magic( CV* cv __attribute__ ((unused)))
2617	{
2618	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2619	if (items != 1)
2620	croak_xs_usagePerl_croak_xs_usage(cv, "self");
2621	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2622	SPsp -= items;
2623	{
2624	SV * self = ST(0)PL_stack_base[ax + (0)]
2625	;
2626	#line 1400 "RealPPPort.xs"
2627	HV *obj;
2628	#line 2629 "RealPPPort.c"
2629	#line 1402 "RealPPPort.xs"
2630	obj = (HV*) SvRV(self)((self)->sv_u.svu_rv);
2631
2632	sv_unmagicext((SV)obj, PERL_MAGIC_ext, &other_mg_vtbl)Perl_sv_unmagicext( (SV)obj,'~',&other_mg_vtbl);
2633	#line 2634 "RealPPPort.c"
2634	PUTBACKPL_stack_sp = sp;
2635	return;
2636	}
2637	}
2638
2639
2640	XS_EUPXS(XS_Devel__PPPort_as_string)static void XS_Devel__PPPort_as_string( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
2641	XS_EUPXS(XS_Devel__PPPort_as_string)static void XS_Devel__PPPort_as_string( CV* cv __attribute__( (unused)))
2642	{
2643	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2644	if (items != 1)
2645	croak_xs_usagePerl_croak_xs_usage(cv, "self");
2646	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
2647	SPsp -= items;
2648	{
2649	SV * self = ST(0)PL_stack_base[ax + (0)]
2650	;
2651	#line 1410 "RealPPPort.xs"
2652	HV *obj;
2653	MAGIC *mg;
2654	#line 2655 "RealPPPort.c"
2655	#line 1413 "RealPPPort.xs"
2656	obj = (HV*) SvRV(self)((self)->sv_u.svu_rv);
2657
2658	if ((mg = mg_findextPerl_mg_findext((SV*)obj, PERL_MAGIC_ext'~', &null_mg_vtbl))) {
2659	XPUSHs(sv_2mortal(newSVpv(mg->mg_ptr, strlen(mg->mg_ptr))))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( mg->mg_ptr,strlen(mg ->mg_ptr)))); } while (0);
2660	} else {
2661	XPUSHs(sv_2mortal(newSVpvs("Sorry, your princess is in another castle.")))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpvn( ("" "Sorry, your princess is in another castle." ""), (sizeof("Sorry, your princess is in another castle.")-1 )))); } while (0);
2662	}
2663	#line 2664 "RealPPPort.c"
2664	PUTBACKPL_stack_sp = sp;
2665	return;
2666	}
2667	}
2668
2669
2670	XS_EUPXS(XS_Devel__PPPort_sv_catpv_mg)static void XS_Devel__PPPort_sv_catpv_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2671	XS_EUPXS(XS_Devel__PPPort_sv_catpv_mg)static void XS_Devel__PPPort_sv_catpv_mg( CV* cv __attribute__ ((unused)))
2672	{
2673	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2674	if (items != 2)
2675	croak_xs_usagePerl_croak_xs_usage(cv, "sv, string");
2676	{
2677	SV * sv = ST(0)PL_stack_base[ax + (0)]
2678	;
2679	char * string = (char *)SvPV_nolen(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (1)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (1)],0,2))
2680	;
2681	#line 1426 "RealPPPort.xs"
2682	sv_catpv_mg(sv, string)Perl_sv_catpv_mg( sv,string);
2683	#line 2684 "RealPPPort.c"
2684	}
2685	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
2686	}
2687
2688
2689	XS_EUPXS(XS_Devel__PPPort_sv_catpvn_mg)static void XS_Devel__PPPort_sv_catpvn_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2690	XS_EUPXS(XS_Devel__PPPort_sv_catpvn_mg)static void XS_Devel__PPPort_sv_catpvn_mg( CV* cv __attribute__ ((unused)))
2691	{
2692	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2693	if (items != 2)
2694	croak_xs_usagePerl_croak_xs_usage(cv, "sv, sv2");
2695	{
2696	SV * sv = ST(0)PL_stack_base[ax + (0)]
2697	;
2698	SV * sv2 = ST(1)PL_stack_base[ax + (1)]
2699	;
2700	#line 1433 "RealPPPort.xs"
2701	char *str;
2702	STRLEN len;
2703	#line 2704 "RealPPPort.c"
2704	#line 1436 "RealPPPort.xs"
2705	str = SvPV(sv2, len)((((sv2)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (sv2)->sv_any)->xpv_cur), ((sv2)-> sv_u.svu_pv)) : Perl_sv_2pv_flags( sv2,&len,2));
2706	sv_catpvn_mg(sv, str, len)Perl_sv_catpvn_flags( sv,str,len,2\|128);;
2707	#line 2708 "RealPPPort.c"
2708	}
2709	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
2710	}
2711
2712
2713	XS_EUPXS(XS_Devel__PPPort_sv_catsv_mg)static void XS_Devel__PPPort_sv_catsv_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2714	XS_EUPXS(XS_Devel__PPPort_sv_catsv_mg)static void XS_Devel__PPPort_sv_catsv_mg( CV* cv __attribute__ ((unused)))
2715	{
2716	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2717	if (items != 2)
2718	croak_xs_usagePerl_croak_xs_usage(cv, "sv, sv2");
2719	{
2720	SV * sv = ST(0)PL_stack_base[ax + (0)]
2721	;
2722	SV * sv2 = ST(1)PL_stack_base[ax + (1)]
2723	;
2724	#line 1444 "RealPPPort.xs"
2725	sv_catsv_mg(sv, sv2)Perl_sv_catsv_flags( sv,sv2,2\|128);
2726	#line 2727 "RealPPPort.c"
2727	}
2728	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
2729	}
2730
2731
2732	XS_EUPXS(XS_Devel__PPPort_sv_setiv_mg)static void XS_Devel__PPPort_sv_setiv_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2733	XS_EUPXS(XS_Devel__PPPort_sv_setiv_mg)static void XS_Devel__PPPort_sv_setiv_mg( CV* cv __attribute__ ((unused)))
2734	{
2735	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2736	if (items != 2)
2737	croak_xs_usagePerl_croak_xs_usage(cv, "sv, iv");
2738	{
2739	SV * sv = ST(0)PL_stack_base[ax + (0)]
2740	;
2741	IV iv = (IV)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
2742	;
2743	#line 1451 "RealPPPort.xs"
2744	sv_setiv_mg(sv, iv)Perl_sv_setiv_mg( sv,iv);
2745	#line 2746 "RealPPPort.c"
2746	}
2747	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
2748	}
2749
2750
2751	XS_EUPXS(XS_Devel__PPPort_sv_setnv_mg)static void XS_Devel__PPPort_sv_setnv_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2752	XS_EUPXS(XS_Devel__PPPort_sv_setnv_mg)static void XS_Devel__PPPort_sv_setnv_mg( CV* cv __attribute__ ((unused)))
2753	{
2754	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2755	if (items != 2)
2756	croak_xs_usagePerl_croak_xs_usage(cv, "sv, nv");
2757	{
2758	SV * sv = ST(0)PL_stack_base[ax + (0)]
2759	;
2760	NV nv = (NV)SvNV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000200\|0x00200000 )) == 0x00000200) ? ((XPVNV*) (PL_stack_base[ax + (1)])->sv_any )->xnv_u.xnv_nv : Perl_sv_2nv_flags( PL_stack_base[ax + (1 )],2))
2761	;
2762	#line 1458 "RealPPPort.xs"
2763	sv_setnv_mg(sv, nv)Perl_sv_setnv_mg( sv,nv);
2764	#line 2765 "RealPPPort.c"
2765	}
2766	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
2767	}
2768
2769
2770	XS_EUPXS(XS_Devel__PPPort_sv_setpv_mg)static void XS_Devel__PPPort_sv_setpv_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2771	XS_EUPXS(XS_Devel__PPPort_sv_setpv_mg)static void XS_Devel__PPPort_sv_setpv_mg( CV* cv __attribute__ ((unused)))
2772	{
2773	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2774	if (items != 2)
2775	croak_xs_usagePerl_croak_xs_usage(cv, "sv, pv");
2776	{
2777	SV * sv = ST(0)PL_stack_base[ax + (0)]
2778	;
2779	char * pv = (char *)SvPV_nolen(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (1)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (1)],0,2))
2780	;
2781	#line 1465 "RealPPPort.xs"
2782	sv_setpv_mg(sv, pv)Perl_sv_setpv_mg( sv,pv);
2783	#line 2784 "RealPPPort.c"
2784	}
2785	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
2786	}
2787
2788
2789	XS_EUPXS(XS_Devel__PPPort_sv_setpvn_mg)static void XS_Devel__PPPort_sv_setpvn_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2790	XS_EUPXS(XS_Devel__PPPort_sv_setpvn_mg)static void XS_Devel__PPPort_sv_setpvn_mg( CV* cv __attribute__ ((unused)))
2791	{
2792	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2793	if (items != 2)
2794	croak_xs_usagePerl_croak_xs_usage(cv, "sv, sv2");
2795	{
2796	SV * sv = ST(0)PL_stack_base[ax + (0)]
2797	;
2798	SV * sv2 = ST(1)PL_stack_base[ax + (1)]
2799	;
2800	#line 1472 "RealPPPort.xs"
2801	char *str;
2802	STRLEN len;
2803	#line 2804 "RealPPPort.c"
2804	#line 1475 "RealPPPort.xs"
2805	str = SvPV(sv2, len)((((sv2)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (sv2)->sv_any)->xpv_cur), ((sv2)-> sv_u.svu_pv)) : Perl_sv_2pv_flags( sv2,&len,2));
2806	sv_setpvn_mg(sv, str, len)Perl_sv_setpvn_mg( sv,str,len);
2807	#line 2808 "RealPPPort.c"
2808	}
2809	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
2810	}
2811
2812
2813	XS_EUPXS(XS_Devel__PPPort_sv_setsv_mg)static void XS_Devel__PPPort_sv_setsv_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2814	XS_EUPXS(XS_Devel__PPPort_sv_setsv_mg)static void XS_Devel__PPPort_sv_setsv_mg( CV* cv __attribute__ ((unused)))
2815	{
2816	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2817	if (items != 2)
2818	croak_xs_usagePerl_croak_xs_usage(cv, "sv, sv2");
2819	{
2820	SV * sv = ST(0)PL_stack_base[ax + (0)]
2821	;
2822	SV * sv2 = ST(1)PL_stack_base[ax + (1)]
2823	;
2824	#line 1483 "RealPPPort.xs"
2825	sv_setsv_mg(sv, sv2)Perl_sv_setsv_mg( sv,sv2);
2826	#line 2827 "RealPPPort.c"
2827	}
2828	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
2829	}
2830
2831
2832	XS_EUPXS(XS_Devel__PPPort_sv_setuv_mg)static void XS_Devel__PPPort_sv_setuv_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2833	XS_EUPXS(XS_Devel__PPPort_sv_setuv_mg)static void XS_Devel__PPPort_sv_setuv_mg( CV* cv __attribute__ ((unused)))
2834	{
2835	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2836	if (items != 2)
2837	croak_xs_usagePerl_croak_xs_usage(cv, "sv, uv");
2838	{
2839	SV * sv = ST(0)PL_stack_base[ax + (0)]
2840	;
2841	UV uv = (UV)SvUV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (1)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (1)],2))
2842	;
2843	#line 1490 "RealPPPort.xs"
2844	sv_setuv_mg(sv, uv)Perl_sv_setuv_mg( sv,uv);
2845	#line 2846 "RealPPPort.c"
2846	}
2847	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
2848	}
2849
2850
2851	XS_EUPXS(XS_Devel__PPPort_sv_usepvn_mg)static void XS_Devel__PPPort_sv_usepvn_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2852	XS_EUPXS(XS_Devel__PPPort_sv_usepvn_mg)static void XS_Devel__PPPort_sv_usepvn_mg( CV* cv __attribute__ ((unused)))
2853	{
2854	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2855	if (items != 2)
2856	croak_xs_usagePerl_croak_xs_usage(cv, "sv, sv2");
2857	{
2858	SV * sv = ST(0)PL_stack_base[ax + (0)]
2859	;
2860	SV * sv2 = ST(1)PL_stack_base[ax + (1)]
2861	;
2862	#line 1497 "RealPPPort.xs"
2863	char str, copy;
2864	STRLEN len;
2865	#line 2866 "RealPPPort.c"
2866	#line 1500 "RealPPPort.xs"
2867	str = SvPV(sv2, len)((((sv2)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (sv2)->sv_any)->xpv_cur), ((sv2)-> sv_u.svu_pv)) : Perl_sv_2pv_flags( sv2,&len,2));
2868	New(42, copy, len+1, char)(copy = ((void)(__builtin_expect(((((( sizeof(size_t) < sizeof (len+1) \|\| sizeof(char) > ((size_t)1 << 8(sizeof(size_t ) - sizeof(len+1)))) ? (size_t)(len+1) : ((size_t)-1)/sizeof( char)) > ((size_t)-1)/sizeof(char))) ? (_Bool)1 : (_Bool)0 ),(0)) && (Perl_croak_memory_wrap(),0)), (char)(Perl_safesysmalloc ((size_t)((len+1)*sizeof(char))))));
2869	Copy(str, copy, len+1, char)((void)(__builtin_expect(((((( sizeof(size_t) < sizeof(len +1) \|\| sizeof(char) > ((size_t)1 << 8(sizeof(size_t ) - sizeof(len+1)))) ? (size_t)(len+1) : ((size_t)-1)/sizeof( char)) > ((size_t)-1)/sizeof(char))) ? (_Bool)1 : (_Bool)0 ),(0)) && (Perl_croak_memory_wrap(),0)), ((void)0), ( (void)0), (void)memcpy((char)(copy),(const char)(str), (len +1) sizeof(char)));
2870	sv_usepvn_mg(sv, copy, len)Perl_sv_usepvn_flags( sv,copy,len,128);
2871	#line 2872 "RealPPPort.c"
2872	}
2873	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
2874	}
2875
2876
2877	XS_EUPXS(XS_Devel__PPPort_SvVSTRING_mg)static void XS_Devel__PPPort_SvVSTRING_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2878	XS_EUPXS(XS_Devel__PPPort_SvVSTRING_mg)static void XS_Devel__PPPort_SvVSTRING_mg( CV* cv __attribute__ ((unused)))
2879	{
2880	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2881	if (items != 1)
2882	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
2883	{
2884	SV * sv = ST(0)PL_stack_base[ax + (0)]
2885	;
2886	int RETVAL;
2887	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2888	#line 1509 "RealPPPort.xs"
2889	RETVAL = SvVSTRING_mg(sv)(((sv)->sv_flags & (0x00200000\|0x00400000\|0x00800000)) ? Perl_mg_find(sv,'V') : ((void)0)) != NULL((void)0);
2890	#line 2891 "RealPPPort.c"
2891	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
2892	}
2893	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2894	}
2895
2896
2897	XS_EUPXS(XS_Devel__PPPort_sv_magic_portable)static void XS_Devel__PPPort_sv_magic_portable( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2898	XS_EUPXS(XS_Devel__PPPort_sv_magic_portable)static void XS_Devel__PPPort_sv_magic_portable( CV* cv __attribute__ ((unused)))
2899	{
2900	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2901	if (items != 1)
2902	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
2903	{
2904	SV * sv = ST(0)PL_stack_base[ax + (0)]
2905	;
2906	#line 1517 "RealPPPort.xs"
2907	MAGIC *mg;
2908	const char *foo = "foo";
2909	#line 2910 "RealPPPort.c"
2910	int RETVAL;
2911	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2912	#line 1520 "RealPPPort.xs"
2913	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
2914	sv_magic_portable(sv, 0, '~', foo, 0)Perl_sv_magic( sv,0,'~',foo,0);
2915	mg = mg_findPerl_mg_find(sv, '~');
2916	if (!mg)
2917	croakPerl_croak("No mg!");
2918
2919	RETVAL = mg->mg_ptr == foo;
2920	#else
2921	sv_magic(sv, 0, '~', (char ) foo, strlen(foo))Perl_sv_magic( sv,0,'~',(char ) foo,strlen(foo));
2922	mg = mg_findPerl_mg_find(sv, '~');
2923	RETVAL = strEQ(mg->mg_ptr, foo)(strcmp(mg->mg_ptr,foo) == 0);
2924	#endif
2925	sv_unmagic(sv, '~')Perl_sv_unmagic( sv,'~');
2926	#line 2927 "RealPPPort.c"
2927	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
2928	}
2929	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2930	}
2931
2932
2933	XS_EUPXS(XS_Devel__PPPort_above_IV_MAX)static void XS_Devel__PPPort_above_IV_MAX( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2934	XS_EUPXS(XS_Devel__PPPort_above_IV_MAX)static void XS_Devel__PPPort_above_IV_MAX( CV* cv __attribute__ ((unused)))
2935	{
2936	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2937	if (items != 0)
2938	croak_xs_usagePerl_croak_xs_usage(cv, "");
2939	{
2940	UV RETVAL;
2941	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2942	#line 1539 "RealPPPort.xs"
2943	RETVAL = (UV)IV_MAX((IV) ((~(UV)0) >> 1))+100;
2944	#line 2945 "RealPPPort.c"
2945	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
2946	}
2947	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2948	}
2949
2950	#ifdef SVf_IVisUV0x80000000
2951	#define XSubPPtmpAAAC1 1
2952
2953
2954	XS_EUPXS(XS_Devel__PPPort_SVf_IVisUV)static void XS_Devel__PPPort_SVf_IVisUV( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2955	XS_EUPXS(XS_Devel__PPPort_SVf_IVisUV)static void XS_Devel__PPPort_SVf_IVisUV( CV* cv __attribute__ ((unused)))
2956	{
2957	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2958	if (items != 1)
2959	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
2960	{
2961	SV * sv = ST(0)PL_stack_base[ax + (0)]
2962	;
2963	U32 RETVAL;
2964	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2965	#line 1549 "RealPPPort.xs"
2966	RETVAL = (SvFLAGS(sv)(sv)->sv_flags & SVf_IVisUV0x80000000);
2967	#line 2968 "RealPPPort.c"
2968	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
2969	}
2970	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2971	}
2972
2973	#endif
2974	#ifdef SvIV_nomg
2975	#define XSubPPtmpAAAD1 1
2976
2977
2978	XS_EUPXS(XS_Devel__PPPort_magic_SvIV_nomg)static void XS_Devel__PPPort_magic_SvIV_nomg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
2979	XS_EUPXS(XS_Devel__PPPort_magic_SvIV_nomg)static void XS_Devel__PPPort_magic_SvIV_nomg( CV* cv __attribute__ ((unused)))
2980	{
2981	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
2982	if (items != 1)
2983	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
2984	{
2985	SV * sv = ST(0)PL_stack_base[ax + (0)]
2986	;
2987	IV RETVAL;
2988	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
2989	#line 1561 "RealPPPort.xs"
2990	RETVAL = SvIV_nomg(sv)(((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( sv,0));
2991	#line 2992 "RealPPPort.c"
2992	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
2993	}
2994	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
2995	}
2996
2997	#endif
2998	#ifdef SvUV_nomg
2999	#define XSubPPtmpAAAE1 1
3000
3001
3002	XS_EUPXS(XS_Devel__PPPort_magic_SvUV_nomg)static void XS_Devel__PPPort_magic_SvUV_nomg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3003	XS_EUPXS(XS_Devel__PPPort_magic_SvUV_nomg)static void XS_Devel__PPPort_magic_SvUV_nomg( CV* cv __attribute__ ((unused)))
3004	{
3005	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3006	if (items != 1)
3007	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
3008	{
3009	SV * sv = ST(0)PL_stack_base[ax + (0)]
3010	;
3011	UV RETVAL;
3012	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3013	#line 1573 "RealPPPort.xs"
3014	RETVAL = SvUV_nomg(sv)(((sv)->sv_flags & 0x00000100) ? ((XPVUV*) (sv)->sv_any )->xuv_u.xivu_uv : Perl_sv_2uv_flags( sv,0));
3015	#line 3016 "RealPPPort.c"
3016	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
3017	}
3018	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3019	}
3020
3021	#endif
3022	#ifdef SvNV_nomg
3023	#define XSubPPtmpAAAF1 1
3024
3025
3026	XS_EUPXS(XS_Devel__PPPort_magic_SvNV_nomg)static void XS_Devel__PPPort_magic_SvNV_nomg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3027	XS_EUPXS(XS_Devel__PPPort_magic_SvNV_nomg)static void XS_Devel__PPPort_magic_SvNV_nomg( CV* cv __attribute__ ((unused)))
3028	{
3029	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3030	if (items != 1)
3031	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
3032	{
3033	SV * sv = ST(0)PL_stack_base[ax + (0)]
3034	;
3035	NV RETVAL;
3036	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3037	#line 1585 "RealPPPort.xs"
3038	RETVAL = SvNV_nomg(sv)(((sv)->sv_flags & 0x00000200) ? ((XPVNV*) (sv)->sv_any )->xnv_u.xnv_nv : Perl_sv_2nv_flags( sv,0));
3039	#line 3040 "RealPPPort.c"
3040	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHn((NV)RETVAL)do { do { NV TARGn_nv = (NV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000))) == SVt_NV) & (1 ? ! (((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool)0),(0)) ) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0),(1))) { ((void)0); (targ)->sv_flags \|= (0x00000200\|0x00002000); do { ((void)0); ((void)0); (((XPVNV)(targ)->sv_any)->xnv_u .xnv_nv = (TARGn_nv)); } while (0); } else Perl_sv_setnv_mg( targ ,TARGn_nv); } while (0); (++sp = (targ)); } while (0);
3041	}
3042	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3043	}
3044
3045	#endif
3046	#ifdef SvTRUE_nomg
3047	#define XSubPPtmpAAAG1 1
3048
3049
3050	XS_EUPXS(XS_Devel__PPPort_magic_SvTRUE_nomg)static void XS_Devel__PPPort_magic_SvTRUE_nomg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3051	XS_EUPXS(XS_Devel__PPPort_magic_SvTRUE_nomg)static void XS_Devel__PPPort_magic_SvTRUE_nomg( CV* cv __attribute__ ((unused)))
3052	{
3053	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3054	if (items != 1)
3055	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
3056	{
3057	SV * sv = ST(0)PL_stack_base[ax + (0)]
3058	;
3059	bool_Bool RETVAL;
3060	#line 1597 "RealPPPort.xs"
3061	RETVAL = SvTRUE_nomg(sv)(__builtin_expect(((sv) ? (_Bool)1 : (_Bool)0),(1)) && (( ((size_t)((sv) - &(PL_sv_immortals[0])) < 4) ? ((sv ) == &(PL_sv_immortals[0])) : !((sv)->sv_flags & ( 0x00000100\|0x00000200\|0x00000400\|0x00000800\| 0x00001000\|0x00002000 \|0x00004000\|0x00008000)) ? 0 : ((sv)->sv_flags & 0x00000400 ) ? ( ((XPV)((sv))->sv_any) && ( ((XPV)((sv))-> sv_any)->xpv_cur > 1 \|\| ( ((XPV)((sv))->sv_any)-> xpv_cur && (sv)->sv_u.svu_pv != '0' ) ) ) : ((sv) ->sv_flags & 0x00000100) ? (((XPVIV) (sv)->sv_any) ->xiv_u.xivu_iv != 0 ) : (((sv)->sv_flags & 0x00000800 ) && !( ((((sv)->sv_u.svu_rv))->sv_flags & 0x00100000 ) && ((((XPVMG) (((sv)->sv_u.svu_rv))->sv_any) ->xmg_stash)->sv_flags & 0x10000000))) ? (1) : (Perl_sv_2bool_flags ( sv,0)))));
3062	#line 3063 "RealPPPort.c"
3063	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
3064	}
3065	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3066	}
3067
3068	#endif
3069	#ifdef SvPV_nomg_nolen
3070	#define XSubPPtmpAAAH1 1
3071
3072
3073	XS_EUPXS(XS_Devel__PPPort_magic_SvPV_nomg_nolen)static void XS_Devel__PPPort_magic_SvPV_nomg_nolen( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3074	XS_EUPXS(XS_Devel__PPPort_magic_SvPV_nomg_nolen)static void XS_Devel__PPPort_magic_SvPV_nomg_nolen( CV* cv __attribute__ ((unused)))
3075	{
3076	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3077	if (items != 1)
3078	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
3079	{
3080	SV * sv = ST(0)PL_stack_base[ax + (0)]
3081	;
3082	char * RETVAL;
3083	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3084	#line 1609 "RealPPPort.xs"
3085	RETVAL = SvPV_nomg_nolen(sv)((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((sv)->sv_u.svu_pv) : Perl_sv_2pv_flags( sv,0,0));
3086	#line 3087 "RealPPPort.c"
3087	sv_setpv(TARG, RETVAL)Perl_sv_setpv( targ,RETVAL); XSprePUSH(sp = PL_stack_base + ax - 1); PUSHTARGdo { do { if (__builtin_expect(((((targ)->sv_flags & 0x00400000 )) ? (_Bool)1 : (_Bool)0),(0))) Perl_mg_set( targ); } while ( 0); (*++sp = (targ)); } while (0);
3088	}
3089	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3090	}
3091
3092	#endif
3093
3094	XS_EUPXS(XS_Devel__PPPort_checkmem)static void XS_Devel__PPPort_checkmem( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
3095	XS_EUPXS(XS_Devel__PPPort_checkmem)static void XS_Devel__PPPort_checkmem( CV* cv __attribute__(( unused)))
3096	{
3097	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3098	if (items != 0)
3099	croak_xs_usagePerl_croak_xs_usage(cv, "");
3100	{
3101	#line 1622 "RealPPPort.xs"
3102	char *p;
3103
3104	#line 3105 "RealPPPort.c"
3105	int RETVAL;
3106	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3107	#line 1625 "RealPPPort.xs"
3108	RETVAL = 0;
3109	Newx(p, 6, char)(p = ((void)(__builtin_expect(((((( sizeof(size_t) < sizeof (6) \|\| sizeof(char) > ((size_t)1 << 8(sizeof(size_t ) - sizeof(6)))) ? (size_t)(6) : ((size_t)-1)/sizeof(char)) > ((size_t)-1)/sizeof(char))) ? (_Bool)1 : (_Bool)0),(0)) && (Perl_croak_memory_wrap(),0)), (char)(Perl_safesysmalloc((size_t )((6)*sizeof(char))))));
3110	CopyD("Hello", p, 6, char)((void)(__builtin_expect(((((( sizeof(size_t) < sizeof(6) \|\| sizeof(char) > ((size_t)1 << 8(sizeof(size_t) - sizeof (6)))) ? (size_t)(6) : ((size_t)-1)/sizeof(char)) > ((size_t )-1)/sizeof(char))) ? (_Bool)1 : (_Bool)0),(0)) && (Perl_croak_memory_wrap (),0)), ((void)0), ((void)0), memcpy((char)(p),(const char) ("Hello"), (6) sizeof(char)));
3111	if (memEQ(p, "Hello", 6)(memcmp(((const void ) (p)), ((const void ) ("Hello")), 6) == 0))
3112	RETVAL++;
3113	ZeroD(p, 6, char)((void)(__builtin_expect(((((( sizeof(size_t) < sizeof(6) \|\| sizeof(char) > ((size_t)1 << 8(sizeof(size_t) - sizeof (6)))) ? (size_t)(6) : ((size_t)-1)/sizeof(char)) > ((size_t )-1)/sizeof(char))) ? (_Bool)1 : (_Bool)0),(0)) && (Perl_croak_memory_wrap (),0)), ((void)0), memset((char)(p),0,(6) * sizeof(char)));
3114	if (memEQ(p, "\0\0\0\0\0\0", 6)(memcmp(((const void ) (p)), ((const void ) ("\0\0\0\0\0\0" )), 6) == 0))
3115	RETVAL++;
3116	if (memEQs(p, 6, "\0\0\0\0\0\0")(((sizeof("\0\0\0\0\0\0")-1) == (6)) && (memcmp(((const void ) ((p))), ((const void ) (("" "\0\0\0\0\0\0" ""))), ( sizeof("\0\0\0\0\0\0")-1)) == 0)))
3117	RETVAL++;
3118	Poison(p, 6, char)((void)(__builtin_expect(((((( sizeof(size_t) < sizeof(6) \|\| sizeof(char) > ((size_t)1 << 8(sizeof(size_t) - sizeof (6)))) ? (size_t)(6) : ((size_t)-1)/sizeof(char)) > ((size_t )-1)/sizeof(char))) ? (_Bool)1 : (_Bool)0),(0)) && (Perl_croak_memory_wrap (),0)), (void)memset((char)(p), (U8)(0xEF), (6) * sizeof(char )));
3119	if (memNE(p, "\0\0\0\0\0\0", 6)(! (memcmp(((const void ) (p)), ((const void ) ("\0\0\0\0\0\0" )), 6) == 0)))
3120	RETVAL++;
3121	if (memNEs(p, 6, "\0\0\0\0\0\0")(! (((sizeof("\0\0\0\0\0\0")-1) == (6)) && (memcmp((( const void ) ((p))), ((const void ) (("" "\0\0\0\0\0\0" "") )), (sizeof("\0\0\0\0\0\0")-1)) == 0))))
3122	RETVAL++;
3123	Safefree(p)Perl_safesysfree(((void *)(p)));
3124
3125	Newxz(p, 6, char)(p = ((void)(__builtin_expect(((((( sizeof(size_t) < sizeof (6) \|\| sizeof(char) > ((size_t)1 << 8(sizeof(size_t ) - sizeof(6)))) ? (size_t)(6) : ((size_t)-1)/sizeof(char)) > ((size_t)-1)/sizeof(char))) ? (_Bool)1 : (_Bool)0),(0)) && (Perl_croak_memory_wrap(),0)), (char)(Perl_safesyscalloc((6 ),sizeof(char)))));
3126	if (memEQ(p, "\0\0\0\0\0\0", 6)(memcmp(((const void ) (p)), ((const void ) ("\0\0\0\0\0\0" )), 6) == 0))
3127	RETVAL++;
3128	Safefree(p)Perl_safesysfree(((void *)(p)));
3129
3130	Newxc(p, 3, short, char)(p = ((void)(__builtin_expect(((((( sizeof(size_t) < sizeof (3) \|\| sizeof(short) > ((size_t)1 << 8(sizeof(size_t ) - sizeof(3)))) ? (size_t)(3) : ((size_t)-1)/sizeof(short)) > ((size_t)-1)/sizeof(short))) ? (_Bool)1 : (_Bool)0),(0)) && (Perl_croak_memory_wrap(),0)), (char)(Perl_safesysmalloc((size_t )((3)*sizeof(short))))));
3131	Safefree(p)Perl_safesysfree(((void *)(p)));
3132
3133	#line 3134 "RealPPPort.c"
3134	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
3135	}
3136	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3137	}
3138
3139
3140	XS_EUPXS(XS_Devel__PPPort_croak_sv)static void XS_Devel__PPPort_croak_sv( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
3141	XS_EUPXS(XS_Devel__PPPort_croak_sv)static void XS_Devel__PPPort_croak_sv( CV* cv __attribute__(( unused)))
3142	{
3143	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3144	if (items != 1)
3145	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
3146	{
3147	SV * sv = ST(0)PL_stack_base[ax + (0)]
3148	;
3149	#line 1661 "RealPPPort.xs"
3150	croak_sv(sv)Perl_croak_sv( sv);
3151	#line 3152 "RealPPPort.c"
3152	}
3153	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
3154	}
3155
3156
3157	XS_EUPXS(XS_Devel__PPPort_croak_sv_errsv)static void XS_Devel__PPPort_croak_sv_errsv( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3158	XS_EUPXS(XS_Devel__PPPort_croak_sv_errsv)static void XS_Devel__PPPort_croak_sv_errsv( CV* cv __attribute__ ((unused)))
3159	{
3160	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3161	if (items != 0)
3162	croak_xs_usagePerl_croak_xs_usage(cv, "");
3163	{
3164	#line 1666 "RealPPPort.xs"
3165	croak_sv(ERRSV)Perl_croak_sv( (*((0+(PL_errgv)->sv_u.svu_gp)->gp_sv ? & ((0+(PL_errgv)->sv_u.svu_gp)->gp_sv) : &((0+(Perl_gv_add_by_type ( (PL_errgv),SVt_NULL))->sv_u.svu_gp)->gp_sv))));
3166	#line 3167 "RealPPPort.c"
3167	}
3168	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
3169	}
3170
3171
3172	XS_EUPXS(XS_Devel__PPPort_croak_sv_with_counter)static void XS_Devel__PPPort_croak_sv_with_counter( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3173	XS_EUPXS(XS_Devel__PPPort_croak_sv_with_counter)static void XS_Devel__PPPort_croak_sv_with_counter( CV* cv __attribute__ ((unused)))
3174	{
3175	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3176	if (items != 1)
3177	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
3178	{
3179	SV * sv = ST(0)PL_stack_base[ax + (0)]
3180	;
3181	#line 1672 "RealPPPort.xs"
3182	reset_counter();
3183	croak_sv((inc_counter(), sv))Perl_croak_sv( (inc_counter(), sv));
3184	#line 3185 "RealPPPort.c"
3185	}
3186	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
3187	}
3188
3189
3190	XS_EUPXS(XS_Devel__PPPort_get_counter)static void XS_Devel__PPPort_get_counter( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3191	XS_EUPXS(XS_Devel__PPPort_get_counter)static void XS_Devel__PPPort_get_counter( CV* cv __attribute__ ((unused)))
3192	{
3193	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3194	if (items != 0)
3195	croak_xs_usagePerl_croak_xs_usage(cv, "");
3196	{
3197	IV RETVAL;
3198	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3199	#line 1678 "RealPPPort.xs"
3200	RETVAL = counter;
3201	#line 3202 "RealPPPort.c"
3202	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
3203	}
3204	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3205	}
3206
3207
3208	XS_EUPXS(XS_Devel__PPPort_die_sv)static void XS_Devel__PPPort_die_sv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3209	XS_EUPXS(XS_Devel__PPPort_die_sv)static void XS_Devel__PPPort_die_sv( CV* cv __attribute__((unused )))
3210	{
3211	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3212	if (items != 1)
3213	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
3214	{
3215	SV * sv = ST(0)PL_stack_base[ax + (0)]
3216	;
3217	#line 1686 "RealPPPort.xs"
3218	(void)die_sv(sv)Perl_die_sv( sv);
3219	#line 3220 "RealPPPort.c"
3220	}
3221	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
3222	}
3223
3224
3225	XS_EUPXS(XS_Devel__PPPort_warn_sv)static void XS_Devel__PPPort_warn_sv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3226	XS_EUPXS(XS_Devel__PPPort_warn_sv)static void XS_Devel__PPPort_warn_sv( CV* cv __attribute__((unused )))
3227	{
3228	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3229	if (items != 1)
3230	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
3231	{
3232	SV * sv = ST(0)PL_stack_base[ax + (0)]
3233	;
3234	#line 1692 "RealPPPort.xs"
3235	warn_sv(sv)Perl_warn_sv( sv);
3236	#line 3237 "RealPPPort.c"
3237	}
3238	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
3239	}
3240
3241	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
3242	#define XSubPPtmpAAAI1 1
3243
3244
3245	XS_EUPXS(XS_Devel__PPPort_mess_sv)static void XS_Devel__PPPort_mess_sv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3246	XS_EUPXS(XS_Devel__PPPort_mess_sv)static void XS_Devel__PPPort_mess_sv( CV* cv __attribute__((unused )))
3247	{
3248	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3249	if (items != 2)
3250	croak_xs_usagePerl_croak_xs_usage(cv, "sv, consume");
3251	{
3252	SV * sv = ST(0)PL_stack_base[ax + (0)]
3253	;
3254	bool_Bool consume = (bool_Bool)SvTRUE(ST(1))Perl_SvTRUE( PL_stack_base[ax + (1)])
3255	;
3256	SV * RETVAL;
3257	#line 1701 "RealPPPort.xs"
3258	RETVAL = newSVsv(mess_sv(sv, consume))Perl_newSVsv_flags( (Perl_mess_sv( sv,consume)),2\|16);
3259	#line 3260 "RealPPPort.c"
3260	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
3261	ST(0)PL_stack_base[ax + (0)] = RETVAL;
3262	}
3263	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3264	}
3265
3266	#endif
3267
3268	XS_EUPXS(XS_Devel__PPPort_croak_no_modify)static void XS_Devel__PPPort_croak_no_modify( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3269	XS_EUPXS(XS_Devel__PPPort_croak_no_modify)static void XS_Devel__PPPort_croak_no_modify( CV* cv __attribute__ ((unused)))
3270	{
3271	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3272	if (items != 0)
3273	croak_xs_usagePerl_croak_xs_usage(cv, "");
3274	{
3275	#line 1710 "RealPPPort.xs"
3276	croak_no_modifyPerl_croak_no_modify();
3277	#line 3278 "RealPPPort.c"
3278	}
3279	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
3280	}
3281
3282
3283	XS_EUPXS(XS_Devel__PPPort_croak_memory_wrap)static void XS_Devel__PPPort_croak_memory_wrap( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3284	XS_EUPXS(XS_Devel__PPPort_croak_memory_wrap)static void XS_Devel__PPPort_croak_memory_wrap( CV* cv __attribute__ ((unused)))
3285	{
3286	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3287	if (items != 0)
3288	croak_xs_usagePerl_croak_xs_usage(cv, "");
3289	{
3290	#line 1715 "RealPPPort.xs"
3291	croak_memory_wrapPerl_croak_memory_wrap();
3292	#line 3293 "RealPPPort.c"
3293	}
3294	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
3295	}
3296
3297
3298	XS_EUPXS(XS_Devel__PPPort_croak_xs_usage)static void XS_Devel__PPPort_croak_xs_usage( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3299	XS_EUPXS(XS_Devel__PPPort_croak_xs_usage)static void XS_Devel__PPPort_croak_xs_usage( CV* cv __attribute__ ((unused)))
3300	{
3301	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3302	if (items != 1)
3303	croak_xs_usagePerl_croak_xs_usage(cv, "params");
3304	{
3305	char * params = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
3306	;
3307	#line 1721 "RealPPPort.xs"
3308	croak_xs_usagePerl_croak_xs_usage(cv, params);
3309	#line 3310 "RealPPPort.c"
3310	}
3311	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
3312	}
3313
3314
3315	XS_EUPXS(XS_Devel__PPPort_OpSIBLING_tests)static void XS_Devel__PPPort_OpSIBLING_tests( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3316	XS_EUPXS(XS_Devel__PPPort_OpSIBLING_tests)static void XS_Devel__PPPort_OpSIBLING_tests( CV* cv __attribute__ ((unused)))
3317	{
3318	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3319	if (items != 0)
3320	croak_xs_usagePerl_croak_xs_usage(cv, "");
3321	{
3322	#line 1730 "RealPPPort.xs"
3323	OP *x;
3324	OP *kid;
3325	OP *middlekid;
3326	OP *lastkid;
3327	int count = 0;
3328	int failures = 0;
3329	int i;
3330	#line 3331 "RealPPPort.c"
3331	int RETVAL;
3332	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3333	#line 1738 "RealPPPort.xs"
3334	x = newOP(OP_PUSHMARK, 0)Perl_newOP( OP_PUSHMARK,0);
3335
3336	/* No siblings yet! */
3337	if (OpHAS_SIBLING(x)((((x)->op_moresib) ? (_Bool)1 : (_Bool)0)) \|\| OpSIBLING(x)(0 + (x)->op_moresib ? (x)->op_sibparent : ((void*)0))) {
3338	failures++; warnPerl_warn("Op should not have had a sib");
3339	}
3340
3341
3342	/* Add 2 siblings */
3343	kid = x;
3344
3345	for (i = 0; i < 2; i++) {
3346	OP *newsib = newOP(OP_PUSHMARK, 0)Perl_newOP( OP_PUSHMARK,0);
3347	OpMORESIB_set(kid, newsib)((kid)->op_moresib = 1, (kid)->op_sibparent = (newsib));
3348
3349	kid = OpSIBLING(kid)(0 + (kid)->op_moresib ? (kid)->op_sibparent : ((void*) 0));
3350	lastkid = kid;
3351	}
3352	middlekid = OpSIBLING(x)(0 + (x)->op_moresib ? (x)->op_sibparent : ((void*)0));
3353
3354	/* Should now have a sibling */
3355	if (! OpHAS_SIBLING(x)((((x)->op_moresib) ? (_Bool)1 : (_Bool)0)) \|\| ! OpSIBLING(x)(0 + (x)->op_moresib ? (x)->op_sibparent : ((void*)0)) ) {
3356	failures++; warnPerl_warn("Op should have had a sib after moresib_set");
3357	}
3358
3359	/* Count the siblings */
3360	for (kid = OpSIBLING(x)(0 + (x)->op_moresib ? (x)->op_sibparent : ((void)0)); kid; kid = OpSIBLING(kid)(0 + (kid)->op_moresib ? (kid)->op_sibparent : ((void) 0))) {
3361	count++;
3362	}
3363
3364	if (count != 2) {
3365	failures++; warnPerl_warn("Kid had %d sibs, expected 2", count);
3366	}
3367
3368	if (OpHAS_SIBLING(lastkid)((((lastkid)->op_moresib) ? (_Bool)1 : (_Bool)0)) \|\| OpSIBLING(lastkid)(0 + (lastkid)->op_moresib ? (lastkid)->op_sibparent : ( (void*)0))) {
3369	failures++; warnPerl_warn("Last kid should not have a sib");
3370	}
3371
3372	/* Really sets the parent, and says 'no more siblings' */
3373	OpLASTSIB_set(x, lastkid)((x)->op_moresib = 0, (x)->op_sibparent = (lastkid));
3374
3375	if (OpHAS_SIBLING(x)((((x)->op_moresib) ? (_Bool)1 : (_Bool)0)) \|\| OpSIBLING(x)(0 + (x)->op_moresib ? (x)->op_sibparent : ((void*)0))) {
3376	failures++; warnPerl_warn("OpLASTSIB_set failed?");
3377	}
3378
3379	/* Restore the kid */
3380	OpMORESIB_set(x, lastkid)((x)->op_moresib = 1, (x)->op_sibparent = (lastkid));
3381
3382	/* Try to remove it again */
3383	OpLASTSIB_set(x, NULL)((x)->op_moresib = 0, (x)->op_sibparent = (((void*)0)));
3384
3385	if (OpHAS_SIBLING(x)((((x)->op_moresib) ? (_Bool)1 : (_Bool)0)) \|\| OpSIBLING(x)(0 + (x)->op_moresib ? (x)->op_sibparent : ((void*)0))) {
3386	failures++; warnPerl_warn("OpLASTSIB_set with NULL failed?");
3387	}
3388
3389	/* Try to restore with maybesib_set */
3390	OpMAYBESIB_set(x, lastkid, NULL)((x)->op_sibparent = ((x)->op_moresib = ((lastkid) ? (_Bool )1 : (_Bool)0)) ? (lastkid) : (((void*)0)));
3391
3392	if (! OpHAS_SIBLING(x)((((x)->op_moresib) ? (_Bool)1 : (_Bool)0)) \|\| ! OpSIBLING(x)(0 + (x)->op_moresib ? (x)->op_sibparent : ((void*)0)) ) {
3393	failures++; warnPerl_warn("Op should have had a sib after maybesibset");
3394	}
3395
3396	op_free(lastkid)Perl_op_free( lastkid);
3397	op_free(middlekid)Perl_op_free( middlekid);
3398	op_free(x)Perl_op_free( x);
3399	RETVAL = failures;
3400	#line 3401 "RealPPPort.c"
3401	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
3402	}
3403	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3404	}
3405
3406
3407	XS_EUPXS(XS_Devel__PPPort_SvRXOK)static void XS_Devel__PPPort_SvRXOK( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3408	XS_EUPXS(XS_Devel__PPPort_SvRXOK)static void XS_Devel__PPPort_SvRXOK( CV* cv __attribute__((unused )))
3409	{
3410	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3411	if (items != 1)
3412	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
3413	{
3414	SV * sv = ST(0)PL_stack_base[ax + (0)]
3415	;
3416	int RETVAL;
3417	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3418	#line 1811 "RealPPPort.xs"
3419	RETVAL = SvRXOK(sv)((Perl_get_re_arg( sv)) ? (_Bool)1 : (_Bool)0);
3420	#line 3421 "RealPPPort.c"
3421	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
3422	}
3423	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3424	}
3425
3426
3427	XS_EUPXS(XS_Devel__PPPort_ptrtests)static void XS_Devel__PPPort_ptrtests( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
3428	XS_EUPXS(XS_Devel__PPPort_ptrtests)static void XS_Devel__PPPort_ptrtests( CV* cv __attribute__(( unused)))
3429	{
3430	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3431	if (items != 0)
3432	croak_xs_usagePerl_croak_xs_usage(cv, "");
3433	{
3434	#line 1818 "RealPPPort.xs"
3435	int var, *p = &var;
3436
3437	#line 3438 "RealPPPort.c"
3438	int RETVAL;
3439	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3440	#line 1821 "RealPPPort.xs"
3441	RETVAL = 0;
3442	RETVAL += PTR2nat(p)(UV)(p) != 0 ? 1 : 0;
3443	RETVAL += PTR2ul(p)(unsigned long)(p) != 0UL ? 2 : 0;
3444	RETVAL += PTR2UV(p)(UV)(p) != (UV) 0 ? 4 : 0;
3445	RETVAL += PTR2IV(p)(IV)(p) != (IV) 0 ? 8 : 0;
3446	RETVAL += PTR2NV(p)(NV)(UV)(p) != (NV) 0 ? 16 : 0;
3447	RETVAL += p > NUM2PTR(int , 0)(int )(UV)(0) ? 32 : 0;
3448
3449	#line 3450 "RealPPPort.c"
3450	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
3451	}
3452	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3453	}
3454
3455
3456	XS_EUPXS(XS_Devel__PPPort_gv_stashpvn)static void XS_Devel__PPPort_gv_stashpvn( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3457	XS_EUPXS(XS_Devel__PPPort_gv_stashpvn)static void XS_Devel__PPPort_gv_stashpvn( CV* cv __attribute__ ((unused)))
3458	{
3459	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3460	if (items != 2)
3461	croak_xs_usagePerl_croak_xs_usage(cv, "name, create");
3462	{
3463	char * name = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
3464	;
3465	I32 create = (I32)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
3466	;
3467	int RETVAL;
3468	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3469	#line 1837 "RealPPPort.xs"
3470	RETVAL = gv_stashpvn(name, strlen(name), create)Perl_gv_stashpvn( name,strlen(name),create) != NULL((void*)0);
3471	#line 3472 "RealPPPort.c"
3472	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
3473	}
3474	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3475	}
3476
3477
3478	XS_EUPXS(XS_Devel__PPPort_get_sv)static void XS_Devel__PPPort_get_sv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3479	XS_EUPXS(XS_Devel__PPPort_get_sv)static void XS_Devel__PPPort_get_sv( CV* cv __attribute__((unused )))
3480	{
3481	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3482	if (items != 2)
3483	croak_xs_usagePerl_croak_xs_usage(cv, "name, create");
3484	{
3485	char * name = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
3486	;
3487	I32 create = (I32)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
3488	;
3489	int RETVAL;
3490	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3491	#line 1846 "RealPPPort.xs"
3492	RETVAL = get_sv(name, create)Perl_get_sv( name,create) != NULL((void*)0);
3493	#line 3494 "RealPPPort.c"
3494	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
3495	}
3496	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3497	}
3498
3499
3500	XS_EUPXS(XS_Devel__PPPort_get_av)static void XS_Devel__PPPort_get_av( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3501	XS_EUPXS(XS_Devel__PPPort_get_av)static void XS_Devel__PPPort_get_av( CV* cv __attribute__((unused )))
3502	{
3503	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3504	if (items != 2)
3505	croak_xs_usagePerl_croak_xs_usage(cv, "name, create");
3506	{
3507	char * name = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
3508	;
3509	I32 create = (I32)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
3510	;
3511	int RETVAL;
3512	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3513	#line 1855 "RealPPPort.xs"
3514	RETVAL = get_av(name, create)Perl_get_av( name,create) != NULL((void*)0);
3515	#line 3516 "RealPPPort.c"
3516	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
3517	}
3518	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3519	}
3520
3521
3522	XS_EUPXS(XS_Devel__PPPort_get_hv)static void XS_Devel__PPPort_get_hv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3523	XS_EUPXS(XS_Devel__PPPort_get_hv)static void XS_Devel__PPPort_get_hv( CV* cv __attribute__((unused )))
3524	{
3525	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3526	if (items != 2)
3527	croak_xs_usagePerl_croak_xs_usage(cv, "name, create");
3528	{
3529	char * name = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
3530	;
3531	I32 create = (I32)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
3532	;
3533	int RETVAL;
3534	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3535	#line 1864 "RealPPPort.xs"
3536	RETVAL = get_hv(name, create)Perl_get_hv( name,create) != NULL((void*)0);
3537	#line 3538 "RealPPPort.c"
3538	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
3539	}
3540	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3541	}
3542
3543
3544	XS_EUPXS(XS_Devel__PPPort_get_cv)static void XS_Devel__PPPort_get_cv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3545	XS_EUPXS(XS_Devel__PPPort_get_cv)static void XS_Devel__PPPort_get_cv( CV* cv __attribute__((unused )))
3546	{
3547	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3548	if (items != 2)
3549	croak_xs_usagePerl_croak_xs_usage(cv, "name, create");
3550	{
3551	char * name = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
3552	;
3553	I32 create = (I32)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
3554	;
3555	int RETVAL;
3556	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3557	#line 1873 "RealPPPort.xs"
3558	RETVAL = get_cv(name, create)Perl_get_cv( name,create) != NULL((void*)0);
3559	#line 3560 "RealPPPort.c"
3560	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
3561	}
3562	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3563	}
3564
3565
3566	XS_EUPXS(XS_Devel__PPPort_xsreturn)static void XS_Devel__PPPort_xsreturn( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
3567	XS_EUPXS(XS_Devel__PPPort_xsreturn)static void XS_Devel__PPPort_xsreturn( CV* cv __attribute__(( unused)))
3568	{
3569	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3570	if (items != 1)
3571	croak_xs_usagePerl_croak_xs_usage(cv, "two");
3572	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
3573	SPsp -= items;
3574	{
3575	int two = (int)SvIV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (0)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 0)],2))
3576	;
3577	#line 1881 "RealPPPort.xs"
3578	mXPUSHp("test1", 5)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); ( *++sp = (Perl_newSVpvn_flags( (("test1")),((5)),0x00080000))) ; } while (0);
3579	if (two)
3580	mXPUSHp("test2", 5)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); ( *++sp = (Perl_newSVpvn_flags( (("test2")),((5)),0x00080000))) ; } while (0);
3581	if (two)
3582	XSRETURN(2)do { const IV tmpXSoff = (2); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3583	else
3584	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3585	#line 3586 "RealPPPort.c"
3586	PUTBACKPL_stack_sp = sp;
3587	return;
3588	}
3589	}
3590
3591
3592	XS_EUPXS(XS_Devel__PPPort_boolSV)static void XS_Devel__PPPort_boolSV( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3593	XS_EUPXS(XS_Devel__PPPort_boolSV)static void XS_Devel__PPPort_boolSV( CV* cv __attribute__((unused )))
3594	{
3595	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3596	if (items != 1)
3597	croak_xs_usagePerl_croak_xs_usage(cv, "value");
3598	{
3599	int value = (int)SvIV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (0)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 0)],2))
3600	;
3601	SV * RETVAL;
3602	#line 1893 "RealPPPort.xs"
3603	RETVAL = newSVsv(boolSV(value))Perl_newSVsv_flags( (((value) ? &(PL_sv_immortals[0]) : & (PL_sv_immortals[2]))),2\|16);
3604	#line 3605 "RealPPPort.c"
3605	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
3606	ST(0)PL_stack_base[ax + (0)] = RETVAL;
3607	}
3608	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3609	}
3610
3611
3612	XS_EUPXS(XS_Devel__PPPort_DEFSV)static void XS_Devel__PPPort_DEFSV( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3613	XS_EUPXS(XS_Devel__PPPort_DEFSV)static void XS_Devel__PPPort_DEFSV( CV* cv __attribute__((unused )))
3614	{
3615	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3616	if (items != 0)
3617	croak_xs_usagePerl_croak_xs_usage(cv, "");
3618	{
3619	SV * RETVAL;
3620	#line 1900 "RealPPPort.xs"
3621	RETVAL = newSVsv(DEFSV)Perl_newSVsv_flags( ((*((0+(PL_defgv)->sv_u.svu_gp)->gp_sv ? &((0+(PL_defgv)->sv_u.svu_gp)->gp_sv) : &((0 +(Perl_gv_add_by_type( (PL_defgv),SVt_NULL))->sv_u.svu_gp) ->gp_sv)))),2\|16);
3622	#line 3623 "RealPPPort.c"
3623	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
3624	ST(0)PL_stack_base[ax + (0)] = RETVAL;
3625	}
3626	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3627	}
3628
3629
3630	XS_EUPXS(XS_Devel__PPPort_DEFSV_modify)static void XS_Devel__PPPort_DEFSV_modify( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3631	XS_EUPXS(XS_Devel__PPPort_DEFSV_modify)static void XS_Devel__PPPort_DEFSV_modify( CV* cv __attribute__ ((unused)))
3632	{
3633	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3634	if (items != 0)
3635	croak_xs_usagePerl_croak_xs_usage(cv, "");
3636	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
3637	SPsp -= items;
3638	{
3639	#line 1907 "RealPPPort.xs"
3640	XPUSHs(sv_mortalcopy(DEFSV))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_mortalcopy_flags( (*((0+(PL_defgv)->sv_u.svu_gp )->gp_sv ? &((0+(PL_defgv)->sv_u.svu_gp)->gp_sv) : &((0+(Perl_gv_add_by_type( (PL_defgv),SVt_NULL))->sv_u .svu_gp)->gp_sv))), 2\|0)); } while (0);
3641	ENTERPerl_push_scope();
3642	SAVE_DEFSVPerl_save_sptr( (SV**)&(((0+(PL_defgv)->sv_u.svu_gp)-> gp_sv)));
3643	DEFSV_set(newSVpvs("DEFSV"))(((0+(PL_defgv)->sv_u.svu_gp)->gp_sv) = (Perl_newSVpvn( ("" "DEFSV" ""), (sizeof("DEFSV")-1))));
3644	XPUSHs(sv_mortalcopy(DEFSV))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_mortalcopy_flags( (*((0+(PL_defgv)->sv_u.svu_gp )->gp_sv ? &((0+(PL_defgv)->sv_u.svu_gp)->gp_sv) : &((0+(Perl_gv_add_by_type( (PL_defgv),SVt_NULL))->sv_u .svu_gp)->gp_sv))), 2\|0)); } while (0);
3645	/* Yes, this leaks the above scalar; 5.005 with threads for some reason */
3646	/* frees it upon LEAVE, thus mortalizing it causes "attempt to free..." */
3647	/* sv_2mortal(DEFSV); */
3648	LEAVEPerl_pop_scope();
3649	XPUSHs(sv_mortalcopy(DEFSV))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_mortalcopy_flags( (*((0+(PL_defgv)->sv_u.svu_gp )->gp_sv ? &((0+(PL_defgv)->sv_u.svu_gp)->gp_sv) : &((0+(Perl_gv_add_by_type( (PL_defgv),SVt_NULL))->sv_u .svu_gp)->gp_sv))), 2\|0)); } while (0);
3650	XSRETURN(3)do { const IV tmpXSoff = (3); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3651	#line 3652 "RealPPPort.c"
3652	PUTBACKPL_stack_sp = sp;
3653	return;
3654	}
3655	}
3656
3657
3658	XS_EUPXS(XS_Devel__PPPort_ERRSV)static void XS_Devel__PPPort_ERRSV( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3659	XS_EUPXS(XS_Devel__PPPort_ERRSV)static void XS_Devel__PPPort_ERRSV( CV* cv __attribute__((unused )))
3660	{
3661	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3662	if (items != 0)
3663	croak_xs_usagePerl_croak_xs_usage(cv, "");
3664	{
3665	int RETVAL;
3666	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3667	#line 1922 "RealPPPort.xs"
3668	RETVAL = SvTRUEx(ERRSV)({SV _sv = ((((0+(PL_errgv)->sv_u.svu_gp)->gp_sv ? & ((0+(PL_errgv)->sv_u.svu_gp)->gp_sv) : &((0+(Perl_gv_add_by_type ( (PL_errgv),SVt_NULL))->sv_u.svu_gp)->gp_sv)))); Perl_SvTRUE ( _sv); });
3669	#line 3670 "RealPPPort.c"
3670	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
3671	}
3672	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3673	}
3674
3675
3676	XS_EUPXS(XS_Devel__PPPort_UNDERBAR)static void XS_Devel__PPPort_UNDERBAR( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
3677	XS_EUPXS(XS_Devel__PPPort_UNDERBAR)static void XS_Devel__PPPort_UNDERBAR( CV* cv __attribute__(( unused)))
3678	{
3679	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3680	if (items != 0)
3681	croak_xs_usagePerl_croak_xs_usage(cv, "");
3682	{
3683	SV * RETVAL;
3684	#line 1929 "RealPPPort.xs"
3685	{
3686	dUNDERBARstruct Perl___notused_struct;
3687	RETVAL = newSVsv(UNDERBAR)Perl_newSVsv_flags( (Perl_find_rundefsv()),2\|16);
3688	}
3689	#line 3690 "RealPPPort.c"
3690	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
3691	ST(0)PL_stack_base[ax + (0)] = RETVAL;
3692	}
3693	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3694	}
3695
3696
3697	XS_EUPXS(XS_Devel__PPPort_prepush)static void XS_Devel__PPPort_prepush( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3698	XS_EUPXS(XS_Devel__PPPort_prepush)static void XS_Devel__PPPort_prepush( CV* cv __attribute__((unused )))
3699	{
3700	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3701	if (items != 0)
3702	croak_xs_usagePerl_croak_xs_usage(cv, "");
3703	{
3704	#line 1939 "RealPPPort.xs"
3705	{
3706	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3707	XSprePUSH(sp = PL_stack_base + ax - 1);
3708	PUSHi(42)do { do { IV TARGi_iv = 42; if (__builtin_expect((((((targ)-> sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800\|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? ! (((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool)0),(0)) ) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0),(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000); targ ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ,TARGi_iv ); } while (0); (*++sp = (targ)); } while (0);
3709	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3710	}
3711	#line 3712 "RealPPPort.c"
3712	}
3713	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
3714	}
3715
3716
3717	XS_EUPXS(XS_Devel__PPPort_PERL_ABS)static void XS_Devel__PPPort_PERL_ABS( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
3718	XS_EUPXS(XS_Devel__PPPort_PERL_ABS)static void XS_Devel__PPPort_PERL_ABS( CV* cv __attribute__(( unused)))
3719	{
3720	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3721	if (items != 1)
3722	croak_xs_usagePerl_croak_xs_usage(cv, "a");
3723	{
3724	int a = (int)SvIV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (0)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 0)],2))
3725	;
3726	int RETVAL;
3727	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
3728
3729	RETVAL = PERL_ABS(a)((a) < 0 ? -(a) : (a));
3730	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
3731	}
3732	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3733	}
3734
3735
3736	XS_EUPXS(XS_Devel__PPPort_SVf)static void XS_Devel__PPPort_SVf( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3737	XS_EUPXS(XS_Devel__PPPort_SVf)static void XS_Devel__PPPort_SVf( CV* cv __attribute__((unused )))
3738	{
3739	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3740	if (items != 1)
3741	croak_xs_usagePerl_croak_xs_usage(cv, "x");
3742	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
3743	SPsp -= items;
3744	{
3745	SV * x = ST(0)PL_stack_base[ax + (0)]
3746	;
3747	#line 1954 "RealPPPort.xs"
3748	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
3749	x = sv_2mortal(newSVpvf("[%" SVf "]", SVfARG(x)))Perl_sv_2mortal( Perl_newSVpvf("[%" "-p" "]", ((void*)(x))));
3750	#endif
3751	XPUSHs(x)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (x); } while (0);
3752	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3753	#line 3754 "RealPPPort.c"
3754	PUTBACKPL_stack_sp = sp;
3755	return;
3756	}
3757	}
3758
3759
3760	XS_EUPXS(XS_Devel__PPPort_Perl_ppaddr_t)static void XS_Devel__PPPort_Perl_ppaddr_t( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3761	XS_EUPXS(XS_Devel__PPPort_Perl_ppaddr_t)static void XS_Devel__PPPort_Perl_ppaddr_t( CV* cv __attribute__ ((unused)))
3762	{
3763	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3764	if (items != 1)
3765	croak_xs_usagePerl_croak_xs_usage(cv, "string");
3766	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
3767	SPsp -= items;
3768	{
3769	char * string = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
3770	;
3771	#line 1964 "RealPPPort.xs"
3772	Perl_ppaddr_t lower;
3773	#line 3774 "RealPPPort.c"
3774	#line 1966 "RealPPPort.xs"
3775	lower = PL_ppaddr[OP_LC];
3776	mXPUSHs(newSVpv(string, 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( string,0))); } while ( 0);
3777	PUTBACKPL_stack_sp = sp;
3778	ENTERPerl_push_scope();
3779	(void)*(lower)(aTHXR);
3780	SPAGAINsp = PL_stack_sp;
3781	LEAVEPerl_pop_scope();
3782	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3783	#line 3784 "RealPPPort.c"
3784	PUTBACKPL_stack_sp = sp;
3785	return;
3786	}
3787	}
3788
3789	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5008000)
3790	#define XSubPPtmpAAAJ1 1
3791
3792
3793	XS_EUPXS(XS_Devel__PPPort_check_HeUTF8)static void XS_Devel__PPPort_check_HeUTF8( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3794	XS_EUPXS(XS_Devel__PPPort_check_HeUTF8)static void XS_Devel__PPPort_check_HeUTF8( CV* cv __attribute__ ((unused)))
3795	{
3796	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3797	if (items != 1)
3798	croak_xs_usagePerl_croak_xs_usage(cv, "utf8_key");
3799	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
3800	SPsp -= items;
3801	{
3802	SV * utf8_key = ST(0)PL_stack_base[ax + (0)]
3803	;
3804	#line 1981 "RealPPPort.xs"
3805	HV *hash;
3806	HE *ent;
3807	STRLEN klen;
3808	char *key;
3809	#line 3810 "RealPPPort.c"
3810	#line 1986 "RealPPPort.xs"
3811	hash = newHV()((HV )({ void _p = (Perl_newSV_type( SVt_PVHV)); _p; }));
3812
3813	key = SvPV(utf8_key, klen)((((utf8_key)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((klen = ((XPV*) (utf8_key)->sv_any)->xpv_cur), ((utf8_key )->sv_u.svu_pv)) : Perl_sv_2pv_flags( utf8_key,&klen,2 ));
3814	if (SvUTF8(utf8_key)((utf8_key)->sv_flags & 0x20000000)) klen *= -1;
3815	hv_store(hash, key, klen, newSVpvs("string"), 0)((SV**) Perl_hv_common_key_len( (hash),(key),(klen),(0x04\|0x20 ),(Perl_newSVpvn( ("" "string" ""), (sizeof("string")-1))),(0 )));
3816	hv_iterinit(hash)Perl_hv_iterinit( hash);
3817	ent = hv_iternext(hash)Perl_hv_iternext_flags( hash,0);
3818	assert(ent)((void)0);
3819	mXPUSHp((HeUTF8(ent) == 0 ? "norm" : "utf8"), 4)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); ( ++sp = (Perl_newSVpvn_flags( (((((((ent)->hent_hek)->hek_len == -2) ? ((((SV*)((ent)->hent_hek)->hek_key))->sv_flags & 0x20000000) : (U32)((((unsigned char *)(((ent)->hent_hek )->hek_key)+((ent)->hent_hek)->hek_len+1)) & 0x01 )) == 0 ? "norm" : "utf8"))),((4)),0x00080000))); } while (0);
3820	hv_undef(hash)Perl_hv_undef_flags( hash, 0);
3821	#line 3822 "RealPPPort.c"
3822	PUTBACKPL_stack_sp = sp;
3823	return;
3824	}
3825	}
3826
3827	#endif
3828
3829	XS_EUPXS(XS_Devel__PPPort_check_c_array)static void XS_Devel__PPPort_check_c_array( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3830	XS_EUPXS(XS_Devel__PPPort_check_c_array)static void XS_Devel__PPPort_check_c_array( CV* cv __attribute__ ((unused)))
3831	{
3832	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3833	if (items != 0)
3834	croak_xs_usagePerl_croak_xs_usage(cv, "");
3835	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
3836	SPsp -= items;
3837	{
3838	#line 2003 "RealPPPort.xs"
3839	int x[] = { 10, 11, 12, 13 };
3840	#line 3841 "RealPPPort.c"
3841	#line 2005 "RealPPPort.xs"
3842	mXPUSHi(C_ARRAY_LENGTH(x))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)((sizeof(x)/sizeof((x)[ 0])))); } while (0); / 4 */
3843	mXPUSHi((C_ARRAY_END(x)-1))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)((((x) + (sizeof(x)/sizeof ((x)[0])))-1))); } while (0); / 13 */
3844	#line 3845 "RealPPPort.c"
3845	PUTBACKPL_stack_sp = sp;
3846	return;
3847	}
3848	}
3849
3850
3851	XS_EUPXS(XS_Devel__PPPort_isBLANK)static void XS_Devel__PPPort_isBLANK( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3852	XS_EUPXS(XS_Devel__PPPort_isBLANK)static void XS_Devel__PPPort_isBLANK( CV* cv __attribute__((unused )))
3853	{
3854	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3855	if (items != 1)
3856	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
3857	{
3858	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
3859	;
3860	bool_Bool RETVAL;
3861	#line 2012 "RealPPPort.xs"
3862	RETVAL = isBLANK(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (11)) \| (1U << (14)))) == ((1U << (11)) \| (1U << (14)))));
3863	#line 3864 "RealPPPort.c"
3864	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
3865	}
3866	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3867	}
3868
3869
3870	XS_EUPXS(XS_Devel__PPPort_isBLANK_A)static void XS_Devel__PPPort_isBLANK_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
3871	XS_EUPXS(XS_Devel__PPPort_isBLANK_A)static void XS_Devel__PPPort_isBLANK_A( CV* cv __attribute__( (unused)))
3872	{
3873	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3874	if (items != 1)
3875	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
3876	{
3877	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
3878	;
3879	bool_Bool RETVAL;
3880	#line 2020 "RealPPPort.xs"
3881	RETVAL = isBLANK_A(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (11)) \| (1U << (14)))) == ((1U << (11)) \| (1U << (14)))));
3882	#line 3883 "RealPPPort.c"
3883	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
3884	}
3885	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3886	}
3887
3888
3889	XS_EUPXS(XS_Devel__PPPort_isBLANK_L1)static void XS_Devel__PPPort_isBLANK_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3890	XS_EUPXS(XS_Devel__PPPort_isBLANK_L1)static void XS_Devel__PPPort_isBLANK_L1( CV* cv __attribute__ ((unused)))
3891	{
3892	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3893	if (items != 1)
3894	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
3895	{
3896	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
3897	;
3898	bool_Bool RETVAL;
3899	#line 2028 "RealPPPort.xs"
3900	RETVAL = isBLANK_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (11)))) ? (_Bool )1 : (_Bool)0);
3901	#line 3902 "RealPPPort.c"
3902	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
3903	}
3904	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3905	}
3906
3907
3908	XS_EUPXS(XS_Devel__PPPort_isUPPER)static void XS_Devel__PPPort_isUPPER( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3909	XS_EUPXS(XS_Devel__PPPort_isUPPER)static void XS_Devel__PPPort_isUPPER( CV* cv __attribute__((unused )))
3910	{
3911	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3912	if (items != 1)
3913	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
3914	{
3915	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
3916	;
3917	bool_Bool RETVAL;
3918	#line 2036 "RealPPPort.xs"
3919	RETVAL = isUPPER(ord)( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord)))) - ((('A')) \| 0))) <= (((U64) (((('Z') - ('A'))) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32) (ord)))) - ((('A')) \| 0))) <= (((U64) (((('Z') - ('A'))) \| 0))))) : ( ( (((U64) (((((U64) (ord)))) - ((('A')) \| 0))) <= (((U64) (((('Z') - ('A'))) \| 0))))))));
3920	#line 3921 "RealPPPort.c"
3921	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
3922	}
3923	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3924	}
3925
3926
3927	XS_EUPXS(XS_Devel__PPPort_isUPPER_A)static void XS_Devel__PPPort_isUPPER_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
3928	XS_EUPXS(XS_Devel__PPPort_isUPPER_A)static void XS_Devel__PPPort_isUPPER_A( CV* cv __attribute__( (unused)))
3929	{
3930	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3931	if (items != 1)
3932	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
3933	{
3934	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
3935	;
3936	bool_Bool RETVAL;
3937	#line 2044 "RealPPPort.xs"
3938	RETVAL = isUPPER_A(ord)( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord)))) - ((('A')) \| 0))) <= (((U64) (((('Z') - ('A'))) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32) (ord)))) - ((('A')) \| 0))) <= (((U64) (((('Z') - ('A'))) \| 0))))) : ( ( (((U64) (((((U64) (ord)))) - ((('A')) \| 0))) <= (((U64) (((('Z') - ('A'))) \| 0))))))));
3939	#line 3940 "RealPPPort.c"
3940	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
3941	}
3942	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3943	}
3944
3945
3946	XS_EUPXS(XS_Devel__PPPort_isUPPER_L1)static void XS_Devel__PPPort_isUPPER_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
3947	XS_EUPXS(XS_Devel__PPPort_isUPPER_L1)static void XS_Devel__PPPort_isUPPER_L1( CV* cv __attribute__ ((unused)))
3948	{
3949	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3950	if (items != 1)
3951	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
3952	{
3953	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
3954	;
3955	bool_Bool RETVAL;
3956	#line 2052 "RealPPPort.xs"
3957	RETVAL = isUPPER_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (4)))) ? (_Bool )1 : (_Bool)0);
3958	#line 3959 "RealPPPort.c"
3959	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
3960	}
3961	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3962	}
3963
3964
3965	XS_EUPXS(XS_Devel__PPPort_isLOWER)static void XS_Devel__PPPort_isLOWER( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
3966	XS_EUPXS(XS_Devel__PPPort_isLOWER)static void XS_Devel__PPPort_isLOWER( CV* cv __attribute__((unused )))
3967	{
3968	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3969	if (items != 1)
3970	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
3971	{
3972	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
3973	;
3974	bool_Bool RETVAL;
3975	#line 2060 "RealPPPort.xs"
3976	RETVAL = isLOWER(ord)( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord)))) - ((('a')) \| 0))) <= (((U64) (((('z') - ('a'))) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32) (ord)))) - ((('a')) \| 0))) <= (((U64) (((('z') - ('a'))) \| 0))))) : ( ( (((U64) (((((U64) (ord)))) - ((('a')) \| 0))) <= (((U64) (((('z') - ('a'))) \| 0))))))));
3977	#line 3978 "RealPPPort.c"
3978	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
3979	}
3980	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
3981	}
3982
3983
3984	XS_EUPXS(XS_Devel__PPPort_isLOWER_A)static void XS_Devel__PPPort_isLOWER_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
3985	XS_EUPXS(XS_Devel__PPPort_isLOWER_A)static void XS_Devel__PPPort_isLOWER_A( CV* cv __attribute__( (unused)))
3986	{
3987	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
3988	if (items != 1)
3989	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
3990	{
3991	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
3992	;
3993	bool_Bool RETVAL;
3994	#line 2068 "RealPPPort.xs"
3995	RETVAL = isLOWER_A(ord)( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord)))) - ((('a')) \| 0))) <= (((U64) (((('z') - ('a'))) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32) (ord)))) - ((('a')) \| 0))) <= (((U64) (((('z') - ('a'))) \| 0))))) : ( ( (((U64) (((((U64) (ord)))) - ((('a')) \| 0))) <= (((U64) (((('z') - ('a'))) \| 0))))))));
3996	#line 3997 "RealPPPort.c"
3997	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
3998	}
3999	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4000	}
4001
4002
4003	XS_EUPXS(XS_Devel__PPPort_isLOWER_L1)static void XS_Devel__PPPort_isLOWER_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4004	XS_EUPXS(XS_Devel__PPPort_isLOWER_L1)static void XS_Devel__PPPort_isLOWER_L1( CV* cv __attribute__ ((unused)))
4005	{
4006	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4007	if (items != 1)
4008	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4009	{
4010	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4011	;
4012	bool_Bool RETVAL;
4013	#line 2076 "RealPPPort.xs"
4014	RETVAL = isLOWER_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (3)))) ? (_Bool )1 : (_Bool)0);
4015	#line 4016 "RealPPPort.c"
4016	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4017	}
4018	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4019	}
4020
4021
4022	XS_EUPXS(XS_Devel__PPPort_isALPHA)static void XS_Devel__PPPort_isALPHA( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
4023	XS_EUPXS(XS_Devel__PPPort_isALPHA)static void XS_Devel__PPPort_isALPHA( CV* cv __attribute__((unused )))
4024	{
4025	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4026	if (items != 1)
4027	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4028	{
4029	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4030	;
4031	bool_Bool RETVAL;
4032	#line 2084 "RealPPPort.xs"
4033	RETVAL = isALPHA(ord)( ( (sizeof((~('A' ^ 'a') & (ord))) == sizeof(U8)) ? ( (( (U64) (((((U8) ((~('A' ^ 'a') & (ord)))))) - ((('A')) \| 0 ))) <= (((U64) (((('Z') - ('A'))) \| 0))))) : (sizeof((~('A' ^ 'a') & (ord))) == sizeof(U32)) ? ( (((U64) (((((U32) ( (~('A' ^ 'a') & (ord)))))) - ((('A')) \| 0))) <= (((U64 ) (((('Z') - ('A'))) \| 0))))) : ( ( (((U64) (((((U64) ((~('A' ^ 'a') & (ord)))))) - ((('A')) \| 0))) <= (((U64) (((( 'Z') - ('A'))) \| 0))))))));
4034	#line 4035 "RealPPPort.c"
4035	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4036	}
4037	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4038	}
4039
4040
4041	XS_EUPXS(XS_Devel__PPPort_isALPHA_A)static void XS_Devel__PPPort_isALPHA_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
4042	XS_EUPXS(XS_Devel__PPPort_isALPHA_A)static void XS_Devel__PPPort_isALPHA_A( CV* cv __attribute__( (unused)))
4043	{
4044	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4045	if (items != 1)
4046	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4047	{
4048	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4049	;
4050	bool_Bool RETVAL;
4051	#line 2092 "RealPPPort.xs"
4052	RETVAL = isALPHA_A(ord)( ( (sizeof((~('A' ^ 'a') & (ord))) == sizeof(U8)) ? ( (( (U64) (((((U8) ((~('A' ^ 'a') & (ord)))))) - ((('A')) \| 0 ))) <= (((U64) (((('Z') - ('A'))) \| 0))))) : (sizeof((~('A' ^ 'a') & (ord))) == sizeof(U32)) ? ( (((U64) (((((U32) ( (~('A' ^ 'a') & (ord)))))) - ((('A')) \| 0))) <= (((U64 ) (((('Z') - ('A'))) \| 0))))) : ( ( (((U64) (((((U64) ((~('A' ^ 'a') & (ord)))))) - ((('A')) \| 0))) <= (((U64) (((( 'Z') - ('A'))) \| 0))))))));
4053	#line 4054 "RealPPPort.c"
4054	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4055	}
4056	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4057	}
4058
4059
4060	XS_EUPXS(XS_Devel__PPPort_isALPHA_L1)static void XS_Devel__PPPort_isALPHA_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4061	XS_EUPXS(XS_Devel__PPPort_isALPHA_L1)static void XS_Devel__PPPort_isALPHA_L1( CV* cv __attribute__ ((unused)))
4062	{
4063	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4064	if (items != 1)
4065	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4066	{
4067	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4068	;
4069	bool_Bool RETVAL;
4070	#line 2100 "RealPPPort.xs"
4071	RETVAL = isALPHA_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (2)))) ? (_Bool )1 : (_Bool)0);
4072	#line 4073 "RealPPPort.c"
4073	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4074	}
4075	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4076	}
4077
4078
4079	XS_EUPXS(XS_Devel__PPPort_isWORDCHAR)static void XS_Devel__PPPort_isWORDCHAR( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4080	XS_EUPXS(XS_Devel__PPPort_isWORDCHAR)static void XS_Devel__PPPort_isWORDCHAR( CV* cv __attribute__ ((unused)))
4081	{
4082	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4083	if (items != 1)
4084	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4085	{
4086	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4087	;
4088	bool_Bool RETVAL;
4089	#line 2108 "RealPPPort.xs"
4090	RETVAL = isWORDCHAR(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (0)) \| (1U << (14)))) == ((1U << (0)) \| (1U << (14)))));
4091	#line 4092 "RealPPPort.c"
4092	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4093	}
4094	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4095	}
4096
4097
4098	XS_EUPXS(XS_Devel__PPPort_isWORDCHAR_A)static void XS_Devel__PPPort_isWORDCHAR_A( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4099	XS_EUPXS(XS_Devel__PPPort_isWORDCHAR_A)static void XS_Devel__PPPort_isWORDCHAR_A( CV* cv __attribute__ ((unused)))
4100	{
4101	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4102	if (items != 1)
4103	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4104	{
4105	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4106	;
4107	bool_Bool RETVAL;
4108	#line 2116 "RealPPPort.xs"
4109	RETVAL = isWORDCHAR_A(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (0)) \| (1U << (14)))) == ((1U << (0)) \| (1U << (14)))));
4110	#line 4111 "RealPPPort.c"
4111	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4112	}
4113	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4114	}
4115
4116
4117	XS_EUPXS(XS_Devel__PPPort_isWORDCHAR_L1)static void XS_Devel__PPPort_isWORDCHAR_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4118	XS_EUPXS(XS_Devel__PPPort_isWORDCHAR_L1)static void XS_Devel__PPPort_isWORDCHAR_L1( CV* cv __attribute__ ((unused)))
4119	{
4120	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4121	if (items != 1)
4122	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4123	{
4124	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4125	;
4126	bool_Bool RETVAL;
4127	#line 2124 "RealPPPort.xs"
4128	RETVAL = isWORDCHAR_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (0)))) ? (_Bool )1 : (_Bool)0);
4129	#line 4130 "RealPPPort.c"
4130	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4131	}
4132	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4133	}
4134
4135
4136	XS_EUPXS(XS_Devel__PPPort_isALPHANUMERIC)static void XS_Devel__PPPort_isALPHANUMERIC( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4137	XS_EUPXS(XS_Devel__PPPort_isALPHANUMERIC)static void XS_Devel__PPPort_isALPHANUMERIC( CV* cv __attribute__ ((unused)))
4138	{
4139	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4140	if (items != 1)
4141	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4142	{
4143	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4144	;
4145	bool_Bool RETVAL;
4146	#line 2132 "RealPPPort.xs"
4147	RETVAL = isALPHANUMERIC(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (7)) \| (1U << (14)))) == ((1U << (7)) \| (1U << (14)))));
4148	#line 4149 "RealPPPort.c"
4149	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4150	}
4151	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4152	}
4153
4154
4155	XS_EUPXS(XS_Devel__PPPort_isALPHANUMERIC_A)static void XS_Devel__PPPort_isALPHANUMERIC_A( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4156	XS_EUPXS(XS_Devel__PPPort_isALPHANUMERIC_A)static void XS_Devel__PPPort_isALPHANUMERIC_A( CV* cv __attribute__ ((unused)))
4157	{
4158	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4159	if (items != 1)
4160	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4161	{
4162	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4163	;
4164	bool_Bool RETVAL;
4165	#line 2140 "RealPPPort.xs"
4166	RETVAL = isALPHANUMERIC_A(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (7)) \| (1U << (14)))) == ((1U << (7)) \| (1U << (14)))));
4167	#line 4168 "RealPPPort.c"
4168	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4169	}
4170	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4171	}
4172
4173
4174	XS_EUPXS(XS_Devel__PPPort_isALNUM)static void XS_Devel__PPPort_isALNUM( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
4175	XS_EUPXS(XS_Devel__PPPort_isALNUM)static void XS_Devel__PPPort_isALNUM( CV* cv __attribute__((unused )))
4176	{
4177	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4178	if (items != 1)
4179	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4180	{
4181	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4182	;
4183	bool_Bool RETVAL;
4184	#line 2148 "RealPPPort.xs"
4185	RETVAL = isALNUM(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (0)) \| (1U << (14)))) == ((1U << (0)) \| (1U << (14)))));
4186	#line 4187 "RealPPPort.c"
4187	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4188	}
4189	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4190	}
4191
4192
4193	XS_EUPXS(XS_Devel__PPPort_isALNUM_A)static void XS_Devel__PPPort_isALNUM_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
4194	XS_EUPXS(XS_Devel__PPPort_isALNUM_A)static void XS_Devel__PPPort_isALNUM_A( CV* cv __attribute__( (unused)))
4195	{
4196	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4197	if (items != 1)
4198	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4199	{
4200	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4201	;
4202	bool_Bool RETVAL;
4203	#line 2156 "RealPPPort.xs"
4204	RETVAL = isALNUM_A(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (0)) \| (1U << (14)))) == ((1U << (0)) \| (1U << (14)))));
4205	#line 4206 "RealPPPort.c"
4206	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4207	}
4208	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4209	}
4210
4211
4212	XS_EUPXS(XS_Devel__PPPort_isDIGIT)static void XS_Devel__PPPort_isDIGIT( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
4213	XS_EUPXS(XS_Devel__PPPort_isDIGIT)static void XS_Devel__PPPort_isDIGIT( CV* cv __attribute__((unused )))
4214	{
4215	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4216	if (items != 1)
4217	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4218	{
4219	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4220	;
4221	bool_Bool RETVAL;
4222	#line 2164 "RealPPPort.xs"
4223	RETVAL = isDIGIT(ord)( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord)))) - ((('0')) \| 0))) <= (((U64) (((('9') - ('0'))) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32) (ord)))) - ((('0')) \| 0))) <= (((U64) (((('9') - ('0'))) \| 0))))) : ( ( (((U64) (((((U64) (ord)))) - ((('0')) \| 0))) <= (((U64) (((('9') - ('0'))) \| 0))))))));
4224	#line 4225 "RealPPPort.c"
4225	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4226	}
4227	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4228	}
4229
4230
4231	XS_EUPXS(XS_Devel__PPPort_isDIGIT_A)static void XS_Devel__PPPort_isDIGIT_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
4232	XS_EUPXS(XS_Devel__PPPort_isDIGIT_A)static void XS_Devel__PPPort_isDIGIT_A( CV* cv __attribute__( (unused)))
4233	{
4234	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4235	if (items != 1)
4236	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4237	{
4238	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4239	;
4240	bool_Bool RETVAL;
4241	#line 2172 "RealPPPort.xs"
4242	RETVAL = isDIGIT_A(ord)( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord)))) - ((('0')) \| 0))) <= (((U64) (((('9') - ('0'))) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32) (ord)))) - ((('0')) \| 0))) <= (((U64) (((('9') - ('0'))) \| 0))))) : ( ( (((U64) (((((U64) (ord)))) - ((('0')) \| 0))) <= (((U64) (((('9') - ('0'))) \| 0))))))));
4243	#line 4244 "RealPPPort.c"
4244	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4245	}
4246	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4247	}
4248
4249
4250	XS_EUPXS(XS_Devel__PPPort_isOCTAL)static void XS_Devel__PPPort_isOCTAL( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
4251	XS_EUPXS(XS_Devel__PPPort_isOCTAL)static void XS_Devel__PPPort_isOCTAL( CV* cv __attribute__((unused )))
4252	{
4253	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4254	if (items != 1)
4255	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4256	{
4257	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4258	;
4259	bool_Bool RETVAL;
4260	#line 2180 "RealPPPort.xs"
4261	RETVAL = isOCTAL(ord)(((U64)((ord) \| 0) & ~7) == '0');
4262	#line 4263 "RealPPPort.c"
4263	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4264	}
4265	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4266	}
4267
4268
4269	XS_EUPXS(XS_Devel__PPPort_isOCTAL_A)static void XS_Devel__PPPort_isOCTAL_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
4270	XS_EUPXS(XS_Devel__PPPort_isOCTAL_A)static void XS_Devel__PPPort_isOCTAL_A( CV* cv __attribute__( (unused)))
4271	{
4272	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4273	if (items != 1)
4274	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4275	{
4276	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4277	;
4278	bool_Bool RETVAL;
4279	#line 2188 "RealPPPort.xs"
4280	RETVAL = isOCTAL_A(ord)(((U64)((ord) \| 0) & ~7) == '0');
4281	#line 4282 "RealPPPort.c"
4282	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4283	}
4284	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4285	}
4286
4287
4288	XS_EUPXS(XS_Devel__PPPort_isIDFIRST)static void XS_Devel__PPPort_isIDFIRST( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
4289	XS_EUPXS(XS_Devel__PPPort_isIDFIRST)static void XS_Devel__PPPort_isIDFIRST( CV* cv __attribute__( (unused)))
4290	{
4291	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4292	if (items != 1)
4293	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4294	{
4295	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4296	;
4297	bool_Bool RETVAL;
4298	#line 2196 "RealPPPort.xs"
4299	RETVAL = isIDFIRST(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (16)) \| (1U << (14)))) == ((1U << (16)) \| (1U << (14)))));
4300	#line 4301 "RealPPPort.c"
4301	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4302	}
4303	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4304	}
4305
4306
4307	XS_EUPXS(XS_Devel__PPPort_isIDFIRST_A)static void XS_Devel__PPPort_isIDFIRST_A( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4308	XS_EUPXS(XS_Devel__PPPort_isIDFIRST_A)static void XS_Devel__PPPort_isIDFIRST_A( CV* cv __attribute__ ((unused)))
4309	{
4310	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4311	if (items != 1)
4312	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4313	{
4314	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4315	;
4316	bool_Bool RETVAL;
4317	#line 2204 "RealPPPort.xs"
4318	RETVAL = isIDFIRST_A(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (16)) \| (1U << (14)))) == ((1U << (16)) \| (1U << (14)))));
4319	#line 4320 "RealPPPort.c"
4320	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4321	}
4322	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4323	}
4324
4325
4326	XS_EUPXS(XS_Devel__PPPort_isIDCONT)static void XS_Devel__PPPort_isIDCONT( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
4327	XS_EUPXS(XS_Devel__PPPort_isIDCONT)static void XS_Devel__PPPort_isIDCONT( CV* cv __attribute__(( unused)))
4328	{
4329	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4330	if (items != 1)
4331	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4332	{
4333	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4334	;
4335	bool_Bool RETVAL;
4336	#line 2212 "RealPPPort.xs"
4337	RETVAL = isIDCONT(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (0)) \| (1U << (14)))) == ((1U << (0)) \| (1U << (14)))));
4338	#line 4339 "RealPPPort.c"
4339	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4340	}
4341	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4342	}
4343
4344
4345	XS_EUPXS(XS_Devel__PPPort_isIDCONT_A)static void XS_Devel__PPPort_isIDCONT_A( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4346	XS_EUPXS(XS_Devel__PPPort_isIDCONT_A)static void XS_Devel__PPPort_isIDCONT_A( CV* cv __attribute__ ((unused)))
4347	{
4348	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4349	if (items != 1)
4350	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4351	{
4352	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4353	;
4354	bool_Bool RETVAL;
4355	#line 2220 "RealPPPort.xs"
4356	RETVAL = isIDCONT_A(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (0)) \| (1U << (14)))) == ((1U << (0)) \| (1U << (14)))));
4357	#line 4358 "RealPPPort.c"
4358	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4359	}
4360	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4361	}
4362
4363
4364	XS_EUPXS(XS_Devel__PPPort_isSPACE)static void XS_Devel__PPPort_isSPACE( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
4365	XS_EUPXS(XS_Devel__PPPort_isSPACE)static void XS_Devel__PPPort_isSPACE( CV* cv __attribute__((unused )))
4366	{
4367	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4368	if (items != 1)
4369	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4370	{
4371	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4372	;
4373	bool_Bool RETVAL;
4374	#line 2228 "RealPPPort.xs"
4375	RETVAL = isSPACE(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (10)) \| (1U << (14)))) == ((1U << (10)) \| (1U << (14)))));
4376	#line 4377 "RealPPPort.c"
4377	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4378	}
4379	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4380	}
4381
4382
4383	XS_EUPXS(XS_Devel__PPPort_isSPACE_A)static void XS_Devel__PPPort_isSPACE_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
4384	XS_EUPXS(XS_Devel__PPPort_isSPACE_A)static void XS_Devel__PPPort_isSPACE_A( CV* cv __attribute__( (unused)))
4385	{
4386	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4387	if (items != 1)
4388	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4389	{
4390	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4391	;
4392	bool_Bool RETVAL;
4393	#line 2236 "RealPPPort.xs"
4394	RETVAL = isSPACE_A(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (10)) \| (1U << (14)))) == ((1U << (10)) \| (1U << (14)))));
4395	#line 4396 "RealPPPort.c"
4396	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4397	}
4398	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4399	}
4400
4401
4402	XS_EUPXS(XS_Devel__PPPort_isASCII)static void XS_Devel__PPPort_isASCII( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
4403	XS_EUPXS(XS_Devel__PPPort_isASCII)static void XS_Devel__PPPort_isASCII( CV* cv __attribute__((unused )))
4404	{
4405	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4406	if (items != 1)
4407	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4408	{
4409	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4410	;
4411	bool_Bool RETVAL;
4412	#line 2244 "RealPPPort.xs"
4413	RETVAL = isASCII(ord)((U64)((ord) \| 0) < 128);
4414	#line 4415 "RealPPPort.c"
4415	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4416	}
4417	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4418	}
4419
4420
4421	XS_EUPXS(XS_Devel__PPPort_isASCII_A)static void XS_Devel__PPPort_isASCII_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
4422	XS_EUPXS(XS_Devel__PPPort_isASCII_A)static void XS_Devel__PPPort_isASCII_A( CV* cv __attribute__( (unused)))
4423	{
4424	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4425	if (items != 1)
4426	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4427	{
4428	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4429	;
4430	bool_Bool RETVAL;
4431	#line 2252 "RealPPPort.xs"
4432	RETVAL = isASCII_A(ord)((U64)((ord) \| 0) < 128);
4433	#line 4434 "RealPPPort.c"
4434	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4435	}
4436	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4437	}
4438
4439
4440	XS_EUPXS(XS_Devel__PPPort_isCNTRL)static void XS_Devel__PPPort_isCNTRL( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
4441	XS_EUPXS(XS_Devel__PPPort_isCNTRL)static void XS_Devel__PPPort_isCNTRL( CV* cv __attribute__((unused )))
4442	{
4443	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4444	if (items != 1)
4445	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4446	{
4447	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4448	;
4449	bool_Bool RETVAL;
4450	#line 2260 "RealPPPort.xs"
4451	RETVAL = isCNTRL(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (13)) \| (1U << (14)))) == ((1U << (13)) \| (1U << (14)))));
4452	#line 4453 "RealPPPort.c"
4453	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4454	}
4455	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4456	}
4457
4458
4459	XS_EUPXS(XS_Devel__PPPort_isCNTRL_A)static void XS_Devel__PPPort_isCNTRL_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
4460	XS_EUPXS(XS_Devel__PPPort_isCNTRL_A)static void XS_Devel__PPPort_isCNTRL_A( CV* cv __attribute__( (unused)))
4461	{
4462	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4463	if (items != 1)
4464	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4465	{
4466	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4467	;
4468	bool_Bool RETVAL;
4469	#line 2268 "RealPPPort.xs"
4470	RETVAL = isCNTRL_A(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (13)) \| (1U << (14)))) == ((1U << (13)) \| (1U << (14)))));
4471	#line 4472 "RealPPPort.c"
4472	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4473	}
4474	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4475	}
4476
4477
4478	XS_EUPXS(XS_Devel__PPPort_isPRINT)static void XS_Devel__PPPort_isPRINT( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
4479	XS_EUPXS(XS_Devel__PPPort_isPRINT)static void XS_Devel__PPPort_isPRINT( CV* cv __attribute__((unused )))
4480	{
4481	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4482	if (items != 1)
4483	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4484	{
4485	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4486	;
4487	bool_Bool RETVAL;
4488	#line 2276 "RealPPPort.xs"
4489	RETVAL = isPRINT(ord)( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord)))) - (((' ')) \| 0))) <= (((U64) ((((0x7e) - (' '))) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32) (ord))) ) - (((' ')) \| 0))) <= (((U64) ((((0x7e) - (' '))) \| 0)))) ) : ( ( (((U64) (((((U64) (ord)))) - (((' ')) \| 0))) <= (( (U64) ((((0x7e) - (' '))) \| 0))))))));
4490	#line 4491 "RealPPPort.c"
4491	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4492	}
4493	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4494	}
4495
4496
4497	XS_EUPXS(XS_Devel__PPPort_isPRINT_A)static void XS_Devel__PPPort_isPRINT_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
4498	XS_EUPXS(XS_Devel__PPPort_isPRINT_A)static void XS_Devel__PPPort_isPRINT_A( CV* cv __attribute__( (unused)))
4499	{
4500	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4501	if (items != 1)
4502	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4503	{
4504	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4505	;
4506	bool_Bool RETVAL;
4507	#line 2284 "RealPPPort.xs"
4508	RETVAL = isPRINT_A(ord)( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord)))) - (((' ')) \| 0))) <= (((U64) ((((0x7e) - (' '))) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32) (ord))) ) - (((' ')) \| 0))) <= (((U64) ((((0x7e) - (' '))) \| 0)))) ) : ( ( (((U64) (((((U64) (ord)))) - (((' ')) \| 0))) <= (( (U64) ((((0x7e) - (' '))) \| 0))))))));
4509	#line 4510 "RealPPPort.c"
4510	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4511	}
4512	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4513	}
4514
4515
4516	XS_EUPXS(XS_Devel__PPPort_isGRAPH)static void XS_Devel__PPPort_isGRAPH( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
4517	XS_EUPXS(XS_Devel__PPPort_isGRAPH)static void XS_Devel__PPPort_isGRAPH( CV* cv __attribute__((unused )))
4518	{
4519	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4520	if (items != 1)
4521	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4522	{
4523	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4524	;
4525	bool_Bool RETVAL;
4526	#line 2292 "RealPPPort.xs"
4527	RETVAL = isGRAPH(ord)( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord)))) - (((' ' + 1)) \| 0))) <= (((U64) ((((0x7e) - (' ' + 1))) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32) ( ord)))) - (((' ' + 1)) \| 0))) <= (((U64) ((((0x7e) - (' ' + 1))) \| 0))))) : ( ( (((U64) (((((U64) (ord)))) - (((' ' + 1) ) \| 0))) <= (((U64) ((((0x7e) - (' ' + 1))) \| 0))))))));
4528	#line 4529 "RealPPPort.c"
4529	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4530	}
4531	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4532	}
4533
4534
4535	XS_EUPXS(XS_Devel__PPPort_isGRAPH_A)static void XS_Devel__PPPort_isGRAPH_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
4536	XS_EUPXS(XS_Devel__PPPort_isGRAPH_A)static void XS_Devel__PPPort_isGRAPH_A( CV* cv __attribute__( (unused)))
4537	{
4538	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4539	if (items != 1)
4540	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4541	{
4542	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4543	;
4544	bool_Bool RETVAL;
4545	#line 2300 "RealPPPort.xs"
4546	RETVAL = isGRAPH_A(ord)( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord)))) - (((' ' + 1)) \| 0))) <= (((U64) ((((0x7e) - (' ' + 1))) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32) ( ord)))) - (((' ' + 1)) \| 0))) <= (((U64) ((((0x7e) - (' ' + 1))) \| 0))))) : ( ( (((U64) (((((U64) (ord)))) - (((' ' + 1) ) \| 0))) <= (((U64) ((((0x7e) - (' ' + 1))) \| 0))))))));
4547	#line 4548 "RealPPPort.c"
4548	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4549	}
4550	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4551	}
4552
4553
4554	XS_EUPXS(XS_Devel__PPPort_isPUNCT)static void XS_Devel__PPPort_isPUNCT( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
4555	XS_EUPXS(XS_Devel__PPPort_isPUNCT)static void XS_Devel__PPPort_isPUNCT( CV* cv __attribute__((unused )))
4556	{
4557	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4558	if (items != 1)
4559	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4560	{
4561	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4562	;
4563	bool_Bool RETVAL;
4564	#line 2308 "RealPPPort.xs"
4565	RETVAL = isPUNCT(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (5)) \| (1U << (14)))) == ((1U << (5)) \| (1U << (14)))));
4566	#line 4567 "RealPPPort.c"
4567	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4568	}
4569	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4570	}
4571
4572
4573	XS_EUPXS(XS_Devel__PPPort_isPUNCT_A)static void XS_Devel__PPPort_isPUNCT_A( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
4574	XS_EUPXS(XS_Devel__PPPort_isPUNCT_A)static void XS_Devel__PPPort_isPUNCT_A( CV* cv __attribute__( (unused)))
4575	{
4576	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4577	if (items != 1)
4578	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4579	{
4580	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4581	;
4582	bool_Bool RETVAL;
4583	#line 2316 "RealPPPort.xs"
4584	RETVAL = isPUNCT_A(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (5)) \| (1U << (14)))) == ((1U << (5)) \| (1U << (14)))));
4585	#line 4586 "RealPPPort.c"
4586	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4587	}
4588	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4589	}
4590
4591
4592	XS_EUPXS(XS_Devel__PPPort_isXDIGIT)static void XS_Devel__PPPort_isXDIGIT( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
4593	XS_EUPXS(XS_Devel__PPPort_isXDIGIT)static void XS_Devel__PPPort_isXDIGIT( CV* cv __attribute__(( unused)))
4594	{
4595	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4596	if (items != 1)
4597	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4598	{
4599	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4600	;
4601	bool_Bool RETVAL;
4602	#line 2324 "RealPPPort.xs"
4603	RETVAL = isXDIGIT(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (12)))) ? (_Bool )1 : (_Bool)0);
4604	#line 4605 "RealPPPort.c"
4605	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4606	}
4607	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4608	}
4609
4610
4611	XS_EUPXS(XS_Devel__PPPort_isXDIGIT_A)static void XS_Devel__PPPort_isXDIGIT_A( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4612	XS_EUPXS(XS_Devel__PPPort_isXDIGIT_A)static void XS_Devel__PPPort_isXDIGIT_A( CV* cv __attribute__ ((unused)))
4613	{
4614	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4615	if (items != 1)
4616	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4617	{
4618	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4619	;
4620	bool_Bool RETVAL;
4621	#line 2332 "RealPPPort.xs"
4622	RETVAL = isXDIGIT_A(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (12)))) ? (_Bool )1 : (_Bool)0);
4623	#line 4624 "RealPPPort.c"
4624	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4625	}
4626	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4627	}
4628
4629
4630	XS_EUPXS(XS_Devel__PPPort_isPSXSPC)static void XS_Devel__PPPort_isPSXSPC( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
4631	XS_EUPXS(XS_Devel__PPPort_isPSXSPC)static void XS_Devel__PPPort_isPSXSPC( CV* cv __attribute__(( unused)))
4632	{
4633	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4634	if (items != 1)
4635	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4636	{
4637	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4638	;
4639	bool_Bool RETVAL;
4640	#line 2340 "RealPPPort.xs"
4641	RETVAL = isPSXSPC(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (10)) \| (1U << (14)))) == ((1U << (10)) \| (1U << (14)))));
4642	#line 4643 "RealPPPort.c"
4643	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4644	}
4645	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4646	}
4647
4648
4649	XS_EUPXS(XS_Devel__PPPort_isPSXSPC_A)static void XS_Devel__PPPort_isPSXSPC_A( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4650	XS_EUPXS(XS_Devel__PPPort_isPSXSPC_A)static void XS_Devel__PPPort_isPSXSPC_A( CV* cv __attribute__ ((unused)))
4651	{
4652	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4653	if (items != 1)
4654	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4655	{
4656	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4657	;
4658	bool_Bool RETVAL;
4659	#line 2348 "RealPPPort.xs"
4660	RETVAL = isPSXSPC_A(ord)(( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && ((PL_charclass[(U8) (ord)] & ((1U << (10)) \| (1U << (14)))) == ((1U << (10)) \| (1U << (14)))));
4661	#line 4662 "RealPPPort.c"
4662	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4663	}
4664	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4665	}
4666
4667
4668	XS_EUPXS(XS_Devel__PPPort_isALPHANUMERIC_L1)static void XS_Devel__PPPort_isALPHANUMERIC_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4669	XS_EUPXS(XS_Devel__PPPort_isALPHANUMERIC_L1)static void XS_Devel__PPPort_isALPHANUMERIC_L1( CV* cv __attribute__ ((unused)))
4670	{
4671	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4672	if (items != 1)
4673	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4674	{
4675	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4676	;
4677	bool_Bool RETVAL;
4678	#line 2356 "RealPPPort.xs"
4679	RETVAL = isALPHANUMERIC_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (7)))) ? (_Bool )1 : (_Bool)0);
4680	#line 4681 "RealPPPort.c"
4681	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4682	}
4683	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4684	}
4685
4686
4687	XS_EUPXS(XS_Devel__PPPort_isALNUMC_L1)static void XS_Devel__PPPort_isALNUMC_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4688	XS_EUPXS(XS_Devel__PPPort_isALNUMC_L1)static void XS_Devel__PPPort_isALNUMC_L1( CV* cv __attribute__ ((unused)))
4689	{
4690	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4691	if (items != 1)
4692	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4693	{
4694	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4695	;
4696	bool_Bool RETVAL;
4697	#line 2364 "RealPPPort.xs"
4698	RETVAL = isALNUMC_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (7)))) ? (_Bool )1 : (_Bool)0);
4699	#line 4700 "RealPPPort.c"
4700	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4701	}
4702	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4703	}
4704
4705
4706	XS_EUPXS(XS_Devel__PPPort_isDIGIT_L1)static void XS_Devel__PPPort_isDIGIT_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4707	XS_EUPXS(XS_Devel__PPPort_isDIGIT_L1)static void XS_Devel__PPPort_isDIGIT_L1( CV* cv __attribute__ ((unused)))
4708	{
4709	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4710	if (items != 1)
4711	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4712	{
4713	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4714	;
4715	bool_Bool RETVAL;
4716	#line 2372 "RealPPPort.xs"
4717	RETVAL = isDIGIT_L1(ord)( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord)))) - ((('0')) \| 0))) <= (((U64) (((('9') - ('0'))) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32) (ord)))) - ((('0')) \| 0))) <= (((U64) (((('9') - ('0'))) \| 0))))) : ( ( (((U64) (((((U64) (ord)))) - ((('0')) \| 0))) <= (((U64) (((('9') - ('0'))) \| 0))))))));
4718	#line 4719 "RealPPPort.c"
4719	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4720	}
4721	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4722	}
4723
4724
4725	XS_EUPXS(XS_Devel__PPPort_isOCTAL_L1)static void XS_Devel__PPPort_isOCTAL_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4726	XS_EUPXS(XS_Devel__PPPort_isOCTAL_L1)static void XS_Devel__PPPort_isOCTAL_L1( CV* cv __attribute__ ((unused)))
4727	{
4728	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4729	if (items != 1)
4730	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4731	{
4732	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4733	;
4734	bool_Bool RETVAL;
4735	#line 2380 "RealPPPort.xs"
4736	RETVAL = isOCTAL_L1(ord)(((U64)((ord) \| 0) & ~7) == '0');
4737	#line 4738 "RealPPPort.c"
4738	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4739	}
4740	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4741	}
4742
4743
4744	XS_EUPXS(XS_Devel__PPPort_isIDFIRST_L1)static void XS_Devel__PPPort_isIDFIRST_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4745	XS_EUPXS(XS_Devel__PPPort_isIDFIRST_L1)static void XS_Devel__PPPort_isIDFIRST_L1( CV* cv __attribute__ ((unused)))
4746	{
4747	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4748	if (items != 1)
4749	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4750	{
4751	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4752	;
4753	bool_Bool RETVAL;
4754	#line 2388 "RealPPPort.xs"
4755	RETVAL = isIDFIRST_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (16)))) ? (_Bool )1 : (_Bool)0);
4756	#line 4757 "RealPPPort.c"
4757	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4758	}
4759	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4760	}
4761
4762
4763	XS_EUPXS(XS_Devel__PPPort_isIDCONT_L1)static void XS_Devel__PPPort_isIDCONT_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4764	XS_EUPXS(XS_Devel__PPPort_isIDCONT_L1)static void XS_Devel__PPPort_isIDCONT_L1( CV* cv __attribute__ ((unused)))
4765	{
4766	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4767	if (items != 1)
4768	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4769	{
4770	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4771	;
4772	bool_Bool RETVAL;
4773	#line 2396 "RealPPPort.xs"
4774	RETVAL = isIDCONT_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (0)))) ? (_Bool )1 : (_Bool)0);
4775	#line 4776 "RealPPPort.c"
4776	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4777	}
4778	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4779	}
4780
4781
4782	XS_EUPXS(XS_Devel__PPPort_isSPACE_L1)static void XS_Devel__PPPort_isSPACE_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4783	XS_EUPXS(XS_Devel__PPPort_isSPACE_L1)static void XS_Devel__PPPort_isSPACE_L1( CV* cv __attribute__ ((unused)))
4784	{
4785	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4786	if (items != 1)
4787	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4788	{
4789	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4790	;
4791	bool_Bool RETVAL;
4792	#line 2404 "RealPPPort.xs"
4793	RETVAL = isSPACE_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (10)))) ? (_Bool )1 : (_Bool)0);
4794	#line 4795 "RealPPPort.c"
4795	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4796	}
4797	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4798	}
4799
4800
4801	XS_EUPXS(XS_Devel__PPPort_isASCII_L1)static void XS_Devel__PPPort_isASCII_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4802	XS_EUPXS(XS_Devel__PPPort_isASCII_L1)static void XS_Devel__PPPort_isASCII_L1( CV* cv __attribute__ ((unused)))
4803	{
4804	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4805	if (items != 1)
4806	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4807	{
4808	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4809	;
4810	bool_Bool RETVAL;
4811	#line 2412 "RealPPPort.xs"
4812	RETVAL = isASCII_L1(ord)((U64)((ord) \| 0) < 128);
4813	#line 4814 "RealPPPort.c"
4814	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4815	}
4816	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4817	}
4818
4819
4820	XS_EUPXS(XS_Devel__PPPort_isCNTRL_L1)static void XS_Devel__PPPort_isCNTRL_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4821	XS_EUPXS(XS_Devel__PPPort_isCNTRL_L1)static void XS_Devel__PPPort_isCNTRL_L1( CV* cv __attribute__ ((unused)))
4822	{
4823	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4824	if (items != 1)
4825	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4826	{
4827	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4828	;
4829	bool_Bool RETVAL;
4830	#line 2420 "RealPPPort.xs"
4831	RETVAL = isCNTRL_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (13)))) ? (_Bool )1 : (_Bool)0);
4832	#line 4833 "RealPPPort.c"
4833	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4834	}
4835	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4836	}
4837
4838
4839	XS_EUPXS(XS_Devel__PPPort_isPRINT_L1)static void XS_Devel__PPPort_isPRINT_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4840	XS_EUPXS(XS_Devel__PPPort_isPRINT_L1)static void XS_Devel__PPPort_isPRINT_L1( CV* cv __attribute__ ((unused)))
4841	{
4842	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4843	if (items != 1)
4844	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4845	{
4846	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4847	;
4848	bool_Bool RETVAL;
4849	#line 2428 "RealPPPort.xs"
4850	RETVAL = isPRINT_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (6)))) ? (_Bool )1 : (_Bool)0);
4851	#line 4852 "RealPPPort.c"
4852	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4853	}
4854	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4855	}
4856
4857
4858	XS_EUPXS(XS_Devel__PPPort_isGRAPH_L1)static void XS_Devel__PPPort_isGRAPH_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4859	XS_EUPXS(XS_Devel__PPPort_isGRAPH_L1)static void XS_Devel__PPPort_isGRAPH_L1( CV* cv __attribute__ ((unused)))
4860	{
4861	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4862	if (items != 1)
4863	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4864	{
4865	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4866	;
4867	bool_Bool RETVAL;
4868	#line 2436 "RealPPPort.xs"
4869	RETVAL = isGRAPH_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (8)))) ? (_Bool )1 : (_Bool)0);
4870	#line 4871 "RealPPPort.c"
4871	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4872	}
4873	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4874	}
4875
4876
4877	XS_EUPXS(XS_Devel__PPPort_isPUNCT_L1)static void XS_Devel__PPPort_isPUNCT_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4878	XS_EUPXS(XS_Devel__PPPort_isPUNCT_L1)static void XS_Devel__PPPort_isPUNCT_L1( CV* cv __attribute__ ((unused)))
4879	{
4880	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4881	if (items != 1)
4882	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4883	{
4884	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4885	;
4886	bool_Bool RETVAL;
4887	#line 2444 "RealPPPort.xs"
4888	RETVAL = isPUNCT_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (5)))) ? (_Bool )1 : (_Bool)0);
4889	#line 4890 "RealPPPort.c"
4890	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4891	}
4892	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4893	}
4894
4895
4896	XS_EUPXS(XS_Devel__PPPort_isXDIGIT_L1)static void XS_Devel__PPPort_isXDIGIT_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4897	XS_EUPXS(XS_Devel__PPPort_isXDIGIT_L1)static void XS_Devel__PPPort_isXDIGIT_L1( CV* cv __attribute__ ((unused)))
4898	{
4899	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4900	if (items != 1)
4901	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4902	{
4903	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4904	;
4905	bool_Bool RETVAL;
4906	#line 2452 "RealPPPort.xs"
4907	RETVAL = isXDIGIT_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (12)))) ? (_Bool )1 : (_Bool)0);
4908	#line 4909 "RealPPPort.c"
4909	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4910	}
4911	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4912	}
4913
4914
4915	XS_EUPXS(XS_Devel__PPPort_isPSXSPC_L1)static void XS_Devel__PPPort_isPSXSPC_L1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4916	XS_EUPXS(XS_Devel__PPPort_isPSXSPC_L1)static void XS_Devel__PPPort_isPSXSPC_L1( CV* cv __attribute__ ((unused)))
4917	{
4918	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4919	if (items != 1)
4920	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4921	{
4922	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4923	;
4924	bool_Bool RETVAL;
4925	#line 2460 "RealPPPort.xs"
4926	RETVAL = isPSXSPC_L1(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (10)))) ? (_Bool )1 : (_Bool)0);
4927	#line 4928 "RealPPPort.c"
4928	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4929	}
4930	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4931	}
4932
4933
4934	XS_EUPXS(XS_Devel__PPPort_isASCII_uvchr)static void XS_Devel__PPPort_isASCII_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4935	XS_EUPXS(XS_Devel__PPPort_isASCII_uvchr)static void XS_Devel__PPPort_isASCII_uvchr( CV* cv __attribute__ ((unused)))
4936	{
4937	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4938	if (items != 1)
4939	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4940	{
4941	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4942	;
4943	bool_Bool RETVAL;
4944	#line 2468 "RealPPPort.xs"
4945	RETVAL = isASCII_uvchr(ord)((U64)((ord) \| 0) < 128);
4946	#line 4947 "RealPPPort.c"
4947	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4948	}
4949	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4950	}
4951
4952
4953	XS_EUPXS(XS_Devel__PPPort_isASCII_utf8_safe)static void XS_Devel__PPPort_isASCII_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4954	XS_EUPXS(XS_Devel__PPPort_isASCII_utf8_safe)static void XS_Devel__PPPort_isASCII_utf8_safe( CV* cv __attribute__ ((unused)))
4955	{
4956	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4957	if (items != 2)
4958	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
4959	{
4960	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
4961	;
4962	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
4963	;
4964	bool_Bool RETVAL;
4965	#line 2477 "RealPPPort.xs"
4966	PERL_UNUSED_ARG(offset)((void)sizeof(offset));
4967	RETVAL = isASCII_utf8_safe(s, s + 1 + offset)( ((U64)((*(s)) \| 0) < 128));
4968	#line 4969 "RealPPPort.c"
4969	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4970	}
4971	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4972	}
4973
4974	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5006000)
4975	#define XSubPPtmpAAAK1 1
4976
4977
4978	XS_EUPXS(XS_Devel__PPPort_isBLANK_uvchr)static void XS_Devel__PPPort_isBLANK_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4979	XS_EUPXS(XS_Devel__PPPort_isBLANK_uvchr)static void XS_Devel__PPPort_isBLANK_uvchr( CV* cv __attribute__ ((unused)))
4980	{
4981	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
4982	if (items != 1)
4983	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
4984	{
4985	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
4986	;
4987	bool_Bool RETVAL;
4988	#line 2488 "RealPPPort.xs"
4989	RETVAL = isBLANK_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (11)))) ? (_Bool)1 : (_Bool)0) : ( 0x1680 == ord \|\| ( 0x1680 < ord && ( ( ( (sizeof(ord) == sizeof(U8 )) ? ( (((U64) (((((U8) (ord)))) - (((0x2000)) \| 0))) <= ( ((U64) ((((0x200A) - (0x2000))) \| 0))))) : (sizeof(ord) == sizeof (U32)) ? ( (((U64) (((((U32) (ord)))) - (((0x2000)) \| 0))) <= (((U64) ((((0x200A) - (0x2000))) \| 0))))) : ( ( (((U64) (((( (U64) (ord)))) - (((0x2000)) \| 0))) <= (((U64) ((((0x200A) - (0x2000))) \| 0)))))))) \|\| ( 0x200A < ord && ( 0x202F == ord \|\| ( 0x202F < ord && ( 0x205F == ord \|\| 0x3000 == ord ) ) ) ) ) ) ));
4990	#line 4991 "RealPPPort.c"
4991	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
4992	}
4993	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
4994	}
4995
4996
4997	XS_EUPXS(XS_Devel__PPPort_isALPHA_uvchr)static void XS_Devel__PPPort_isALPHA_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
4998	XS_EUPXS(XS_Devel__PPPort_isALPHA_uvchr)static void XS_Devel__PPPort_isALPHA_uvchr( CV* cv __attribute__ ((unused)))
4999	{
5000	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5001	if (items != 1)
5002	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5003	{
5004	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5005	;
5006	bool_Bool RETVAL;
5007	#line 2496 "RealPPPort.xs"
5008	RETVAL = isALPHA_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (2)))) ? (_Bool)1 : (_Bool)0) : Perl__is_uni_FOO( 2,ord));
5009	#line 5010 "RealPPPort.c"
5010	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5011	}
5012	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5013	}
5014
5015
5016	XS_EUPXS(XS_Devel__PPPort_isALPHANUMERIC_uvchr)static void XS_Devel__PPPort_isALPHANUMERIC_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5017	XS_EUPXS(XS_Devel__PPPort_isALPHANUMERIC_uvchr)static void XS_Devel__PPPort_isALPHANUMERIC_uvchr( CV* cv __attribute__ ((unused)))
5018	{
5019	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5020	if (items != 1)
5021	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5022	{
5023	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5024	;
5025	bool_Bool RETVAL;
5026	#line 2504 "RealPPPort.xs"
5027	RETVAL = isALPHANUMERIC_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (7)))) ? (_Bool)1 : (_Bool)0) : Perl__is_uni_FOO( 7,ord));
5028	#line 5029 "RealPPPort.c"
5029	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5030	}
5031	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5032	}
5033
5034
5035	XS_EUPXS(XS_Devel__PPPort_isCNTRL_uvchr)static void XS_Devel__PPPort_isCNTRL_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5036	XS_EUPXS(XS_Devel__PPPort_isCNTRL_uvchr)static void XS_Devel__PPPort_isCNTRL_uvchr( CV* cv __attribute__ ((unused)))
5037	{
5038	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5039	if (items != 1)
5040	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5041	{
5042	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5043	;
5044	bool_Bool RETVAL;
5045	#line 2512 "RealPPPort.xs"
5046	RETVAL = isCNTRL_uvchr(ord)((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (ord)] & (1U << (13)))) ? (_Bool )1 : (_Bool)0);
5047	#line 5048 "RealPPPort.c"
5048	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5049	}
5050	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5051	}
5052
5053
5054	XS_EUPXS(XS_Devel__PPPort_isDIGIT_uvchr)static void XS_Devel__PPPort_isDIGIT_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5055	XS_EUPXS(XS_Devel__PPPort_isDIGIT_uvchr)static void XS_Devel__PPPort_isDIGIT_uvchr( CV* cv __attribute__ ((unused)))
5056	{
5057	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5058	if (items != 1)
5059	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5060	{
5061	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5062	;
5063	bool_Bool RETVAL;
5064	#line 2520 "RealPPPort.xs"
5065	RETVAL = isDIGIT_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (1)))) ? (_Bool)1 : (_Bool)0) : Perl__is_uni_FOO( 1,ord));
5066	#line 5067 "RealPPPort.c"
5067	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5068	}
5069	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5070	}
5071
5072
5073	XS_EUPXS(XS_Devel__PPPort_isIDFIRST_uvchr)static void XS_Devel__PPPort_isIDFIRST_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5074	XS_EUPXS(XS_Devel__PPPort_isIDFIRST_uvchr)static void XS_Devel__PPPort_isIDFIRST_uvchr( CV* cv __attribute__ ((unused)))
5075	{
5076	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5077	if (items != 1)
5078	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5079	{
5080	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5081	;
5082	bool_Bool RETVAL;
5083	#line 2528 "RealPPPort.xs"
5084	RETVAL = isIDFIRST_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (16)))) ? (_Bool)1 : (_Bool)0) : Perl__is_uni_perl_idstart ( ord));
5085	#line 5086 "RealPPPort.c"
5086	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5087	}
5088	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5089	}
5090
5091
5092	XS_EUPXS(XS_Devel__PPPort_isIDCONT_uvchr)static void XS_Devel__PPPort_isIDCONT_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5093	XS_EUPXS(XS_Devel__PPPort_isIDCONT_uvchr)static void XS_Devel__PPPort_isIDCONT_uvchr( CV* cv __attribute__ ((unused)))
5094	{
5095	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5096	if (items != 1)
5097	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5098	{
5099	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5100	;
5101	bool_Bool RETVAL;
5102	#line 2536 "RealPPPort.xs"
5103	RETVAL = isIDCONT_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (0)))) ? (_Bool)1 : (_Bool)0) : Perl__is_uni_perl_idcont ( ord));
5104	#line 5105 "RealPPPort.c"
5105	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5106	}
5107	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5108	}
5109
5110
5111	XS_EUPXS(XS_Devel__PPPort_isGRAPH_uvchr)static void XS_Devel__PPPort_isGRAPH_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5112	XS_EUPXS(XS_Devel__PPPort_isGRAPH_uvchr)static void XS_Devel__PPPort_isGRAPH_uvchr( CV* cv __attribute__ ((unused)))
5113	{
5114	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5115	if (items != 1)
5116	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5117	{
5118	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5119	;
5120	bool_Bool RETVAL;
5121	#line 2544 "RealPPPort.xs"
5122	RETVAL = isGRAPH_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (8)))) ? (_Bool)1 : (_Bool)0) : Perl__is_uni_FOO( 8,ord));
5123	#line 5124 "RealPPPort.c"
5124	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5125	}
5126	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5127	}
5128
5129
5130	XS_EUPXS(XS_Devel__PPPort_isLOWER_uvchr)static void XS_Devel__PPPort_isLOWER_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5131	XS_EUPXS(XS_Devel__PPPort_isLOWER_uvchr)static void XS_Devel__PPPort_isLOWER_uvchr( CV* cv __attribute__ ((unused)))
5132	{
5133	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5134	if (items != 1)
5135	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5136	{
5137	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5138	;
5139	bool_Bool RETVAL;
5140	#line 2552 "RealPPPort.xs"
5141	RETVAL = isLOWER_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (3)))) ? (_Bool)1 : (_Bool)0) : Perl__is_uni_FOO( 3,ord));
5142	#line 5143 "RealPPPort.c"
5143	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5144	}
5145	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5146	}
5147
5148
5149	XS_EUPXS(XS_Devel__PPPort_isPRINT_uvchr)static void XS_Devel__PPPort_isPRINT_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5150	XS_EUPXS(XS_Devel__PPPort_isPRINT_uvchr)static void XS_Devel__PPPort_isPRINT_uvchr( CV* cv __attribute__ ((unused)))
5151	{
5152	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5153	if (items != 1)
5154	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5155	{
5156	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5157	;
5158	bool_Bool RETVAL;
5159	#line 2560 "RealPPPort.xs"
5160	RETVAL = isPRINT_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (6)))) ? (_Bool)1 : (_Bool)0) : Perl__is_uni_FOO( 6,ord));
5161	#line 5162 "RealPPPort.c"
5162	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5163	}
5164	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5165	}
5166
5167
5168	XS_EUPXS(XS_Devel__PPPort_isPSXSPC_uvchr)static void XS_Devel__PPPort_isPSXSPC_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5169	XS_EUPXS(XS_Devel__PPPort_isPSXSPC_uvchr)static void XS_Devel__PPPort_isPSXSPC_uvchr( CV* cv __attribute__ ((unused)))
5170	{
5171	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5172	if (items != 1)
5173	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5174	{
5175	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5176	;
5177	bool_Bool RETVAL;
5178	#line 2568 "RealPPPort.xs"
5179	RETVAL = isPSXSPC_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (10)))) ? (_Bool)1 : (_Bool)0) : ( 0x1680 == ord \|\| ( 0x1680 < ord && ( ( ( (sizeof(ord) == sizeof(U8 )) ? ( (((U64) (((((U8) (ord)))) - (((0x2000)) \| 0))) <= ( ((U64) ((((0x200A) - (0x2000))) \| 0))))) : (sizeof(ord) == sizeof (U32)) ? ( (((U64) (((((U32) (ord)))) - (((0x2000)) \| 0))) <= (((U64) ((((0x200A) - (0x2000))) \| 0))))) : ( ( (((U64) (((( (U64) (ord)))) - (((0x2000)) \| 0))) <= (((U64) ((((0x200A) - (0x2000))) \| 0)))))))) \|\| ( 0x200A < ord && ( 0x2028 == ord \|\| ( 0x2028 < ord && ( 0x2029 == ord \|\| ( 0x2029 < ord && ( 0x202F == ord \|\| ( 0x202F < ord && ( 0x205F == ord \|\| 0x3000 == ord ) ) ) ) ) ) ) ) ) ) ));
5180	#line 5181 "RealPPPort.c"
5181	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5182	}
5183	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5184	}
5185
5186
5187	XS_EUPXS(XS_Devel__PPPort_isPUNCT_uvchr)static void XS_Devel__PPPort_isPUNCT_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5188	XS_EUPXS(XS_Devel__PPPort_isPUNCT_uvchr)static void XS_Devel__PPPort_isPUNCT_uvchr( CV* cv __attribute__ ((unused)))
5189	{
5190	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5191	if (items != 1)
5192	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5193	{
5194	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5195	;
5196	bool_Bool RETVAL;
5197	#line 2576 "RealPPPort.xs"
5198	RETVAL = isPUNCT_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (5)))) ? (_Bool)1 : (_Bool)0) : Perl__is_uni_FOO( 5,ord));
5199	#line 5200 "RealPPPort.c"
5200	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5201	}
5202	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5203	}
5204
5205
5206	XS_EUPXS(XS_Devel__PPPort_isSPACE_uvchr)static void XS_Devel__PPPort_isSPACE_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5207	XS_EUPXS(XS_Devel__PPPort_isSPACE_uvchr)static void XS_Devel__PPPort_isSPACE_uvchr( CV* cv __attribute__ ((unused)))
5208	{
5209	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5210	if (items != 1)
5211	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5212	{
5213	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5214	;
5215	bool_Bool RETVAL;
5216	#line 2584 "RealPPPort.xs"
5217	RETVAL = isSPACE_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (10)))) ? (_Bool)1 : (_Bool)0) : ( 0x1680 == ord \|\| ( 0x1680 < ord && ( ( ( (sizeof(ord) == sizeof(U8 )) ? ( (((U64) (((((U8) (ord)))) - (((0x2000)) \| 0))) <= ( ((U64) ((((0x200A) - (0x2000))) \| 0))))) : (sizeof(ord) == sizeof (U32)) ? ( (((U64) (((((U32) (ord)))) - (((0x2000)) \| 0))) <= (((U64) ((((0x200A) - (0x2000))) \| 0))))) : ( ( (((U64) (((( (U64) (ord)))) - (((0x2000)) \| 0))) <= (((U64) ((((0x200A) - (0x2000))) \| 0)))))))) \|\| ( 0x200A < ord && ( 0x2028 == ord \|\| ( 0x2028 < ord && ( 0x2029 == ord \|\| ( 0x2029 < ord && ( 0x202F == ord \|\| ( 0x202F < ord && ( 0x205F == ord \|\| 0x3000 == ord ) ) ) ) ) ) ) ) ) ) ));
5218	#line 5219 "RealPPPort.c"
5219	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5220	}
5221	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5222	}
5223
5224
5225	XS_EUPXS(XS_Devel__PPPort_isUPPER_uvchr)static void XS_Devel__PPPort_isUPPER_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5226	XS_EUPXS(XS_Devel__PPPort_isUPPER_uvchr)static void XS_Devel__PPPort_isUPPER_uvchr( CV* cv __attribute__ ((unused)))
5227	{
5228	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5229	if (items != 1)
5230	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5231	{
5232	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5233	;
5234	bool_Bool RETVAL;
5235	#line 2592 "RealPPPort.xs"
5236	RETVAL = isUPPER_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (4)))) ? (_Bool)1 : (_Bool)0) : Perl__is_uni_FOO( 4,ord));
5237	#line 5238 "RealPPPort.c"
5238	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5239	}
5240	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5241	}
5242
5243
5244	XS_EUPXS(XS_Devel__PPPort_isWORDCHAR_uvchr)static void XS_Devel__PPPort_isWORDCHAR_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5245	XS_EUPXS(XS_Devel__PPPort_isWORDCHAR_uvchr)static void XS_Devel__PPPort_isWORDCHAR_uvchr( CV* cv __attribute__ ((unused)))
5246	{
5247	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5248	if (items != 1)
5249	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5250	{
5251	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5252	;
5253	bool_Bool RETVAL;
5254	#line 2600 "RealPPPort.xs"
5255	RETVAL = isWORDCHAR_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (0)))) ? (_Bool)1 : (_Bool)0) : Perl__is_uni_FOO( 0,ord));
5256	#line 5257 "RealPPPort.c"
5257	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5258	}
5259	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5260	}
5261
5262
5263	XS_EUPXS(XS_Devel__PPPort_isXDIGIT_uvchr)static void XS_Devel__PPPort_isXDIGIT_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5264	XS_EUPXS(XS_Devel__PPPort_isXDIGIT_uvchr)static void XS_Devel__PPPort_isXDIGIT_uvchr( CV* cv __attribute__ ((unused)))
5265	{
5266	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5267	if (items != 1)
5268	croak_xs_usagePerl_croak_xs_usage(cv, "ord");
5269	{
5270	UV ord = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
5271	;
5272	bool_Bool RETVAL;
5273	#line 2608 "RealPPPort.xs"
5274	RETVAL = isXDIGIT_uvchr(ord)((ord) < 256 ? ((( (sizeof(ord) == 1) \|\| !(((U64)((ord) \| 0 )) & ~0xFF)) && (PL_charclass[(U8) (ord)] & ( 1U << (12)))) ? (_Bool)1 : (_Bool)0) : ( ( ( (sizeof(ord ) == sizeof(U8)) ? ( (((U64) (((((U8) (ord)))) - (((0xFF10)) \| 0))) <= (((U64) ((((0xFF19) - (0xFF10))) \| 0))))) : (sizeof (ord) == sizeof(U32)) ? ( (((U64) (((((U32) (ord)))) - (((0xFF10 )) \| 0))) <= (((U64) ((((0xFF19) - (0xFF10))) \| 0))))) : ( ( (((U64) (((((U64) (ord)))) - (((0xFF10)) \| 0))) <= (((U64 ) ((((0xFF19) - (0xFF10))) \| 0)))))))) \|\| ( 0xFF19 < ord && ( ( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord) ))) - (((0xFF21)) \| 0))) <= (((U64) ((((0xFF26) - (0xFF21) )) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32 ) (ord)))) - (((0xFF21)) \| 0))) <= (((U64) ((((0xFF26) - ( 0xFF21))) \| 0))))) : ( ( (((U64) (((((U64) (ord)))) - (((0xFF21 )) \| 0))) <= (((U64) ((((0xFF26) - (0xFF21))) \| 0)))))))) \|\| ( ( (sizeof(ord) == sizeof(U8)) ? ( (((U64) (((((U8) (ord))) ) - (((0xFF41)) \| 0))) <= (((U64) ((((0xFF46) - (0xFF41))) \| 0))))) : (sizeof(ord) == sizeof(U32)) ? ( (((U64) (((((U32 ) (ord)))) - (((0xFF41)) \| 0))) <= (((U64) ((((0xFF46) - ( 0xFF41))) \| 0))))) : ( ( (((U64) (((((U64) (ord)))) - (((0xFF41 )) \| 0))) <= (((U64) ((((0xFF46) - (0xFF41))) \| 0)))))))) ) ) ));
5275	#line 5276 "RealPPPort.c"
5276	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5277	}
5278	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5279	}
5280
5281
5282	XS_EUPXS(XS_Devel__PPPort_isALPHA_utf8_safe)static void XS_Devel__PPPort_isALPHA_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5283	XS_EUPXS(XS_Devel__PPPort_isALPHA_utf8_safe)static void XS_Devel__PPPort_isALPHA_utf8_safe( CV* cv __attribute__ ((unused)))
5284	{
5285	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5286	if (items != 2)
5287	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5288	{
5289	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5290	;
5291	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5292	;
5293	bool_Bool RETVAL;
5294	#line 2617 "RealPPPort.xs"
5295	RETVAL = isALPHA_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (2)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) (((s )) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) (((s )) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (2)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 2,s,s + PL_utf8skip[(const U8 )(s)] + offset)));
5296	#line 5297 "RealPPPort.c"
5297	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5298	}
5299	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5300	}
5301
5302
5303	XS_EUPXS(XS_Devel__PPPort_isALPHANUMERIC_utf8_safe)static void XS_Devel__PPPort_isALPHANUMERIC_utf8_safe( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
5304	XS_EUPXS(XS_Devel__PPPort_isALPHANUMERIC_utf8_safe)static void XS_Devel__PPPort_isALPHANUMERIC_utf8_safe( CV* cv __attribute__((unused)))
5305	{
5306	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5307	if (items != 2)
5308	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5309	{
5310	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5311	;
5312	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5313	;
5314	bool_Bool RETVAL;
5315	#line 2626 "RealPPPort.xs"
5316	RETVAL = isALPHANUMERIC_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (7)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) (((s )) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) (((s )) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (7)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 7,s,s + PL_utf8skip[(const U8 )(s)] + offset)));
5317	#line 5318 "RealPPPort.c"
5318	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5319	}
5320	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5321	}
5322
5323
5324	XS_EUPXS(XS_Devel__PPPort_isBLANK_utf8_safe)static void XS_Devel__PPPort_isBLANK_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5325	XS_EUPXS(XS_Devel__PPPort_isBLANK_utf8_safe)static void XS_Devel__PPPort_isBLANK_utf8_safe( CV* cv __attribute__ ((unused)))
5326	{
5327	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5328	if (items != 2)
5329	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5330	{
5331	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5332	;
5333	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5334	;
5335	bool_Bool RETVAL;
5336	#line 2635 "RealPPPort.xs"
5337	RETVAL = isBLANK_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (11)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) ((( s)) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) ((( s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (11)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : (__builtin_expect((((s + PL_utf8skip[(const U8 )(s)] + offset) - (s) < PL_utf8skip[(const U8)(s)]) ? ( _Bool)1 : (_Bool)0),(0)) ? (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0) : ( ( 0xE1 == ((const U8)s)[0] ) ? ( ( ( 0x9A == ( (const U8)s)[1] ) && ( 0x80 == ((const U8)s)[2] ) ) ? 3 : 0 ): ( 0xE2 == ((const U8)s)[0] ) ? ( ( 0x80 == ((const U8)s)[1] ) ? ( ( ( ( (sizeof(((const U8)s)[2]) == sizeof(U8 )) ? ( (((U64) (((((U8) (((const U8)s)[2])))) - (((0x80)) \| 0 ))) <= (((U64) ((((0x8A) - (0x80))) \| 0))))) : (sizeof(((const U8)s)[2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8 )s)[2])))) - (((0x80)) \| 0))) <= (((U64) ((((0x8A) - (0x80 ))) \| 0))))) : ( ( (((U64) (((((U64) (((const U8)s)[2])))) - (((0x80)) \| 0))) <= (((U64) ((((0x8A) - (0x80))) \| 0))))) ))) \|\| 0xAF == ((const U8)s)[2] ) ? 3 : 0 ) : ( ( 0x81 == (( const U8)s)[1] ) && ( 0x9F == ((const U8)s)[2] ) ) ? 3 : 0 ): ( ( ( 0xE3 == ((const U8)s)[0] ) && ( 0x80 == ((const U8)s)[1] ) ) && ( 0x80 == ((const U8)s) [2] ) ) ? 3 : 0 ))));
5338	#line 5339 "RealPPPort.c"
5339	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5340	}
5341	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5342	}
5343
5344
5345	XS_EUPXS(XS_Devel__PPPort_isCNTRL_utf8_safe)static void XS_Devel__PPPort_isCNTRL_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5346	XS_EUPXS(XS_Devel__PPPort_isCNTRL_utf8_safe)static void XS_Devel__PPPort_isCNTRL_utf8_safe( CV* cv __attribute__ ((unused)))
5347	{
5348	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5349	if (items != 2)
5350	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5351	{
5352	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5353	;
5354	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5355	;
5356	bool_Bool RETVAL;
5357	#line 2644 "RealPPPort.xs"
5358	RETVAL = isCNTRL_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (13)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) ((( s)) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) ((( s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (13)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : 0));
5359	#line 5360 "RealPPPort.c"
5360	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5361	}
5362	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5363	}
5364
5365
5366	XS_EUPXS(XS_Devel__PPPort_isDIGIT_utf8_safe)static void XS_Devel__PPPort_isDIGIT_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5367	XS_EUPXS(XS_Devel__PPPort_isDIGIT_utf8_safe)static void XS_Devel__PPPort_isDIGIT_utf8_safe( CV* cv __attribute__ ((unused)))
5368	{
5369	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5370	if (items != 2)
5371	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5372	{
5373	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5374	;
5375	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5376	;
5377	bool_Bool RETVAL;
5378	#line 2653 "RealPPPort.xs"
5379	RETVAL = isDIGIT_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)((( s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (1)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof (( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) ( ( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( ((( U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (((( ((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0)))))))))) ? 0 : Perl__is_utf8_FOO ( 1,s,s + PL_utf8skip[(const U8*)(s)] + offset));
5380	#line 5381 "RealPPPort.c"
5381	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5382	}
5383	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5384	}
5385
5386
5387	XS_EUPXS(XS_Devel__PPPort_isGRAPH_utf8_safe)static void XS_Devel__PPPort_isGRAPH_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5388	XS_EUPXS(XS_Devel__PPPort_isGRAPH_utf8_safe)static void XS_Devel__PPPort_isGRAPH_utf8_safe( CV* cv __attribute__ ((unused)))
5389	{
5390	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5391	if (items != 2)
5392	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5393	{
5394	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5395	;
5396	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5397	;
5398	bool_Bool RETVAL;
5399	#line 2662 "RealPPPort.xs"
5400	RETVAL = isGRAPH_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (8)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) (((s )) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) (((s )) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (8)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 8,s,s + PL_utf8skip[(const U8 )(s)] + offset)));
5401	#line 5402 "RealPPPort.c"
5402	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5403	}
5404	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5405	}
5406
5407
5408	XS_EUPXS(XS_Devel__PPPort_isIDCONT_utf8_safe)static void XS_Devel__PPPort_isIDCONT_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5409	XS_EUPXS(XS_Devel__PPPort_isIDCONT_utf8_safe)static void XS_Devel__PPPort_isIDCONT_utf8_safe( CV* cv __attribute__ ((unused)))
5410	{
5411	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5412	if (items != 2)
5413	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5414	{
5415	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5416	;
5417	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5418	;
5419	bool_Bool RETVAL;
5420	#line 2671 "RealPPPort.xs"
5421	RETVAL = isIDCONT_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (0)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) (((s )) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) (((s )) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (0)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_perl_idcont( s,s + PL_utf8skip[( const U8)(s)] + offset)));
5422	#line 5423 "RealPPPort.c"
5423	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5424	}
5425	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5426	}
5427
5428
5429	XS_EUPXS(XS_Devel__PPPort_isIDFIRST_utf8_safe)static void XS_Devel__PPPort_isIDFIRST_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5430	XS_EUPXS(XS_Devel__PPPort_isIDFIRST_utf8_safe)static void XS_Devel__PPPort_isIDFIRST_utf8_safe( CV* cv __attribute__ ((unused)))
5431	{
5432	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5433	if (items != 2)
5434	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5435	{
5436	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5437	;
5438	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5439	;
5440	bool_Bool RETVAL;
5441	#line 2680 "RealPPPort.xs"
5442	RETVAL = isIDFIRST_utf8_safe(s, s + UTF8SKIP(s) + offset)((! (((U8 ) (s + PL_utf8skip[(const U8)(s)] + offset)) > ((U8 ) (s)))) ? (Perl__force_out_malformed_utf8_message( (U8 ) ((U8 ) (s)),(U8 ) ((U8 ) (s + PL_utf8skip[(const U8) (s)] + offset)),0,1), 0) : (((((U64)(((UV) (((((U8 ) (s))) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ( (( (sizeof(((U8 ) (s))) == 1) \|\| !(((U64)((((U8 ) (s))) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (((U8 ) (s )))] & (1U << (16)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) ((((U8 ) (s))) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) ((((U8 ) (s))) \| 0))))))) - (((( ((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) ((((U8 ) (s))) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8 ) ((((U8 ) (s))) \| 0))))))) - ((((((((U8) (0xFF << 6) ) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) ((((U8 ) (s))) \| 0 ))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect (((((U8 ) (s + PL_utf8skip[(const U8)(s)] + offset)) - ((U8 ) (s)) > 1 && ( (((( ((U8) (((((U8 ) (s))+1)) \| 0))) & ((U8) (0xFF << 6))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof (( ( ((U8) ((( ((( ( ((U8) ((((U8 ) (s))) \| 0))) & (((2 ) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ( (( ((U8) ((((((U8 ) (s))+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ( (U8) ((((U8 ) (s))) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) ((((((U8 ) (s ))+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))) )) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) ((((U8 ) (s))) \| 0))) & (((2) >= 7 ) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) ((((((U8 ) (s))+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (16)))) ? (_Bool)1 : ( _Bool)0) : (Perl__force_out_malformed_utf8_message( (U8 ) (( U8 ) (s)),(U8 ) ((U8 ) (s + PL_utf8skip[(const U8)(s)] + offset)),0,1), 0)) : Perl__is_utf8_perl_idstart( (U8 ) (s), (U8 ) (s + PL_utf8skip[(const U8)(s)] + offset))));
5443	#line 5444 "RealPPPort.c"
5444	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5445	}
5446	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5447	}
5448
5449
5450	XS_EUPXS(XS_Devel__PPPort_isLOWER_utf8_safe)static void XS_Devel__PPPort_isLOWER_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5451	XS_EUPXS(XS_Devel__PPPort_isLOWER_utf8_safe)static void XS_Devel__PPPort_isLOWER_utf8_safe( CV* cv __attribute__ ((unused)))
5452	{
5453	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5454	if (items != 2)
5455	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5456	{
5457	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5458	;
5459	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5460	;
5461	bool_Bool RETVAL;
5462	#line 2689 "RealPPPort.xs"
5463	RETVAL = isLOWER_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (3)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) (((s )) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) (((s )) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (3)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 3,s,s + PL_utf8skip[(const U8 )(s)] + offset)));
5464	#line 5465 "RealPPPort.c"
5465	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5466	}
5467	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5468	}
5469
5470
5471	XS_EUPXS(XS_Devel__PPPort_isPRINT_utf8_safe)static void XS_Devel__PPPort_isPRINT_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5472	XS_EUPXS(XS_Devel__PPPort_isPRINT_utf8_safe)static void XS_Devel__PPPort_isPRINT_utf8_safe( CV* cv __attribute__ ((unused)))
5473	{
5474	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5475	if (items != 2)
5476	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5477	{
5478	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5479	;
5480	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5481	;
5482	bool_Bool RETVAL;
5483	#line 2698 "RealPPPort.xs"
5484	RETVAL = isPRINT_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (6)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) (((s )) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) (((s )) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (6)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 6,s,s + PL_utf8skip[(const U8 )(s)] + offset)));
5485	#line 5486 "RealPPPort.c"
5486	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5487	}
5488	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5489	}
5490
5491
5492	XS_EUPXS(XS_Devel__PPPort_isPSXSPC_utf8_safe)static void XS_Devel__PPPort_isPSXSPC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5493	XS_EUPXS(XS_Devel__PPPort_isPSXSPC_utf8_safe)static void XS_Devel__PPPort_isPSXSPC_utf8_safe( CV* cv __attribute__ ((unused)))
5494	{
5495	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5496	if (items != 2)
5497	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5498	{
5499	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5500	;
5501	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5502	;
5503	bool_Bool RETVAL;
5504	#line 2707 "RealPPPort.xs"
5505	RETVAL = isPSXSPC_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (10)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) ((( s)) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) ((( s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (10)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : (__builtin_expect((((s + PL_utf8skip[(const U8 )(s)] + offset) - (s) < PL_utf8skip[(const U8)(s)]) ? ( _Bool)1 : (_Bool)0),(0)) ? (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0) : ( ( 0xE1 == ((const U8)s)[0] ) ? ( ( ( 0x9A == ( (const U8)s)[1] ) && ( 0x80 == ((const U8)s)[2] ) ) ? 3 : 0 ): ( 0xE2 == ((const U8)s)[0] ) ? ( ( 0x80 == ((const U8)s)[1] ) ? ( ( ( ( (sizeof(((const U8)s)[2]) == sizeof(U8 )) ? ( (((U64) (((((U8) (((const U8)s)[2])))) - (((0x80)) \| 0 ))) <= (((U64) ((((0x8A) - (0x80))) \| 0))))) : (sizeof(((const U8)s)[2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8 )s)[2])))) - (((0x80)) \| 0))) <= (((U64) ((((0x8A) - (0x80 ))) \| 0))))) : ( ( (((U64) (((((U64) (((const U8)s)[2])))) - (((0x80)) \| 0))) <= (((U64) ((((0x8A) - (0x80))) \| 0))))) ))) \|\| ( ( (sizeof(((const U8)s)[2]) == sizeof(U8)) ? ( (((U64 ) (((((U8) (((const U8)s)[2])))) - (((0xA8)) \| 0))) <= (( (U64) ((((0xA9) - (0xA8))) \| 0))))) : (sizeof(((const U8)s)[ 2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8)s)[2]) ))) - (((0xA8)) \| 0))) <= (((U64) ((((0xA9) - (0xA8))) \| 0 ))))) : ( ( (((U64) (((((U64) (((const U8)s)[2])))) - (((0xA8 )) \| 0))) <= (((U64) ((((0xA9) - (0xA8))) \| 0)))))))) \|\| 0xAF == ((const U8)s)[2] ) ? 3 : 0 ) : ( ( 0x81 == ((const U8)s )[1] ) && ( 0x9F == ((const U8)s)[2] ) ) ? 3 : 0 ): ( ( ( 0xE3 == ((const U8)s)[0] ) && ( 0x80 == ((const U8)s)[1] ) ) && ( 0x80 == ((const U8*)s)[2] ) ) ? 3 : 0 ))));
5506	#line 5507 "RealPPPort.c"
5507	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5508	}
5509	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5510	}
5511
5512
5513	XS_EUPXS(XS_Devel__PPPort_isPUNCT_utf8_safe)static void XS_Devel__PPPort_isPUNCT_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5514	XS_EUPXS(XS_Devel__PPPort_isPUNCT_utf8_safe)static void XS_Devel__PPPort_isPUNCT_utf8_safe( CV* cv __attribute__ ((unused)))
5515	{
5516	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5517	if (items != 2)
5518	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5519	{
5520	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5521	;
5522	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5523	;
5524	bool_Bool RETVAL;
5525	#line 2716 "RealPPPort.xs"
5526	RETVAL = isPUNCT_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (5)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) (((s )) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) (((s )) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (5)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 5,s,s + PL_utf8skip[(const U8 )(s)] + offset)));
5527	#line 5528 "RealPPPort.c"
5528	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5529	}
5530	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5531	}
5532
5533
5534	XS_EUPXS(XS_Devel__PPPort_isSPACE_utf8_safe)static void XS_Devel__PPPort_isSPACE_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5535	XS_EUPXS(XS_Devel__PPPort_isSPACE_utf8_safe)static void XS_Devel__PPPort_isSPACE_utf8_safe( CV* cv __attribute__ ((unused)))
5536	{
5537	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5538	if (items != 2)
5539	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5540	{
5541	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5542	;
5543	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5544	;
5545	bool_Bool RETVAL;
5546	#line 2725 "RealPPPort.xs"
5547	RETVAL = isSPACE_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (10)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) ((( s)) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) ((( s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (10)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : (__builtin_expect((((s + PL_utf8skip[(const U8 )(s)] + offset) - (s) < PL_utf8skip[(const U8)(s)]) ? ( _Bool)1 : (_Bool)0),(0)) ? (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0) : ( ( 0xE1 == ((const U8)s)[0] ) ? ( ( ( 0x9A == ( (const U8)s)[1] ) && ( 0x80 == ((const U8)s)[2] ) ) ? 3 : 0 ): ( 0xE2 == ((const U8)s)[0] ) ? ( ( 0x80 == ((const U8)s)[1] ) ? ( ( ( ( (sizeof(((const U8)s)[2]) == sizeof(U8 )) ? ( (((U64) (((((U8) (((const U8)s)[2])))) - (((0x80)) \| 0 ))) <= (((U64) ((((0x8A) - (0x80))) \| 0))))) : (sizeof(((const U8)s)[2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8 )s)[2])))) - (((0x80)) \| 0))) <= (((U64) ((((0x8A) - (0x80 ))) \| 0))))) : ( ( (((U64) (((((U64) (((const U8)s)[2])))) - (((0x80)) \| 0))) <= (((U64) ((((0x8A) - (0x80))) \| 0))))) ))) \|\| ( ( (sizeof(((const U8)s)[2]) == sizeof(U8)) ? ( (((U64 ) (((((U8) (((const U8)s)[2])))) - (((0xA8)) \| 0))) <= (( (U64) ((((0xA9) - (0xA8))) \| 0))))) : (sizeof(((const U8)s)[ 2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8)s)[2]) ))) - (((0xA8)) \| 0))) <= (((U64) ((((0xA9) - (0xA8))) \| 0 ))))) : ( ( (((U64) (((((U64) (((const U8)s)[2])))) - (((0xA8 )) \| 0))) <= (((U64) ((((0xA9) - (0xA8))) \| 0)))))))) \|\| 0xAF == ((const U8)s)[2] ) ? 3 : 0 ) : ( ( 0x81 == ((const U8)s )[1] ) && ( 0x9F == ((const U8)s)[2] ) ) ? 3 : 0 ): ( ( ( 0xE3 == ((const U8)s)[0] ) && ( 0x80 == ((const U8)s)[1] ) ) && ( 0x80 == ((const U8*)s)[2] ) ) ? 3 : 0 ))));
5548	#line 5549 "RealPPPort.c"
5549	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5550	}
5551	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5552	}
5553
5554
5555	XS_EUPXS(XS_Devel__PPPort_isUPPER_utf8_safe)static void XS_Devel__PPPort_isUPPER_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5556	XS_EUPXS(XS_Devel__PPPort_isUPPER_utf8_safe)static void XS_Devel__PPPort_isUPPER_utf8_safe( CV* cv __attribute__ ((unused)))
5557	{
5558	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5559	if (items != 2)
5560	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5561	{
5562	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5563	;
5564	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5565	;
5566	bool_Bool RETVAL;
5567	#line 2734 "RealPPPort.xs"
5568	RETVAL = isUPPER_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (4)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) (((s )) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) (((s )) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (4)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 4,s,s + PL_utf8skip[(const U8 )(s)] + offset)));
5569	#line 5570 "RealPPPort.c"
5570	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5571	}
5572	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5573	}
5574
5575
5576	XS_EUPXS(XS_Devel__PPPort_isWORDCHAR_utf8_safe)static void XS_Devel__PPPort_isWORDCHAR_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5577	XS_EUPXS(XS_Devel__PPPort_isWORDCHAR_utf8_safe)static void XS_Devel__PPPort_isWORDCHAR_utf8_safe( CV* cv __attribute__ ((unused)))
5578	{
5579	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5580	if (items != 2)
5581	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5582	{
5583	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5584	;
5585	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5586	;
5587	bool_Bool RETVAL;
5588	#line 2743 "RealPPPort.xs"
5589	RETVAL = isWORDCHAR_utf8_safe(s, s + UTF8SKIP(s) + offset)((! ((s + PL_utf8skip[(const U8)(s)] + offset) > (s))) ? (Perl__force_out_malformed_utf8_message( (U8 ) (s),(U8 ) ( s + PL_utf8skip[(const U8)(s)] + offset),0,1), 0) : (((((U64 )(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)(((s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (0)))) ? (_Bool)1 : (_Bool)0) : (( ( ( (sizeof(( ((U8) (((s )) \| 0)))) == sizeof(U8)) ? ( (((U64) (((((U8) (( ((U8) (((s )) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ( (U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| ((( 2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0)) ))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((( (((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((( (s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? ((( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1 ))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))) ) \| 0)) & ~0xFF)) && (PL_charclass[(U8) (( ( ((U8 ) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+ 1 ))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (0)))) ? (_Bool)1 : (_Bool)0) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 0,s,s + PL_utf8skip[(const U8 )(s)] + offset)));
5590	#line 5591 "RealPPPort.c"
5591	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5592	}
5593	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5594	}
5595
5596
5597	XS_EUPXS(XS_Devel__PPPort_isXDIGIT_utf8_safe)static void XS_Devel__PPPort_isXDIGIT_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5598	XS_EUPXS(XS_Devel__PPPort_isXDIGIT_utf8_safe)static void XS_Devel__PPPort_isXDIGIT_utf8_safe( CV* cv __attribute__ ((unused)))
5599	{
5600	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5601	if (items != 2)
5602	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5603	{
5604	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5605	;
5606	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5607	;
5608	bool_Bool RETVAL;
5609	#line 2752 "RealPPPort.xs"
5610	RETVAL = isXDIGIT_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? ((( (sizeof((s)) == 1) \|\| !(((U64)((( s)) \| 0)) & ~0xFF)) && (PL_charclass[(U8) ((s))] & (1U << (12)))) ? (_Bool)1 : (_Bool)0) : (( ( ( ( sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ((( ((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0)))))))))) ? 0 : (__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) < PL_utf8skip [(const U8)(s)]) ? (_Bool)1 : (_Bool)0),(0)) ? (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0) : ( ( 0xEF == ((const U8)s)[0] ) ? ( ( 0xBC == (( const U8)s)[1] ) ? ( ( ( ( (sizeof(((const U8)s)[2]) == sizeof (U8)) ? ( (((U64) (((((U8) (((const U8)s)[2])))) - (((0x90)) \| 0))) <= (((U64) ((((0x99) - (0x90))) \| 0))))) : (sizeof (((const U8)s)[2]) == sizeof(U32)) ? ( (((U64) (((((U32) ((( const U8)s)[2])))) - (((0x90)) \| 0))) <= (((U64) ((((0x99 ) - (0x90))) \| 0))))) : ( ( (((U64) (((((U64) (((const U8)s) [2])))) - (((0x90)) \| 0))) <= (((U64) ((((0x99) - (0x90))) \| 0)))))))) \|\| ( ( (sizeof(((const U8)s)[2]) == sizeof(U8)) ? ( (((U64) (((((U8) (((const U8)s)[2])))) - (((0xA1)) \| 0) )) <= (((U64) ((((0xA6) - (0xA1))) \| 0))))) : (sizeof(((const U8)s)[2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8 )s)[2])))) - (((0xA1)) \| 0))) <= (((U64) ((((0xA6) - (0xA1 ))) \| 0))))) : ( ( (((U64) (((((U64) (((const U8)s)[2])))) - (((0xA1)) \| 0))) <= (((U64) ((((0xA6) - (0xA1))) \| 0))))) ))) ) ? 3 : 0 ) : ( ( 0xBD == ((const U8)s)[1] ) && ( ( ( (sizeof(((const U8)s)[2]) == sizeof(U8)) ? ( (((U64) (( (((U8) (((const U8)s)[2])))) - (((0x81)) \| 0))) <= (((U64 ) ((((0x86) - (0x81))) \| 0))))) : (sizeof(((const U8)s)[2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8)s)[2])))) - ( ((0x81)) \| 0))) <= (((U64) ((((0x86) - (0x81))) \| 0))))) : ( ( (((U64) (((((U64) (((const U8*)s)[2])))) - (((0x81)) \| 0 ))) <= (((U64) ((((0x86) - (0x81))) \| 0)))))))) ) ) ? 3 : 0 ): 0 )));
5611	#line 5612 "RealPPPort.c"
5612	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5613	}
5614	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5615	}
5616
5617
5618	XS_EUPXS(XS_Devel__PPPort_isALPHA_LC_utf8_safe)static void XS_Devel__PPPort_isALPHA_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5619	XS_EUPXS(XS_Devel__PPPort_isALPHA_LC_utf8_safe)static void XS_Devel__PPPort_isALPHA_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5620	{
5621	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5622	if (items != 2)
5623	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5624	{
5625	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5626	;
5627	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5628	;
5629	bool_Bool RETVAL;
5630	#line 2761 "RealPPPort.xs"
5631	RETVAL = isALPHA_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (2))) ? (_Bool)1 : (_Bool)0) : ((isalpha( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( ( sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ((( ((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (2))) ? (_Bool)1 : (_Bool)0) : ( (isalpha( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 2,s,s + PL_utf8skip[(const U8 *)(s)] + offset)));
5632	#line 5633 "RealPPPort.c"
5633	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5634	}
5635	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5636	}
5637
5638
5639	XS_EUPXS(XS_Devel__PPPort_isALPHANUMERIC_LC_utf8_safe)static void XS_Devel__PPPort_isALPHANUMERIC_LC_utf8_safe( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
5640	XS_EUPXS(XS_Devel__PPPort_isALPHANUMERIC_LC_utf8_safe)static void XS_Devel__PPPort_isALPHANUMERIC_LC_utf8_safe( CV* cv __attribute__((unused)))
5641	{
5642	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5643	if (items != 2)
5644	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5645	{
5646	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5647	;
5648	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5649	;
5650	bool_Bool RETVAL;
5651	#line 2770 "RealPPPort.xs"
5652	RETVAL = isALPHANUMERIC_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (7))) ? (_Bool)1 : (_Bool)0) : ((isalnum( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( ( sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ((( ((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (7))) ? (_Bool)1 : (_Bool)0) : ( (isalnum( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 7,s,s + PL_utf8skip[(const U8 *)(s)] + offset)));
5653	#line 5654 "RealPPPort.c"
5654	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5655	}
5656	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5657	}
5658
5659
5660	XS_EUPXS(XS_Devel__PPPort_isASCII_LC_utf8_safe)static void XS_Devel__PPPort_isASCII_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5661	XS_EUPXS(XS_Devel__PPPort_isASCII_LC_utf8_safe)static void XS_Devel__PPPort_isASCII_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5662	{
5663	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5664	if (items != 2)
5665	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5666	{
5667	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5668	;
5669	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
	Value stored to 'offset' during its initialization is never read
5670	;
5671	bool_Bool RETVAL;
5672	#line 2779 "RealPPPort.xs"
5673	PERL_UNUSED_ARG(offset)((void)sizeof(offset));
5674	RETVAL = isASCII_utf8_safe(s, s + UTF8SKIP(s) + offset)( ((U64)((*(s)) \| 0) < 128));
5675	#line 5676 "RealPPPort.c"
5676	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5677	}
5678	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5679	}
5680
5681
5682	XS_EUPXS(XS_Devel__PPPort_isBLANK_LC_utf8_safe)static void XS_Devel__PPPort_isBLANK_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5683	XS_EUPXS(XS_Devel__PPPort_isBLANK_LC_utf8_safe)static void XS_Devel__PPPort_isBLANK_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5684	{
5685	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5686	if (items != 2)
5687	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5688	{
5689	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5690	;
5691	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5692	;
5693	bool_Bool RETVAL;
5694	#line 2789 "RealPPPort.xs"
5695	RETVAL = isBLANK_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (11))) ? (_Bool)1 : (_Bool)0 ) : ((isblank( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ( ((((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (11))) ? (_Bool)1 : (_Bool)0) : ((isblank( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : (__builtin_expect((((s + PL_utf8skip[(const U8 )(s)] + offset) - (s) < PL_utf8skip[(const U8)(s)]) ? ( _Bool)1 : (_Bool)0),(0)) ? (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0) : ( ( 0xE1 == ((const U8)s)[0] ) ? ( ( ( 0x9A == ( (const U8)s)[1] ) && ( 0x80 == ((const U8)s)[2] ) ) ? 3 : 0 ): ( 0xE2 == ((const U8)s)[0] ) ? ( ( 0x80 == ((const U8)s)[1] ) ? ( ( ( ( (sizeof(((const U8)s)[2]) == sizeof(U8 )) ? ( (((U64) (((((U8) (((const U8)s)[2])))) - (((0x80)) \| 0 ))) <= (((U64) ((((0x8A) - (0x80))) \| 0))))) : (sizeof(((const U8)s)[2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8 )s)[2])))) - (((0x80)) \| 0))) <= (((U64) ((((0x8A) - (0x80 ))) \| 0))))) : ( ( (((U64) (((((U64) (((const U8)s)[2])))) - (((0x80)) \| 0))) <= (((U64) ((((0x8A) - (0x80))) \| 0))))) ))) \|\| 0xAF == ((const U8)s)[2] ) ? 3 : 0 ) : ( ( 0x81 == (( const U8)s)[1] ) && ( 0x9F == ((const U8)s)[2] ) ) ? 3 : 0 ): ( ( ( 0xE3 == ((const U8)s)[0] ) && ( 0x80 == ((const U8)s)[1] ) ) && ( 0x80 == ((const U8*)s) [2] ) ) ? 3 : 0 ))));
5696	#line 5697 "RealPPPort.c"
5697	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5698	}
5699	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5700	}
5701
5702
5703	XS_EUPXS(XS_Devel__PPPort_isCNTRL_LC_utf8_safe)static void XS_Devel__PPPort_isCNTRL_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5704	XS_EUPXS(XS_Devel__PPPort_isCNTRL_LC_utf8_safe)static void XS_Devel__PPPort_isCNTRL_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5705	{
5706	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5707	if (items != 2)
5708	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5709	{
5710	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5711	;
5712	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5713	;
5714	bool_Bool RETVAL;
5715	#line 2798 "RealPPPort.xs"
5716	RETVAL = isCNTRL_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (13))) ? (_Bool)1 : (_Bool)0 ) : ((iscntrl( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ( ((((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (13))) ? (_Bool)1 : (_Bool)0) : ((iscntrl( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8*)(s)] + offset ),0,1), 0)) : 0));
5717	#line 5718 "RealPPPort.c"
5718	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5719	}
5720	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5721	}
5722
5723
5724	XS_EUPXS(XS_Devel__PPPort_isDIGIT_LC_utf8_safe)static void XS_Devel__PPPort_isDIGIT_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5725	XS_EUPXS(XS_Devel__PPPort_isDIGIT_LC_utf8_safe)static void XS_Devel__PPPort_isDIGIT_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5726	{
5727	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5728	if (items != 2)
5729	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5730	{
5731	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5732	;
5733	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5734	;
5735	bool_Bool RETVAL;
5736	#line 2807 "RealPPPort.xs"
5737	RETVAL = isDIGIT_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (1))) ? (_Bool)1 : (_Bool)0) : ((isdigit( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( ( sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ((( ((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (1))) ? (_Bool)1 : (_Bool)0) : ( (isdigit( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 1,s,s + PL_utf8skip[(const U8 *)(s)] + offset)));
5738	#line 5739 "RealPPPort.c"
5739	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5740	}
5741	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5742	}
5743
5744
5745	XS_EUPXS(XS_Devel__PPPort_isGRAPH_LC_utf8_safe)static void XS_Devel__PPPort_isGRAPH_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5746	XS_EUPXS(XS_Devel__PPPort_isGRAPH_LC_utf8_safe)static void XS_Devel__PPPort_isGRAPH_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5747	{
5748	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5749	if (items != 2)
5750	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5751	{
5752	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5753	;
5754	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5755	;
5756	bool_Bool RETVAL;
5757	#line 2816 "RealPPPort.xs"
5758	RETVAL = isGRAPH_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (8))) ? (_Bool)1 : (_Bool)0) : ((isgraph( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( ( sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ((( ((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (8))) ? (_Bool)1 : (_Bool)0) : ( (isgraph( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 8,s,s + PL_utf8skip[(const U8 *)(s)] + offset)));
5759	#line 5760 "RealPPPort.c"
5760	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5761	}
5762	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5763	}
5764
5765
5766	XS_EUPXS(XS_Devel__PPPort_isIDCONT_LC_utf8_safe)static void XS_Devel__PPPort_isIDCONT_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5767	XS_EUPXS(XS_Devel__PPPort_isIDCONT_LC_utf8_safe)static void XS_Devel__PPPort_isIDCONT_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5768	{
5769	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5770	if (items != 2)
5771	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5772	{
5773	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5774	;
5775	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5776	;
5777	bool_Bool RETVAL;
5778	#line 2825 "RealPPPort.xs"
5779	RETVAL = isIDCONT_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (0))) ? (_Bool)1 : (_Bool)0) : (((isalnum( (U8) ((s))) \|\| (char)((s)) == '_')) ? (_Bool )1 : (_Bool)0)) : (( ( ( (sizeof(( ((U8) (((s)) \| 0)))) == sizeof (U8)) ? ( (((U64) (((((U8) (( ((U8) (((s)) \| 0))))))) - (((( ((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((((s + PL_utf8skip[(const U8 )(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s) +1)) \| 0))) & ((U8) (0xFF << 6))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7 ) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2)))) ) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ( (1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass[(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0 ))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (0))) ? (_Bool)1 : ( _Bool)0) : (((isalnum( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s) ) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2) )))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8 ) ((1U << 6) - 1))))) \| 0)))))) \|\| (char)(( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) == '_') ) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_perl_idcont( s,s + PL_utf8skip[( const U8*)(s)] + offset)));
5780	#line 5781 "RealPPPort.c"
5781	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5782	}
5783	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5784	}
5785
5786
5787	XS_EUPXS(XS_Devel__PPPort_isIDFIRST_LC_utf8_safe)static void XS_Devel__PPPort_isIDFIRST_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5788	XS_EUPXS(XS_Devel__PPPort_isIDFIRST_LC_utf8_safe)static void XS_Devel__PPPort_isIDFIRST_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5789	{
5790	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5791	if (items != 2)
5792	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5793	{
5794	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5795	;
5796	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5797	;
5798	bool_Bool RETVAL;
5799	#line 2834 "RealPPPort.xs"
5800	RETVAL = isIDFIRST_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (16))) ? (_Bool)1 : (_Bool)0 ) : (((isalpha( (U8) ((s))) \|\| (char)((s)) == '_')) ? (_Bool )1 : (_Bool)0)) : (( ( ( (sizeof(( ((U8) (((s)) \| 0)))) == sizeof (U8)) ? ( (((U64) (((((U8) (( ((U8) (((s)) \| 0))))))) - (((( ((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((((s + PL_utf8skip[(const U8 )(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s) +1)) \| 0))) & ((U8) (0xFF << 6))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7 ) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2)))) ) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ( (1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass[(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0 ))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (16))) ? (_Bool)1 : (_Bool)0) : (((isalpha( (U8) (( ( ((U8) ((( ((( ( ((U8) ((( s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)- 2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & (( U8) ((1U << 6) - 1))))) \| 0)))))) \|\| (char)(( ( ((U8) ( (( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : ( 0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+1) )) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) == '_' )) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_perl_idstart( s,s + PL_utf8skip[ (const U8*)(s)] + offset)));
5801	#line 5802 "RealPPPort.c"
5802	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5803	}
5804	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5805	}
5806
5807
5808	XS_EUPXS(XS_Devel__PPPort_isLOWER_LC_utf8_safe)static void XS_Devel__PPPort_isLOWER_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5809	XS_EUPXS(XS_Devel__PPPort_isLOWER_LC_utf8_safe)static void XS_Devel__PPPort_isLOWER_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5810	{
5811	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5812	if (items != 2)
5813	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5814	{
5815	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5816	;
5817	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5818	;
5819	bool_Bool RETVAL;
5820	#line 2843 "RealPPPort.xs"
5821	RETVAL = isLOWER_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (3))) ? (_Bool)1 : (_Bool)0) : ((islower( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( ( sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ((( ((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (3))) ? (_Bool)1 : (_Bool)0) : ( (islower( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 3,s,s + PL_utf8skip[(const U8 *)(s)] + offset)));
5822	#line 5823 "RealPPPort.c"
5823	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5824	}
5825	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5826	}
5827
5828
5829	XS_EUPXS(XS_Devel__PPPort_isPRINT_LC_utf8_safe)static void XS_Devel__PPPort_isPRINT_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5830	XS_EUPXS(XS_Devel__PPPort_isPRINT_LC_utf8_safe)static void XS_Devel__PPPort_isPRINT_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5831	{
5832	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5833	if (items != 2)
5834	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5835	{
5836	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5837	;
5838	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5839	;
5840	bool_Bool RETVAL;
5841	#line 2852 "RealPPPort.xs"
5842	RETVAL = isPRINT_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (6))) ? (_Bool)1 : (_Bool)0) : ((isprint( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( ( sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ((( ((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (6))) ? (_Bool)1 : (_Bool)0) : ( (isprint( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 6,s,s + PL_utf8skip[(const U8 *)(s)] + offset)));
5843	#line 5844 "RealPPPort.c"
5844	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5845	}
5846	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5847	}
5848
5849
5850	XS_EUPXS(XS_Devel__PPPort_isPSXSPC_LC_utf8_safe)static void XS_Devel__PPPort_isPSXSPC_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5851	XS_EUPXS(XS_Devel__PPPort_isPSXSPC_LC_utf8_safe)static void XS_Devel__PPPort_isPSXSPC_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5852	{
5853	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5854	if (items != 2)
5855	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5856	{
5857	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5858	;
5859	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5860	;
5861	bool_Bool RETVAL;
5862	#line 2861 "RealPPPort.xs"
5863	RETVAL = isPSXSPC_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (10))) ? (_Bool)1 : (_Bool)0 ) : ((isspace( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ( ((((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (10))) ? (_Bool)1 : (_Bool)0) : ((isspace( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : (__builtin_expect((((s + PL_utf8skip[(const U8 )(s)] + offset) - (s) < PL_utf8skip[(const U8)(s)]) ? ( _Bool)1 : (_Bool)0),(0)) ? (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0) : ( ( 0xE1 == ((const U8)s)[0] ) ? ( ( ( 0x9A == ( (const U8)s)[1] ) && ( 0x80 == ((const U8)s)[2] ) ) ? 3 : 0 ): ( 0xE2 == ((const U8)s)[0] ) ? ( ( 0x80 == ((const U8)s)[1] ) ? ( ( ( ( (sizeof(((const U8)s)[2]) == sizeof(U8 )) ? ( (((U64) (((((U8) (((const U8)s)[2])))) - (((0x80)) \| 0 ))) <= (((U64) ((((0x8A) - (0x80))) \| 0))))) : (sizeof(((const U8)s)[2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8 )s)[2])))) - (((0x80)) \| 0))) <= (((U64) ((((0x8A) - (0x80 ))) \| 0))))) : ( ( (((U64) (((((U64) (((const U8)s)[2])))) - (((0x80)) \| 0))) <= (((U64) ((((0x8A) - (0x80))) \| 0))))) ))) \|\| ( ( (sizeof(((const U8)s)[2]) == sizeof(U8)) ? ( (((U64 ) (((((U8) (((const U8)s)[2])))) - (((0xA8)) \| 0))) <= (( (U64) ((((0xA9) - (0xA8))) \| 0))))) : (sizeof(((const U8)s)[ 2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8)s)[2]) ))) - (((0xA8)) \| 0))) <= (((U64) ((((0xA9) - (0xA8))) \| 0 ))))) : ( ( (((U64) (((((U64) (((const U8)s)[2])))) - (((0xA8 )) \| 0))) <= (((U64) ((((0xA9) - (0xA8))) \| 0)))))))) \|\| 0xAF == ((const U8)s)[2] ) ? 3 : 0 ) : ( ( 0x81 == ((const U8)s )[1] ) && ( 0x9F == ((const U8)s)[2] ) ) ? 3 : 0 ): ( ( ( 0xE3 == ((const U8)s)[0] ) && ( 0x80 == ((const U8)s)[1] ) ) && ( 0x80 == ((const U8)s)[2] ) ) ? 3 : 0 ))));
5864	#line 5865 "RealPPPort.c"
5865	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5866	}
5867	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5868	}
5869
5870
5871	XS_EUPXS(XS_Devel__PPPort_isPUNCT_LC_utf8_safe)static void XS_Devel__PPPort_isPUNCT_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5872	XS_EUPXS(XS_Devel__PPPort_isPUNCT_LC_utf8_safe)static void XS_Devel__PPPort_isPUNCT_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5873	{
5874	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5875	if (items != 2)
5876	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5877	{
5878	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5879	;
5880	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5881	;
5882	bool_Bool RETVAL;
5883	#line 2870 "RealPPPort.xs"
5884	RETVAL = isPUNCT_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (5))) ? (_Bool)1 : (_Bool)0) : ((ispunct( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( ( sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ((( ((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (5))) ? (_Bool)1 : (_Bool)0) : ( (ispunct( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 5,s,s + PL_utf8skip[(const U8 *)(s)] + offset)));
5885	#line 5886 "RealPPPort.c"
5886	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5887	}
5888	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5889	}
5890
5891
5892	XS_EUPXS(XS_Devel__PPPort_isSPACE_LC_utf8_safe)static void XS_Devel__PPPort_isSPACE_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5893	XS_EUPXS(XS_Devel__PPPort_isSPACE_LC_utf8_safe)static void XS_Devel__PPPort_isSPACE_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5894	{
5895	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5896	if (items != 2)
5897	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5898	{
5899	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5900	;
5901	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5902	;
5903	bool_Bool RETVAL;
5904	#line 2879 "RealPPPort.xs"
5905	RETVAL = isSPACE_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (10))) ? (_Bool)1 : (_Bool)0 ) : ((isspace( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ( ((((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (10))) ? (_Bool)1 : (_Bool)0) : ((isspace( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : (__builtin_expect((((s + PL_utf8skip[(const U8 )(s)] + offset) - (s) < PL_utf8skip[(const U8)(s)]) ? ( _Bool)1 : (_Bool)0),(0)) ? (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0) : ( ( 0xE1 == ((const U8)s)[0] ) ? ( ( ( 0x9A == ( (const U8)s)[1] ) && ( 0x80 == ((const U8)s)[2] ) ) ? 3 : 0 ): ( 0xE2 == ((const U8)s)[0] ) ? ( ( 0x80 == ((const U8)s)[1] ) ? ( ( ( ( (sizeof(((const U8)s)[2]) == sizeof(U8 )) ? ( (((U64) (((((U8) (((const U8)s)[2])))) - (((0x80)) \| 0 ))) <= (((U64) ((((0x8A) - (0x80))) \| 0))))) : (sizeof(((const U8)s)[2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8 )s)[2])))) - (((0x80)) \| 0))) <= (((U64) ((((0x8A) - (0x80 ))) \| 0))))) : ( ( (((U64) (((((U64) (((const U8)s)[2])))) - (((0x80)) \| 0))) <= (((U64) ((((0x8A) - (0x80))) \| 0))))) ))) \|\| ( ( (sizeof(((const U8)s)[2]) == sizeof(U8)) ? ( (((U64 ) (((((U8) (((const U8)s)[2])))) - (((0xA8)) \| 0))) <= (( (U64) ((((0xA9) - (0xA8))) \| 0))))) : (sizeof(((const U8)s)[ 2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8)s)[2]) ))) - (((0xA8)) \| 0))) <= (((U64) ((((0xA9) - (0xA8))) \| 0 ))))) : ( ( (((U64) (((((U64) (((const U8)s)[2])))) - (((0xA8 )) \| 0))) <= (((U64) ((((0xA9) - (0xA8))) \| 0)))))))) \|\| 0xAF == ((const U8)s)[2] ) ? 3 : 0 ) : ( ( 0x81 == ((const U8)s )[1] ) && ( 0x9F == ((const U8)s)[2] ) ) ? 3 : 0 ): ( ( ( 0xE3 == ((const U8)s)[0] ) && ( 0x80 == ((const U8)s)[1] ) ) && ( 0x80 == ((const U8)s)[2] ) ) ? 3 : 0 ))));
5906	#line 5907 "RealPPPort.c"
5907	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5908	}
5909	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5910	}
5911
5912
5913	XS_EUPXS(XS_Devel__PPPort_isUPPER_LC_utf8_safe)static void XS_Devel__PPPort_isUPPER_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5914	XS_EUPXS(XS_Devel__PPPort_isUPPER_LC_utf8_safe)static void XS_Devel__PPPort_isUPPER_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5915	{
5916	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5917	if (items != 2)
5918	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5919	{
5920	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5921	;
5922	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5923	;
5924	bool_Bool RETVAL;
5925	#line 2888 "RealPPPort.xs"
5926	RETVAL = isUPPER_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (4))) ? (_Bool)1 : (_Bool)0) : ((isupper( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( ( sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ((( ((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (4))) ? (_Bool)1 : (_Bool)0) : ( (isupper( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 4,s,s + PL_utf8skip[(const U8 *)(s)] + offset)));
5927	#line 5928 "RealPPPort.c"
5928	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5929	}
5930	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5931	}
5932
5933
5934	XS_EUPXS(XS_Devel__PPPort_isWORDCHAR_LC_utf8_safe)static void XS_Devel__PPPort_isWORDCHAR_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5935	XS_EUPXS(XS_Devel__PPPort_isWORDCHAR_LC_utf8_safe)static void XS_Devel__PPPort_isWORDCHAR_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5936	{
5937	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5938	if (items != 2)
5939	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5940	{
5941	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5942	;
5943	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5944	;
5945	bool_Bool RETVAL;
5946	#line 2897 "RealPPPort.xs"
5947	RETVAL = isWORDCHAR_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (0))) ? (_Bool)1 : (_Bool)0) : (((isalnum( (U8) ((s))) \|\| (char)((s)) == '_')) ? (_Bool )1 : (_Bool)0)) : (( ( ( (sizeof(( ((U8) (((s)) \| 0)))) == sizeof (U8)) ? ( (((U64) (((((U8) (( ((U8) (((s)) \| 0))))))) - (((( ((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= ( ((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6 )) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) )) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7 ) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect((((s + PL_utf8skip[(const U8 )(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s) +1)) \| 0))) & ((U8) (0xFF << 6))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7 ) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2)))) ) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ( (1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass[(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0 ))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (0))) ? (_Bool)1 : ( _Bool)0) : (((isalnum( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s) ) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2) )))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8 ) ((1U << 6) - 1))))) \| 0)))))) \|\| (char)(( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) == '_') ) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : Perl__is_utf8_FOO( 0,s,s + PL_utf8skip[(const U8 *)(s)] + offset)));
5948	#line 5949 "RealPPPort.c"
5949	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5950	}
5951	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5952	}
5953
5954
5955	XS_EUPXS(XS_Devel__PPPort_isXDIGIT_LC_utf8_safe)static void XS_Devel__PPPort_isXDIGIT_LC_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5956	XS_EUPXS(XS_Devel__PPPort_isXDIGIT_LC_utf8_safe)static void XS_Devel__PPPort_isXDIGIT_LC_utf8_safe( CV* cv __attribute__ ((unused)))
5957	{
5958	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5959	if (items != 2)
5960	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5961	{
5962	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5963	;
5964	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5965	;
5966	bool_Bool RETVAL;
5967	#line 2906 "RealPPPort.xs"
5968	RETVAL = isXDIGIT_LC_utf8_safe(s, s + UTF8SKIP(s) + offset)( (((((U64)(((UV) ((((s)) \| 0) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)))) ? (! ( (sizeof((s)) == 1) \|\| !(((U64)((* (s)) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) ((s))] & (1U << (12))) ? (_Bool)1 : (_Bool)0 ) : ((isxdigit( (U8) ((s)))) ? (_Bool)1 : (_Bool)0)) : (( ( ( (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U8)) ? ( (((U64) ( ((((U8) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2)))))))) \| 0))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2))))))))) \| 0))))) : (sizeof(( ((U8) (((s)) \| 0)))) == sizeof(U32)) ? ( (((U64) (((((U32) (( ((U8) (((s)) \| 0))))))) - ((((((((U8) ( 0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0))) <= (((U64) (( ((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) ))) \| 0))))) : ( ( (((U64) (((((U64) (( ((U8) (((s)) \| 0)))) ))) - ((((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))))) \| 0 ))) <= (((U64) ((((((0x100 >> 6) \| (((2) > 7) ? 0xFF : ((U8) (0xFE << (7-(2)))))) - 1) - ((((((U8) (0xFF << 6)) & 0xB0) >> 6) \| (((2) > 7) ? 0xFF : ((U8) ( 0xFE << (7-(2))))))))) \| 0))))))))) ? ((__builtin_expect ((((s + PL_utf8skip[(const U8)(s)] + offset) - (s) > 1 && ( (((( ((U8) ((((s)+1)) \| 0))) & ((U8) (0xFF << 6 ))) == (((U8) (0xFF << 6)) & 0xB0))))) ? (_Bool)1 : (_Bool)0),(1))) ? (! ( (sizeof(( ( ((U8) ((( ((( ( ((U8) ((* (s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2) -2))))) << 6) \| ((( ((U8) (((((s)+1))) \| 0)))) & ( (U8) ((1U << 6) - 1))))) \| 0))))) == 1) \|\| !(((U64)((( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8) (((((s )+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))) \| 0)) & ~0xFF)) ? 0 : PL_in_utf8_CTYPE_locale ? ((PL_charclass [(U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6) \| ((( ((U8 ) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0)))))] & (1U << (12))) ? (_Bool)1 : (_Bool)0) : ((isxdigit( (U8) (( ( ((U8) ((( ((( ( ((U8) (((s)) \| 0))) & (((2) >= 7) ? 0x00 : (0x1F >> ((2)-2))))) << 6 ) \| ((( ((U8) (((((s)+1))) \| 0)))) & ((U8) ((1U << 6) - 1))))) \| 0))))))) ? (_Bool)1 : (_Bool)0)) : (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0)) : (__builtin_expect((((s + PL_utf8skip[(const U8 )(s)] + offset) - (s) < PL_utf8skip[(const U8)(s)]) ? ( _Bool)1 : (_Bool)0),(0)) ? (Perl__force_out_malformed_utf8_message ( (U8 ) (s),(U8 ) (s + PL_utf8skip[(const U8)(s)] + offset ),0,1), 0) : ( ( 0xEF == ((const U8)s)[0] ) ? ( ( 0xBC == (( const U8)s)[1] ) ? ( ( ( ( (sizeof(((const U8)s)[2]) == sizeof (U8)) ? ( (((U64) (((((U8) (((const U8)s)[2])))) - (((0x90)) \| 0))) <= (((U64) ((((0x99) - (0x90))) \| 0))))) : (sizeof (((const U8)s)[2]) == sizeof(U32)) ? ( (((U64) (((((U32) ((( const U8)s)[2])))) - (((0x90)) \| 0))) <= (((U64) ((((0x99 ) - (0x90))) \| 0))))) : ( ( (((U64) (((((U64) (((const U8)s) [2])))) - (((0x90)) \| 0))) <= (((U64) ((((0x99) - (0x90))) \| 0)))))))) \|\| ( ( (sizeof(((const U8)s)[2]) == sizeof(U8)) ? ( (((U64) (((((U8) (((const U8)s)[2])))) - (((0xA1)) \| 0) )) <= (((U64) ((((0xA6) - (0xA1))) \| 0))))) : (sizeof(((const U8)s)[2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8 )s)[2])))) - (((0xA1)) \| 0))) <= (((U64) ((((0xA6) - (0xA1 ))) \| 0))))) : ( ( (((U64) (((((U64) (((const U8)s)[2])))) - (((0xA1)) \| 0))) <= (((U64) ((((0xA6) - (0xA1))) \| 0))))) ))) ) ? 3 : 0 ) : ( ( 0xBD == ((const U8)s)[1] ) && ( ( ( (sizeof(((const U8)s)[2]) == sizeof(U8)) ? ( (((U64) (( (((U8) (((const U8)s)[2])))) - (((0x81)) \| 0))) <= (((U64 ) ((((0x86) - (0x81))) \| 0))))) : (sizeof(((const U8)s)[2]) == sizeof(U32)) ? ( (((U64) (((((U32) (((const U8)s)[2])))) - ( ((0x81)) \| 0))) <= (((U64) ((((0x86) - (0x81))) \| 0))))) : ( ( (((U64) (((((U64) (((const U8*)s)[2])))) - (((0x81)) \| 0 ))) <= (((U64) ((((0x86) - (0x81))) \| 0)))))))) ) ) ? 3 : 0 ): 0 ))));
5969	#line 5970 "RealPPPort.c"
5970	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
5971	}
5972	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
5973	}
5974
5975
5976	XS_EUPXS(XS_Devel__PPPort_toLOWER_utf8_safe)static void XS_Devel__PPPort_toLOWER_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
5977	XS_EUPXS(XS_Devel__PPPort_toLOWER_utf8_safe)static void XS_Devel__PPPort_toLOWER_utf8_safe( CV* cv __attribute__ ((unused)))
5978	{
5979	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
5980	if (items != 2)
5981	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
5982	{
5983	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
5984	;
5985	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
5986	;
5987	#line 2915 "RealPPPort.xs"
5988	U8 u[UTF8_MAXBYTES13+1];
5989	Size_tsize_t len;
5990	UV ret;
5991	SV* utf8;
5992	AV * av;
5993	#line 5994 "RealPPPort.c"
5994	AV * RETVAL;
5995	#line 2921 "RealPPPort.xs"
5996	av = newAV()((AV )({ void _p = (Perl_newSV_type( SVt_PVAV)); _p; }));
5997	ret = toLOWER_utf8_safe(s, s + UTF8SKIP(s) + offset, u, &len)Perl__to_utf8_lower_flags( s,s + PL_utf8skip[(const U8)(s)] + offset,u,&len,0);
5998	av_push(av, newSVuv(ret))Perl_av_push( av,Perl_newSVuv( ret));
5999
6000	utf8 = newSVpvn((char ) u, len)Perl_newSVpvn( (char ) u,len);
6001	SvUTF8_on(utf8)((utf8)->sv_flags \|= (0x20000000));
6002	av_push(av, utf8)Perl_av_push( av,utf8);
6003
6004	av_push(av, newSVuv(len))Perl_av_push( av,Perl_newSVuv( len));
6005	RETVAL = av;
6006	#line 6007 "RealPPPort.c"
6007	{
6008	SV * RETVALSV;
6009	RETVALSV = newRV((SV)RETVAL)Perl_newRV( (SV)RETVAL);
6010	RETVALSV = sv_2mortal(RETVALSV)Perl_sv_2mortal( RETVALSV);
6011	ST(0)PL_stack_base[ax + (0)] = RETVALSV;
6012	}
6013	}
6014	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6015	}
6016
6017
6018	XS_EUPXS(XS_Devel__PPPort_toTITLE_utf8_safe)static void XS_Devel__PPPort_toTITLE_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6019	XS_EUPXS(XS_Devel__PPPort_toTITLE_utf8_safe)static void XS_Devel__PPPort_toTITLE_utf8_safe( CV* cv __attribute__ ((unused)))
6020	{
6021	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6022	if (items != 2)
6023	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
6024	{
6025	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
6026	;
6027	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
6028	;
6029	#line 2939 "RealPPPort.xs"
6030	U8 u[UTF8_MAXBYTES13+1];
6031	Size_tsize_t len;
6032	UV ret;
6033	SV* utf8;
6034	AV * av;
6035	#line 6036 "RealPPPort.c"
6036	AV * RETVAL;
6037	#line 2945 "RealPPPort.xs"
6038	av = newAV()((AV )({ void _p = (Perl_newSV_type( SVt_PVAV)); _p; }));
6039	ret = toTITLE_utf8_safe(s, s + UTF8SKIP(s) + offset, u, &len)Perl__to_utf8_title_flags( s,s + PL_utf8skip[(const U8)(s)] + offset,u,&len,0);
6040	av_push(av, newSVuv(ret))Perl_av_push( av,Perl_newSVuv( ret));
6041
6042	utf8 = newSVpvn((char ) u, len)Perl_newSVpvn( (char ) u,len);
6043	SvUTF8_on(utf8)((utf8)->sv_flags \|= (0x20000000));
6044	av_push(av, utf8)Perl_av_push( av,utf8);
6045
6046	av_push(av, newSVuv(len))Perl_av_push( av,Perl_newSVuv( len));
6047	RETVAL = av;
6048	#line 6049 "RealPPPort.c"
6049	{
6050	SV * RETVALSV;
6051	RETVALSV = newRV((SV)RETVAL)Perl_newRV( (SV)RETVAL);
6052	RETVALSV = sv_2mortal(RETVALSV)Perl_sv_2mortal( RETVALSV);
6053	ST(0)PL_stack_base[ax + (0)] = RETVALSV;
6054	}
6055	}
6056	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6057	}
6058
6059
6060	XS_EUPXS(XS_Devel__PPPort_toUPPER_utf8_safe)static void XS_Devel__PPPort_toUPPER_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6061	XS_EUPXS(XS_Devel__PPPort_toUPPER_utf8_safe)static void XS_Devel__PPPort_toUPPER_utf8_safe( CV* cv __attribute__ ((unused)))
6062	{
6063	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6064	if (items != 2)
6065	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
6066	{
6067	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
6068	;
6069	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
6070	;
6071	#line 2963 "RealPPPort.xs"
6072	U8 u[UTF8_MAXBYTES13+1];
6073	Size_tsize_t len;
6074	UV ret;
6075	SV* utf8;
6076	AV * av;
6077	#line 6078 "RealPPPort.c"
6078	AV * RETVAL;
6079	#line 2969 "RealPPPort.xs"
6080	av = newAV()((AV )({ void _p = (Perl_newSV_type( SVt_PVAV)); _p; }));
6081	ret = toUPPER_utf8_safe(s, s + UTF8SKIP(s) + offset, u, &len)Perl__to_utf8_upper_flags( s,s + PL_utf8skip[(const U8)(s)] + offset,u,&len,0);
6082	av_push(av, newSVuv(ret))Perl_av_push( av,Perl_newSVuv( ret));
6083
6084	utf8 = newSVpvn((char ) u, len)Perl_newSVpvn( (char ) u,len);
6085	SvUTF8_on(utf8)((utf8)->sv_flags \|= (0x20000000));
6086	av_push(av, utf8)Perl_av_push( av,utf8);
6087
6088	av_push(av, newSVuv(len))Perl_av_push( av,Perl_newSVuv( len));
6089	RETVAL = av;
6090	#line 6091 "RealPPPort.c"
6091	{
6092	SV * RETVALSV;
6093	RETVALSV = newRV((SV)RETVAL)Perl_newRV( (SV)RETVAL);
6094	RETVALSV = sv_2mortal(RETVALSV)Perl_sv_2mortal( RETVALSV);
6095	ST(0)PL_stack_base[ax + (0)] = RETVALSV;
6096	}
6097	}
6098	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6099	}
6100
6101
6102	XS_EUPXS(XS_Devel__PPPort_toFOLD_utf8_safe)static void XS_Devel__PPPort_toFOLD_utf8_safe( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6103	XS_EUPXS(XS_Devel__PPPort_toFOLD_utf8_safe)static void XS_Devel__PPPort_toFOLD_utf8_safe( CV* cv __attribute__ ((unused)))
6104	{
6105	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6106	if (items != 2)
6107	croak_xs_usagePerl_croak_xs_usage(cv, "s, offset");
6108	{
6109	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
6110	;
6111	int offset = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
6112	;
6113	#line 2987 "RealPPPort.xs"
6114	U8 u[UTF8_MAXBYTES13+1];
6115	Size_tsize_t len;
6116	UV ret;
6117	SV* utf8;
6118	AV * av;
6119	#line 6120 "RealPPPort.c"
6120	AV * RETVAL;
6121	#line 2993 "RealPPPort.xs"
6122	av = newAV()((AV )({ void _p = (Perl_newSV_type( SVt_PVAV)); _p; }));
6123	ret = toFOLD_utf8_safe(s, s + UTF8SKIP(s) + offset, u, &len)Perl__to_utf8_fold_flags( s,s + PL_utf8skip[(const U8)(s)] + offset,u,&len,0x2);
6124	av_push(av, newSVuv(ret))Perl_av_push( av,Perl_newSVuv( ret));
6125
6126	utf8 = newSVpvn((char ) u, len)Perl_newSVpvn( (char ) u,len);
6127	SvUTF8_on(utf8)((utf8)->sv_flags \|= (0x20000000));
6128	av_push(av, utf8)Perl_av_push( av,utf8);
6129
6130	av_push(av, newSVuv(len))Perl_av_push( av,Perl_newSVuv( len));
6131	RETVAL = av;
6132	#line 6133 "RealPPPort.c"
6133	{
6134	SV * RETVALSV;
6135	RETVALSV = newRV((SV)RETVAL)Perl_newRV( (SV)RETVAL);
6136	RETVALSV = sv_2mortal(RETVALSV)Perl_sv_2mortal( RETVALSV);
6137	ST(0)PL_stack_base[ax + (0)] = RETVALSV;
6138	}
6139	}
6140	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6141	}
6142
6143
6144	XS_EUPXS(XS_Devel__PPPort_toLOWER_uvchr)static void XS_Devel__PPPort_toLOWER_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6145	XS_EUPXS(XS_Devel__PPPort_toLOWER_uvchr)static void XS_Devel__PPPort_toLOWER_uvchr( CV* cv __attribute__ ((unused)))
6146	{
6147	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6148	if (items != 1)
6149	croak_xs_usagePerl_croak_xs_usage(cv, "c");
6150	{
6151	UV c = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
6152	;
6153	#line 3010 "RealPPPort.xs"
6154	U8 u[UTF8_MAXBYTES13+1];
6155	Size_tsize_t len;
6156	UV ret;
6157	SV* utf8;
6158	AV * av;
6159	#line 6160 "RealPPPort.c"
6160	AV * RETVAL;
6161	#line 3016 "RealPPPort.xs"
6162	av = newAV()((AV )({ void _p = (Perl_newSV_type( SVt_PVAV)); _p; }));
6163	ret = toLOWER_uvchr(c, u, &len)Perl_to_uni_lower( c,u,&len);
6164	av_push(av, newSVuv(ret))Perl_av_push( av,Perl_newSVuv( ret));
6165
6166	utf8 = newSVpvn((char ) u, len)Perl_newSVpvn( (char ) u,len);
6167	SvUTF8_on(utf8)((utf8)->sv_flags \|= (0x20000000));
6168	av_push(av, utf8)Perl_av_push( av,utf8);
6169
6170	av_push(av, newSVuv(len))Perl_av_push( av,Perl_newSVuv( len));
6171	RETVAL = av;
6172	#line 6173 "RealPPPort.c"
6173	{
6174	SV * RETVALSV;
6175	RETVALSV = newRV((SV)RETVAL)Perl_newRV( (SV)RETVAL);
6176	RETVALSV = sv_2mortal(RETVALSV)Perl_sv_2mortal( RETVALSV);
6177	ST(0)PL_stack_base[ax + (0)] = RETVALSV;
6178	}
6179	}
6180	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6181	}
6182
6183
6184	XS_EUPXS(XS_Devel__PPPort_toTITLE_uvchr)static void XS_Devel__PPPort_toTITLE_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6185	XS_EUPXS(XS_Devel__PPPort_toTITLE_uvchr)static void XS_Devel__PPPort_toTITLE_uvchr( CV* cv __attribute__ ((unused)))
6186	{
6187	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6188	if (items != 1)
6189	croak_xs_usagePerl_croak_xs_usage(cv, "c");
6190	{
6191	UV c = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
6192	;
6193	#line 3033 "RealPPPort.xs"
6194	U8 u[UTF8_MAXBYTES13+1];
6195	Size_tsize_t len;
6196	UV ret;
6197	SV* utf8;
6198	AV * av;
6199	#line 6200 "RealPPPort.c"
6200	AV * RETVAL;
6201	#line 3039 "RealPPPort.xs"
6202	av = newAV()((AV )({ void _p = (Perl_newSV_type( SVt_PVAV)); _p; }));
6203	ret = toTITLE_uvchr(c, u, &len)Perl_to_uni_title( c,u,&len);
6204	av_push(av, newSVuv(ret))Perl_av_push( av,Perl_newSVuv( ret));
6205
6206	utf8 = newSVpvn((char ) u, len)Perl_newSVpvn( (char ) u,len);
6207	SvUTF8_on(utf8)((utf8)->sv_flags \|= (0x20000000));
6208	av_push(av, utf8)Perl_av_push( av,utf8);
6209
6210	av_push(av, newSVuv(len))Perl_av_push( av,Perl_newSVuv( len));
6211	RETVAL = av;
6212	#line 6213 "RealPPPort.c"
6213	{
6214	SV * RETVALSV;
6215	RETVALSV = newRV((SV)RETVAL)Perl_newRV( (SV)RETVAL);
6216	RETVALSV = sv_2mortal(RETVALSV)Perl_sv_2mortal( RETVALSV);
6217	ST(0)PL_stack_base[ax + (0)] = RETVALSV;
6218	}
6219	}
6220	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6221	}
6222
6223
6224	XS_EUPXS(XS_Devel__PPPort_toUPPER_uvchr)static void XS_Devel__PPPort_toUPPER_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6225	XS_EUPXS(XS_Devel__PPPort_toUPPER_uvchr)static void XS_Devel__PPPort_toUPPER_uvchr( CV* cv __attribute__ ((unused)))
6226	{
6227	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6228	if (items != 1)
6229	croak_xs_usagePerl_croak_xs_usage(cv, "c");
6230	{
6231	UV c = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
6232	;
6233	#line 3056 "RealPPPort.xs"
6234	U8 u[UTF8_MAXBYTES13+1];
6235	Size_tsize_t len;
6236	UV ret;
6237	SV* utf8;
6238	AV * av;
6239	#line 6240 "RealPPPort.c"
6240	AV * RETVAL;
6241	#line 3062 "RealPPPort.xs"
6242	av = newAV()((AV )({ void _p = (Perl_newSV_type( SVt_PVAV)); _p; }));
6243	ret = toUPPER_uvchr(c, u, &len)Perl_to_uni_upper( c,u,&len);
6244	av_push(av, newSVuv(ret))Perl_av_push( av,Perl_newSVuv( ret));
6245
6246	utf8 = newSVpvn((char ) u, len)Perl_newSVpvn( (char ) u,len);
6247	SvUTF8_on(utf8)((utf8)->sv_flags \|= (0x20000000));
6248	av_push(av, utf8)Perl_av_push( av,utf8);
6249
6250	av_push(av, newSVuv(len))Perl_av_push( av,Perl_newSVuv( len));
6251	RETVAL = av;
6252	#line 6253 "RealPPPort.c"
6253	{
6254	SV * RETVALSV;
6255	RETVALSV = newRV((SV)RETVAL)Perl_newRV( (SV)RETVAL);
6256	RETVALSV = sv_2mortal(RETVALSV)Perl_sv_2mortal( RETVALSV);
6257	ST(0)PL_stack_base[ax + (0)] = RETVALSV;
6258	}
6259	}
6260	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6261	}
6262
6263
6264	XS_EUPXS(XS_Devel__PPPort_toFOLD_uvchr)static void XS_Devel__PPPort_toFOLD_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6265	XS_EUPXS(XS_Devel__PPPort_toFOLD_uvchr)static void XS_Devel__PPPort_toFOLD_uvchr( CV* cv __attribute__ ((unused)))
6266	{
6267	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6268	if (items != 1)
6269	croak_xs_usagePerl_croak_xs_usage(cv, "c");
6270	{
6271	UV c = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
6272	;
6273	#line 3079 "RealPPPort.xs"
6274	U8 u[UTF8_MAXBYTES13+1];
6275	Size_tsize_t len;
6276	UV ret;
6277	SV* utf8;
6278	AV * av;
6279	#line 6280 "RealPPPort.c"
6280	AV * RETVAL;
6281	#line 3085 "RealPPPort.xs"
6282	av = newAV()((AV )({ void _p = (Perl_newSV_type( SVt_PVAV)); _p; }));
6283	ret = toFOLD_uvchr(c, u, &len)Perl__to_uni_fold_flags( c,u,&len,0x2);
6284	av_push(av, newSVuv(ret))Perl_av_push( av,Perl_newSVuv( ret));
6285
6286	utf8 = newSVpvn((char ) u, len)Perl_newSVpvn( (char ) u,len);
6287	SvUTF8_on(utf8)((utf8)->sv_flags \|= (0x20000000));
6288	av_push(av, utf8)Perl_av_push( av,utf8);
6289
6290	av_push(av, newSVuv(len))Perl_av_push( av,Perl_newSVuv( len));
6291	RETVAL = av;
6292	#line 6293 "RealPPPort.c"
6293	{
6294	SV * RETVALSV;
6295	RETVALSV = newRV((SV)RETVAL)Perl_newRV( (SV)RETVAL);
6296	RETVALSV = sv_2mortal(RETVALSV)Perl_sv_2mortal( RETVALSV);
6297	ST(0)PL_stack_base[ax + (0)] = RETVALSV;
6298	}
6299	}
6300	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6301	}
6302
6303	#endif
6304
6305	XS_EUPXS(XS_Devel__PPPort_LATIN1_TO_NATIVE)static void XS_Devel__PPPort_LATIN1_TO_NATIVE( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6306	XS_EUPXS(XS_Devel__PPPort_LATIN1_TO_NATIVE)static void XS_Devel__PPPort_LATIN1_TO_NATIVE( CV* cv __attribute__ ((unused)))
6307	{
6308	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6309	if (items != 1)
6310	croak_xs_usagePerl_croak_xs_usage(cv, "cp");
6311	{
6312	UV cp = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
6313	;
6314	UV RETVAL;
6315	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
6316	#line 3104 "RealPPPort.xs"
6317	if (cp > 255) RETVAL= cp;
6318	else RETVAL= LATIN1_TO_NATIVE(cp)( ((U8) ((cp) \| 0)));
6319	#line 6320 "RealPPPort.c"
6320	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
6321	}
6322	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6323	}
6324
6325
6326	XS_EUPXS(XS_Devel__PPPort_NATIVE_TO_LATIN1)static void XS_Devel__PPPort_NATIVE_TO_LATIN1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6327	XS_EUPXS(XS_Devel__PPPort_NATIVE_TO_LATIN1)static void XS_Devel__PPPort_NATIVE_TO_LATIN1( CV* cv __attribute__ ((unused)))
6328	{
6329	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6330	if (items != 1)
6331	croak_xs_usagePerl_croak_xs_usage(cv, "cp");
6332	{
6333	UV cp = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
6334	;
6335	UV RETVAL;
6336	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
6337	#line 3113 "RealPPPort.xs"
6338	RETVAL= NATIVE_TO_LATIN1(cp)( ((U8) ((cp) \| 0)));
6339	#line 6340 "RealPPPort.c"
6340	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
6341	}
6342	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6343	}
6344
6345
6346	XS_EUPXS(XS_Devel__PPPort_av_tindex)static void XS_Devel__PPPort_av_tindex( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
6347	XS_EUPXS(XS_Devel__PPPort_av_tindex)static void XS_Devel__PPPort_av_tindex( CV* cv __attribute__( (unused)))
6348	{
6349	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6350	if (items != 1)
6351	croak_xs_usagePerl_croak_xs_usage(cv, "av");
6352	{
6353	SV * av = ST(0)PL_stack_base[ax + (0)]
6354	;
6355	STRLEN RETVAL;
6356	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
6357	#line 3121 "RealPPPort.xs"
6358	RETVAL = av_tindex((AV)SvRV(av))Perl_av_top_index( (AV)((av)->sv_u.svu_rv));
6359	#line 6360 "RealPPPort.c"
6360	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
6361	}
6362	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6363	}
6364
6365
6366	XS_EUPXS(XS_Devel__PPPort_av_top_index)static void XS_Devel__PPPort_av_top_index( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6367	XS_EUPXS(XS_Devel__PPPort_av_top_index)static void XS_Devel__PPPort_av_top_index( CV* cv __attribute__ ((unused)))
6368	{
6369	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6370	if (items != 1)
6371	croak_xs_usagePerl_croak_xs_usage(cv, "av");
6372	{
6373	SV * av = ST(0)PL_stack_base[ax + (0)]
6374	;
6375	STRLEN RETVAL;
6376	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
6377	#line 3129 "RealPPPort.xs"
6378	RETVAL = av_top_index((AV)SvRV(av))Perl_av_top_index( (AV)((av)->sv_u.svu_rv));
6379	#line 6380 "RealPPPort.c"
6380	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
6381	}
6382	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6383	}
6384
6385
6386	XS_EUPXS(XS_Devel__PPPort_call_newCONSTSUB_1)static void XS_Devel__PPPort_call_newCONSTSUB_1( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6387	XS_EUPXS(XS_Devel__PPPort_call_newCONSTSUB_1)static void XS_Devel__PPPort_call_newCONSTSUB_1( CV* cv __attribute__ ((unused)))
6388	{
6389	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6390	if (items != 0)
6391	croak_xs_usagePerl_croak_xs_usage(cv, "");
6392	{
6393
6394	call_newCONSTSUB_1();
6395	}
6396	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
6397	}
6398
6399
6400	XS_EUPXS(XS_Devel__PPPort_call_newCONSTSUB_2)static void XS_Devel__PPPort_call_newCONSTSUB_2( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6401	XS_EUPXS(XS_Devel__PPPort_call_newCONSTSUB_2)static void XS_Devel__PPPort_call_newCONSTSUB_2( CV* cv __attribute__ ((unused)))
6402	{
6403	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6404	if (items != 0)
6405	croak_xs_usagePerl_croak_xs_usage(cv, "");
6406	{
6407
6408	call_newCONSTSUB_2();
6409	}
6410	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
6411	}
6412
6413
6414	XS_EUPXS(XS_Devel__PPPort_call_newCONSTSUB_3)static void XS_Devel__PPPort_call_newCONSTSUB_3( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6415	XS_EUPXS(XS_Devel__PPPort_call_newCONSTSUB_3)static void XS_Devel__PPPort_call_newCONSTSUB_3( CV* cv __attribute__ ((unused)))
6416	{
6417	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6418	if (items != 0)
6419	croak_xs_usagePerl_croak_xs_usage(cv, "");
6420	{
6421
6422	call_newCONSTSUB_3();
6423	}
6424	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
6425	}
6426
6427
6428	XS_EUPXS(XS_Devel__PPPort_newRV_inc_REFCNT)static void XS_Devel__PPPort_newRV_inc_REFCNT( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6429	XS_EUPXS(XS_Devel__PPPort_newRV_inc_REFCNT)static void XS_Devel__PPPort_newRV_inc_REFCNT( CV* cv __attribute__ ((unused)))
6430	{
6431	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6432	if (items != 0)
6433	croak_xs_usagePerl_croak_xs_usage(cv, "");
6434	{
6435	#line 3153 "RealPPPort.xs"
6436	SV sv, rv;
6437	#line 6438 "RealPPPort.c"
6438	U32 RETVAL;
6439	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
6440	#line 3155 "RealPPPort.xs"
6441	sv = newSViv(42)Perl_newSViv( 42);
6442	rv = newRV_inc(sv)Perl_newRV( sv);
6443	SvREFCNT_dec(sv)Perl_SvREFCNT_dec( ((SV )({ void _p = (sv); _p; })));
6444	RETVAL = SvREFCNT(sv)(sv)->sv_refcnt;
6445	sv_2mortal(rv)Perl_sv_2mortal( rv);
6446	#line 6447 "RealPPPort.c"
6447	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
6448	}
6449	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6450	}
6451
6452
6453	XS_EUPXS(XS_Devel__PPPort_newRV_noinc_REFCNT)static void XS_Devel__PPPort_newRV_noinc_REFCNT( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6454	XS_EUPXS(XS_Devel__PPPort_newRV_noinc_REFCNT)static void XS_Devel__PPPort_newRV_noinc_REFCNT( CV* cv __attribute__ ((unused)))
6455	{
6456	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6457	if (items != 0)
6458	croak_xs_usagePerl_croak_xs_usage(cv, "");
6459	{
6460	#line 3166 "RealPPPort.xs"
6461	SV sv, rv;
6462	#line 6463 "RealPPPort.c"
6463	U32 RETVAL;
6464	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
6465	#line 3168 "RealPPPort.xs"
6466	sv = newSViv(42)Perl_newSViv( 42);
6467	rv = newRV_noinc(sv)Perl_newRV_noinc( sv);
6468	RETVAL = SvREFCNT(sv)(sv)->sv_refcnt;
6469	sv_2mortal(rv)Perl_sv_2mortal( rv);
6470	#line 6471 "RealPPPort.c"
6471	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
6472	}
6473	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6474	}
6475
6476
6477	XS_EUPXS(XS_Devel__PPPort_newSV_type)static void XS_Devel__PPPort_newSV_type( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6478	XS_EUPXS(XS_Devel__PPPort_newSV_type)static void XS_Devel__PPPort_newSV_type( CV* cv __attribute__ ((unused)))
6479	{
6480	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6481	if (items != 0)
6482	croak_xs_usagePerl_croak_xs_usage(cv, "");
6483	{
6484	#line 3182 "RealPPPort.xs"
6485	SV* sv;
6486	#line 6487 "RealPPPort.c"
6487	int RETVAL;
6488	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
6489	#line 3184 "RealPPPort.xs"
6490	RETVAL = 0;
6491	sv = newSV_type(SVt_NULL)Perl_newSV_type( SVt_NULL);
6492	if (SvTYPE(sv)((svtype)((sv)->sv_flags & 0xff)) == SVt_NULL)
6493	{
6494	RETVAL++;
6495	}
6496	SvREFCNT_dec(sv)Perl_SvREFCNT_dec( ((SV )({ void _p = (sv); _p; })));
6497
6498	sv = newSV_type(SVt_PVIV)Perl_newSV_type( SVt_PVIV);
6499	if (SvTYPE(sv)((svtype)((sv)->sv_flags & 0xff)) == SVt_PVIV)
6500	{
6501	RETVAL++;
6502	}
6503	SvREFCNT_dec(sv)Perl_SvREFCNT_dec( ((SV )({ void _p = (sv); _p; })));
6504
6505	sv = newSV_type(SVt_PVHV)Perl_newSV_type( SVt_PVHV);
6506	if (SvTYPE(sv)((svtype)((sv)->sv_flags & 0xff)) == SVt_PVHV)
6507	{
6508	RETVAL++;
6509	}
6510	SvREFCNT_dec(sv)Perl_SvREFCNT_dec( ((SV )({ void _p = (sv); _p; })));
6511
6512	sv = newSV_type(SVt_PVAV)Perl_newSV_type( SVt_PVAV);
6513	if (SvTYPE(sv)((svtype)((sv)->sv_flags & 0xff)) == SVt_PVAV)
6514	{
6515	RETVAL++;
6516	}
6517	SvREFCNT_dec(sv)Perl_SvREFCNT_dec( ((SV )({ void _p = (sv); _p; })));
6518	#line 6519 "RealPPPort.c"
6519	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
6520	}
6521	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6522	}
6523
6524
6525	XS_EUPXS(XS_Devel__PPPort_newSVpvn)static void XS_Devel__PPPort_newSVpvn( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
6526	XS_EUPXS(XS_Devel__PPPort_newSVpvn)static void XS_Devel__PPPort_newSVpvn( CV* cv __attribute__(( unused)))
6527	{
6528	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6529	if (items != 0)
6530	croak_xs_usagePerl_croak_xs_usage(cv, "");
6531	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6532	SPsp -= items;
6533	{
6534	#line 3222 "RealPPPort.xs"
6535	mXPUSHs(newSVpvn("test", 4))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpvn( "test",4))); } while ( 0);
6536	mXPUSHs(newSVpvn("test", 2))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpvn( "test",2))); } while ( 0);
6537	mXPUSHs(newSVpvn("test", 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpvn( "test",0))); } while ( 0);
6538	mXPUSHs(newSVpvn(NULL, 2))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpvn( ((void*)0),2))); } while (0);
6539	mXPUSHs(newSVpvn(NULL, 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpvn( ((void*)0),0))); } while (0);
6540	XSRETURN(5)do { const IV tmpXSoff = (5); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6541	#line 6542 "RealPPPort.c"
6542	PUTBACKPL_stack_sp = sp;
6543	return;
6544	}
6545	}
6546
6547
6548	XS_EUPXS(XS_Devel__PPPort_newSVpvn_flags)static void XS_Devel__PPPort_newSVpvn_flags( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6549	XS_EUPXS(XS_Devel__PPPort_newSVpvn_flags)static void XS_Devel__PPPort_newSVpvn_flags( CV* cv __attribute__ ((unused)))
6550	{
6551	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6552	if (items != 0)
6553	croak_xs_usagePerl_croak_xs_usage(cv, "");
6554	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6555	SPsp -= items;
6556	{
6557	#line 3232 "RealPPPort.xs"
6558	XPUSHs(newSVpvn_flags("test", 4, SVs_TEMP))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_newSVpvn_flags( "test",4,0x00080000)); } while ( 0);
6559	XPUSHs(newSVpvn_flags("test", 2, SVs_TEMP))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_newSVpvn_flags( "test",2,0x00080000)); } while ( 0);
6560	XPUSHs(newSVpvn_flags("test", 0, SVs_TEMP))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_newSVpvn_flags( "test",0,0x00080000)); } while ( 0);
6561	XPUSHs(newSVpvn_flags(NULL, 2, SVs_TEMP))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_newSVpvn_flags( ((void*)0),2,0x00080000)); } while (0);
6562	XPUSHs(newSVpvn_flags(NULL, 0, SVs_TEMP))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_newSVpvn_flags( ((void*)0),0,0x00080000)); } while (0);
6563	XSRETURN(5)do { const IV tmpXSoff = (5); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6564	#line 6565 "RealPPPort.c"
6565	PUTBACKPL_stack_sp = sp;
6566	return;
6567	}
6568	}
6569
6570
6571	XS_EUPXS(XS_Devel__PPPort_newSVpvn_utf8)static void XS_Devel__PPPort_newSVpvn_utf8( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6572	XS_EUPXS(XS_Devel__PPPort_newSVpvn_utf8)static void XS_Devel__PPPort_newSVpvn_utf8( CV* cv __attribute__ ((unused)))
6573	{
6574	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6575	if (items != 0)
6576	croak_xs_usagePerl_croak_xs_usage(cv, "");
6577	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6578	SPsp -= items;
6579	{
6580	#line 3242 "RealPPPort.xs"
6581	XPUSHs(newSVpvn_flags("test", 4, SVs_TEMP\|SVf_UTF8))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_newSVpvn_flags( "test",4,0x00080000\|0x20000000)) ; } while (0);
6582	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6583	#line 6584 "RealPPPort.c"
6584	PUTBACKPL_stack_sp = sp;
6585	return;
6586	}
6587	}
6588
6589
6590	XS_EUPXS(XS_Devel__PPPort_pv_escape_can_unicode)static void XS_Devel__PPPort_pv_escape_can_unicode( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6591	XS_EUPXS(XS_Devel__PPPort_pv_escape_can_unicode)static void XS_Devel__PPPort_pv_escape_can_unicode( CV* cv __attribute__ ((unused)))
6592	{
6593	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6594	if (items != 0)
6595	croak_xs_usagePerl_croak_xs_usage(cv, "");
6596	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6597	SPsp -= items;
6598	{
6599	#line 3252 "RealPPPort.xs"
6600	#if defined(is_utf8_string) && defined(utf8_to_uvchr_buf)
6601	XSRETURN_YESdo { (PL_stack_base[ax + (0)] = &(PL_sv_immortals[0]) ); do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
6602	#else
6603	XSRETURN_NOdo { (PL_stack_base[ax + (0)] = &(PL_sv_immortals[2]) ); do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
6604	#endif
6605	#line 6606 "RealPPPort.c"
6606	PUTBACKPL_stack_sp = sp;
6607	return;
6608	}
6609	}
6610
6611
6612	XS_EUPXS(XS_Devel__PPPort_pv_pretty)static void XS_Devel__PPPort_pv_pretty( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
6613	XS_EUPXS(XS_Devel__PPPort_pv_pretty)static void XS_Devel__PPPort_pv_pretty( CV* cv __attribute__( (unused)))
6614	{
6615	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6616	if (items != 0)
6617	croak_xs_usagePerl_croak_xs_usage(cv, "");
6618	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6619	SPsp -= items;
6620	{
6621	#line 3261 "RealPPPort.xs"
6622	char *rv;
6623	#line 6624 "RealPPPort.c"
6624	#line 3263 "RealPPPort.xs"
6625	EXTEND(SP, 8)do { (void)0; if (__builtin_expect(((((8) < 0 \|\| PL_stack_max - (sp) < (8))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(8) > sizeof(ssize_t) && ((ssize_t) (8) != (8)) ? -1 : (8))); ((void)sizeof(sp)); } } while (0);
6626	ST(0)PL_stack_base[ax + (0)] = sv_newmortal()Perl_sv_newmortal();
6627	rv = pv_pretty(ST(0), "foobarbaz",Perl_pv_pretty( PL_stack_base[ax + (0)],"foobarbaz",9,40,((void )0),((void)0),0)
6628	9, 40, NULL, NULL, 0)Perl_pv_pretty( PL_stack_base[ax + (0)],"foobarbaz",9,40,((void )0),((void)0),0);
6629	ST(1)PL_stack_base[ax + (1)] = sv_2mortal(newSVpv(rv, 0))Perl_sv_2mortal( Perl_newSVpv( rv,0));
6630	ST(2)PL_stack_base[ax + (2)] = sv_newmortal()Perl_sv_newmortal();
6631	rv = pv_pretty(ST(2), "pv_p\retty\n",Perl_pv_pretty( PL_stack_base[ax + (2)],"pv_p\retty\n",10,40, "left","right",0x000004)
6632	10, 40, "left", "right", PERL_PV_PRETTY_LTGT)Perl_pv_pretty( PL_stack_base[ax + (2)],"pv_p\retty\n",10,40, "left","right",0x000004);
6633	ST(3)PL_stack_base[ax + (3)] = sv_2mortal(newSVpv(rv, 0))Perl_sv_2mortal( Perl_newSVpv( rv,0));
6634	ST(4)PL_stack_base[ax + (4)] = sv_newmortal()Perl_sv_newmortal();
6635	rv = pv_pretty(ST(4), "N\303\275 Batter\303\255",Perl_pv_pretty( PL_stack_base[ax + (4)],"N\303\275 Batter\303\255" ,12,20,((void)0),((void)0),0x000200)
6636	12, 20, NULL, NULL, PERL_PV_ESCAPE_UNI_DETECT)Perl_pv_pretty( PL_stack_base[ax + (4)],"N\303\275 Batter\303\255" ,12,20,((void)0),((void)0),0x000200);
6637	ST(5)PL_stack_base[ax + (5)] = sv_2mortal(newSVpv(rv, 0))Perl_sv_2mortal( Perl_newSVpv( rv,0));
6638	ST(6)PL_stack_base[ax + (6)] = sv_newmortal()Perl_sv_newmortal();
6639	rv = pv_pretty(ST(6), "\303\201g\303\246tis Byrjun",Perl_pv_pretty( PL_stack_base[ax + (6)],"\303\201g\303\246tis Byrjun" ,15,18,((void)0),((void)0),0x000200\|0x000002)
6640	15, 18, NULL, NULL, PERL_PV_ESCAPE_UNI_DETECT\|PERL_PV_PRETTY_ELLIPSES)Perl_pv_pretty( PL_stack_base[ax + (6)],"\303\201g\303\246tis Byrjun" ,15,18,((void)0),((void)0),0x000200\|0x000002);
6641	ST(7)PL_stack_base[ax + (7)] = sv_2mortal(newSVpv(rv, 0))Perl_sv_2mortal( Perl_newSVpv( rv,0));
6642	XSRETURN(8)do { const IV tmpXSoff = (8); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6643	#line 6644 "RealPPPort.c"
6644	PUTBACKPL_stack_sp = sp;
6645	return;
6646	}
6647	}
6648
6649
6650	XS_EUPXS(XS_Devel__PPPort_pv_display)static void XS_Devel__PPPort_pv_display( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6651	XS_EUPXS(XS_Devel__PPPort_pv_display)static void XS_Devel__PPPort_pv_display( CV* cv __attribute__ ((unused)))
6652	{
6653	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6654	if (items != 0)
6655	croak_xs_usagePerl_croak_xs_usage(cv, "");
6656	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6657	SPsp -= items;
6658	{
6659	#line 3285 "RealPPPort.xs"
6660	char *rv;
6661	#line 6662 "RealPPPort.c"
6662	#line 3287 "RealPPPort.xs"
6663	EXTEND(SP, 4)do { (void)0; if (__builtin_expect(((((4) < 0 \|\| PL_stack_max - (sp) < (4))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(4) > sizeof(ssize_t) && ((ssize_t) (4) != (4)) ? -1 : (4))); ((void)sizeof(sp)); } } while (0);
6664	ST(0)PL_stack_base[ax + (0)] = sv_newmortal()Perl_sv_newmortal();
6665	rv = pv_display(ST(0), "foob\0rbaz", 9, 10, 20)Perl_pv_display( PL_stack_base[ax + (0)],"foob\0rbaz",9,10,20 );
6666	ST(1)PL_stack_base[ax + (1)] = sv_2mortal(newSVpv(rv, 0))Perl_sv_2mortal( Perl_newSVpv( rv,0));
6667	ST(2)PL_stack_base[ax + (2)] = sv_newmortal()Perl_sv_newmortal();
6668	rv = pv_display(ST(2), "pv_display", 10, 11, 5)Perl_pv_display( PL_stack_base[ax + (2)],"pv_display",10,11,5 );
6669	ST(3)PL_stack_base[ax + (3)] = sv_2mortal(newSVpv(rv, 0))Perl_sv_2mortal( Perl_newSVpv( rv,0));
6670	XSRETURN(4)do { const IV tmpXSoff = (4); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6671	#line 6672 "RealPPPort.c"
6672	PUTBACKPL_stack_sp = sp;
6673	return;
6674	}
6675	}
6676
6677
6678	XS_EUPXS(XS_Devel__PPPort_newSVpvs)static void XS_Devel__PPPort_newSVpvs( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
6679	XS_EUPXS(XS_Devel__PPPort_newSVpvs)static void XS_Devel__PPPort_newSVpvs( CV* cv __attribute__(( unused)))
6680	{
6681	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6682	if (items != 0)
6683	croak_xs_usagePerl_croak_xs_usage(cv, "");
6684	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6685	SPsp -= items;
6686	{
6687	#line 3303 "RealPPPort.xs"
6688	mXPUSHs(newSVpvs("newSVpvs"))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpvn( ("" "newSVpvs" ""), ( sizeof("newSVpvs")-1)))); } while (0);
6689	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6690	#line 6691 "RealPPPort.c"
6691	PUTBACKPL_stack_sp = sp;
6692	return;
6693	}
6694	}
6695
6696
6697	XS_EUPXS(XS_Devel__PPPort_newSVpvs_flags)static void XS_Devel__PPPort_newSVpvs_flags( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6698	XS_EUPXS(XS_Devel__PPPort_newSVpvs_flags)static void XS_Devel__PPPort_newSVpvs_flags( CV* cv __attribute__ ((unused)))
6699	{
6700	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6701	if (items != 0)
6702	croak_xs_usagePerl_croak_xs_usage(cv, "");
6703	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6704	SPsp -= items;
6705	{
6706	#line 3309 "RealPPPort.xs"
6707	XPUSHs(newSVpvs_flags("newSVpvs_flags", SVs_TEMP))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_newSVpvn_flags( ("" "newSVpvs_flags" ""), (sizeof ("newSVpvs_flags")-1), 0x00080000)); } while (0);
6708	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6709	#line 6710 "RealPPPort.c"
6710	PUTBACKPL_stack_sp = sp;
6711	return;
6712	}
6713	}
6714
6715
6716	XS_EUPXS(XS_Devel__PPPort_newSVpvs_share)static void XS_Devel__PPPort_newSVpvs_share( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6717	XS_EUPXS(XS_Devel__PPPort_newSVpvs_share)static void XS_Devel__PPPort_newSVpvs_share( CV* cv __attribute__ ((unused)))
6718	{
6719	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6720	if (items != 0)
6721	croak_xs_usagePerl_croak_xs_usage(cv, "");
6722	{
6723	#line 3315 "RealPPPort.xs"
6724	SV *sv;
6725	U32 hash;
6726	#line 6727 "RealPPPort.c"
6727	int RETVAL;
6728	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
6729	#line 3318 "RealPPPort.xs"
6730	RETVAL = 0;
6731	PERL_HASH(hash, "pvs", 3)(hash) = (__builtin_expect(((((3)) <= 24) ? (_Bool)1 : (_Bool )0),(1)) ? sbox32_hash_with_state(((((U8 )PL_hash_state_w)) + (sizeof(U64) 4)),(U8)((U8)((U8)("pvs"))),(((3)))) : (U32 )stadtx_hash_with_state((((((U8 )PL_hash_state_w)))),(U8)(( (U8)((U8*)("pvs")))),((((3))))));
6732	sv = newSVpvs_share("pvs")Perl_newSVpvn_share( ("" "pvs" ""), (sizeof("pvs")-1), 0);
6733	RETVAL += strEQ(SvPV_nolen_const(sv), "pvs")(strcmp(((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400) ? ((const char*)(0 + (sv)->sv_u.svu_pv)) : Perl_sv_2pv_flags ( sv,0,2\|32)),"pvs") == 0);
6734	RETVAL += SvCUR(sv)((XPV*) (sv)->sv_any)->xpv_cur == 3;
6735	RETVAL += SvSHARED_HASH(sv)(0 + ((struct hek)(((const char)(0 + (sv)->sv_u.svu_pv)) - __builtin_offsetof(struct hek, hek_key)))->hek_hash) == hash;
6736	SvREFCNT_dec(sv)Perl_SvREFCNT_dec( ((SV )({ void _p = (sv); _p; })));
6737	#line 6738 "RealPPPort.c"
6738	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
6739	}
6740	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6741	}
6742
6743
6744	XS_EUPXS(XS_Devel__PPPort_sv_catpvs)static void XS_Devel__PPPort_sv_catpvs( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
6745	XS_EUPXS(XS_Devel__PPPort_sv_catpvs)static void XS_Devel__PPPort_sv_catpvs( CV* cv __attribute__( (unused)))
6746	{
6747	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6748	if (items != 1)
6749	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
6750	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6751	SPsp -= items;
6752	{
6753	SV * sv = ST(0)PL_stack_base[ax + (0)]
6754	;
6755	#line 3332 "RealPPPort.xs"
6756	sv_catpvs(sv, "sv_catpvs")Perl_sv_catpvn_flags( sv, ("" "sv_catpvs" ""), (sizeof("sv_catpvs" )-1), 2);
6757	#line 6758 "RealPPPort.c"
6758	PUTBACKPL_stack_sp = sp;
6759	return;
6760	}
6761	}
6762
6763
6764	XS_EUPXS(XS_Devel__PPPort_sv_setpvs)static void XS_Devel__PPPort_sv_setpvs( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
6765	XS_EUPXS(XS_Devel__PPPort_sv_setpvs)static void XS_Devel__PPPort_sv_setpvs( CV* cv __attribute__( (unused)))
6766	{
6767	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6768	if (items != 1)
6769	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
6770	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6771	SPsp -= items;
6772	{
6773	SV * sv = ST(0)PL_stack_base[ax + (0)]
6774	;
6775	#line 3338 "RealPPPort.xs"
6776	sv_setpvs(sv, "sv_setpvs")Perl_sv_setpvn( sv, ("" "sv_setpvs" ""), (sizeof("sv_setpvs") -1));
6777	#line 6778 "RealPPPort.c"
6778	PUTBACKPL_stack_sp = sp;
6779	return;
6780	}
6781	}
6782
6783
6784	XS_EUPXS(XS_Devel__PPPort_hv_fetchs)static void XS_Devel__PPPort_hv_fetchs( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
6785	XS_EUPXS(XS_Devel__PPPort_hv_fetchs)static void XS_Devel__PPPort_hv_fetchs( CV* cv __attribute__( (unused)))
6786	{
6787	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6788	if (items != 1)
6789	croak_xs_usagePerl_croak_xs_usage(cv, "hv");
6790	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6791	SPsp -= items;
6792	{
6793	SV * hv = ST(0)PL_stack_base[ax + (0)]
6794	;
6795	#line 3344 "RealPPPort.xs"
6796	SV **s;
6797	#line 6798 "RealPPPort.c"
6798	#line 3346 "RealPPPort.xs"
6799	s = hv_fetchs((HV ) SvRV(hv), "hv_fetchs", 0)((SV) Perl_hv_common_key_len( (((HV ) ((hv)->sv_u.svu_rv ))),(("" "hv_fetchs" "")),((sizeof("hv_fetchs")-1)),((0)) ? ( 0x20 \| 0x10) : 0x20,((void*)0),0));
6800	XPUSHs(sv_mortalcopy(s))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); ++sp = (Perl_sv_mortalcopy_flags( *s, 2\|0)); } while (0);
6801	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6802	#line 6803 "RealPPPort.c"
6803	PUTBACKPL_stack_sp = sp;
6804	return;
6805	}
6806	}
6807
6808
6809	XS_EUPXS(XS_Devel__PPPort_hv_stores)static void XS_Devel__PPPort_hv_stores( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
6810	XS_EUPXS(XS_Devel__PPPort_hv_stores)static void XS_Devel__PPPort_hv_stores( CV* cv __attribute__( (unused)))
6811	{
6812	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6813	if (items != 2)
6814	croak_xs_usagePerl_croak_xs_usage(cv, "hv, sv");
6815	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6816	SPsp -= items;
6817	{
6818	SV * hv = ST(0)PL_stack_base[ax + (0)]
6819	;
6820	SV * sv = ST(1)PL_stack_base[ax + (1)]
6821	;
6822	#line 3355 "RealPPPort.xs"
6823	(void) hv_stores((HV ) SvRV(hv), "hv_stores", SvREFCNT_inc_simple(sv))((SV) Perl_hv_common_key_len( (((HV ) ((hv)->sv_u.svu_rv ))),(("" "hv_stores" "")),((sizeof("hv_stores")-1)),(0x04\|0x20 ),((Perl_SvREFCNT_inc(((SV )({ void _p = (sv); _p; }))))),( 0)));
6824	#line 6825 "RealPPPort.c"
6825	PUTBACKPL_stack_sp = sp;
6826	return;
6827	}
6828	}
6829
6830
6831	XS_EUPXS(XS_Devel__PPPort_gv_fetchpvs)static void XS_Devel__PPPort_gv_fetchpvs( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6832	XS_EUPXS(XS_Devel__PPPort_gv_fetchpvs)static void XS_Devel__PPPort_gv_fetchpvs( CV* cv __attribute__ ((unused)))
6833	{
6834	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6835	if (items != 0)
6836	croak_xs_usagePerl_croak_xs_usage(cv, "");
6837	{
6838	SV * RETVAL;
6839	#line 3360 "RealPPPort.xs"
6840	RETVAL = newRV_inc((SV)gv_fetchpvs("Devel::PPPort::VERSION", 0, SVt_PV))Perl_newRV( (SV)Perl_gv_fetchpvn_flags( ("" "Devel::PPPort::VERSION" ""), (sizeof("Devel::PPPort::VERSION")-1), 0, SVt_PV));
6841	#line 6842 "RealPPPort.c"
6842	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
6843	ST(0)PL_stack_base[ax + (0)] = RETVAL;
6844	}
6845	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6846	}
6847
6848
6849	XS_EUPXS(XS_Devel__PPPort_gv_stashpvs)static void XS_Devel__PPPort_gv_stashpvs( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6850	XS_EUPXS(XS_Devel__PPPort_gv_stashpvs)static void XS_Devel__PPPort_gv_stashpvs( CV* cv __attribute__ ((unused)))
6851	{
6852	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6853	if (items != 0)
6854	croak_xs_usagePerl_croak_xs_usage(cv, "");
6855	{
6856	SV * RETVAL;
6857	#line 3367 "RealPPPort.xs"
6858	RETVAL = newRV_inc((SV)gv_stashpvs("Devel::PPPort", 0))Perl_newRV( (SV)Perl_gv_stashpvn( ("" "Devel::PPPort" ""), ( sizeof("Devel::PPPort")-1), 0));
6859	#line 6860 "RealPPPort.c"
6860	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
6861	ST(0)PL_stack_base[ax + (0)] = RETVAL;
6862	}
6863	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6864	}
6865
6866
6867	XS_EUPXS(XS_Devel__PPPort_get_cvs)static void XS_Devel__PPPort_get_cvs( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
6868	XS_EUPXS(XS_Devel__PPPort_get_cvs)static void XS_Devel__PPPort_get_cvs( CV* cv __attribute__((unused )))
6869	{
6870	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6871	if (items != 0)
6872	croak_xs_usagePerl_croak_xs_usage(cv, "");
6873	{
6874	#line 3374 "RealPPPort.xs"
6875	CV* xv;
6876	#line 6877 "RealPPPort.c"
6877	int RETVAL;
6878	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
6879	#line 3376 "RealPPPort.xs"
6880	RETVAL = 0;
6881	xv = get_cvs("Devel::PPPort::foobar", 0)Perl_get_cvn_flags( ("" "Devel::PPPort::foobar" ""), (sizeof( "Devel::PPPort::foobar")-1), (0));
6882	if(xv == NULL((void*)0)) RETVAL++;
6883	xv = get_cvs("Devel::PPPort::foobar", GV_ADDMULTI)Perl_get_cvn_flags( ("" "Devel::PPPort::foobar" ""), (sizeof( "Devel::PPPort::foobar")-1), (0x02));
6884	if(xv && SvTYPE(xv)((svtype)((xv)->sv_flags & 0xff)) == SVt_PVCV) RETVAL++;
6885	xv = get_cvs("Devel::PPPort::get_cvs", 0)Perl_get_cvn_flags( ("" "Devel::PPPort::get_cvs" ""), (sizeof ("Devel::PPPort::get_cvs")-1), (0));
6886	if(xv && SvTYPE(xv)((svtype)((xv)->sv_flags & 0xff)) == SVt_PVCV) RETVAL++;
6887	#line 6888 "RealPPPort.c"
6888	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
6889	}
6890	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6891	}
6892
6893
6894	XS_EUPXS(XS_Devel__PPPort_newSVpvn_share)static void XS_Devel__PPPort_newSVpvn_share( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6895	XS_EUPXS(XS_Devel__PPPort_newSVpvn_share)static void XS_Devel__PPPort_newSVpvn_share( CV* cv __attribute__ ((unused)))
6896	{
6897	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6898	if (items != 0)
6899	croak_xs_usagePerl_croak_xs_usage(cv, "");
6900	{
6901	#line 3393 "RealPPPort.xs"
6902	const char *s;
6903	SV *sv;
6904	STRLEN len;
6905	U32 hash;
6906	#line 6907 "RealPPPort.c"
6907	int RETVAL;
6908	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
6909	#line 3398 "RealPPPort.xs"
6910	RETVAL = 0;
6911	s = "mhx";
6912	len = 3;
6913	PERL_HASH(hash, (char ) s, len)(hash) = (__builtin_expect(((((len)) <= 24) ? (_Bool)1 : ( _Bool)0),(1)) ? sbox32_hash_with_state(((((U8 )PL_hash_state_w )) + (sizeof(U64) * 4)),(U8)((U8)((U8)((char ) s))),(((len )))) : (U32)stadtx_hash_with_state((((((U8 )PL_hash_state_w) ))),(U8)(((U8)((U8)((char *) s)))),((((len))))));
6914	sv = newSVpvn_share(s, len, 0)Perl_newSVpvn_share( s,len,0);
6915	s = 0;
6916	RETVAL += strEQ(SvPV_nolen_const(sv), "mhx")(strcmp(((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400) ? ((const char*)(0 + (sv)->sv_u.svu_pv)) : Perl_sv_2pv_flags ( sv,0,2\|32)),"mhx") == 0);
6917	RETVAL += SvCUR(sv)((XPV*) (sv)->sv_any)->xpv_cur == len;
6918	RETVAL += SvSHARED_HASH(sv)(0 + ((struct hek)(((const char)(0 + (sv)->sv_u.svu_pv)) - __builtin_offsetof(struct hek, hek_key)))->hek_hash) == hash;
6919	SvREFCNT_dec(sv)Perl_SvREFCNT_dec( ((SV )({ void _p = (sv); _p; })));
6920	s = "foobar";
6921	len = 6;
6922	PERL_HASH(hash, (char ) s, len)(hash) = (__builtin_expect(((((len)) <= 24) ? (_Bool)1 : ( _Bool)0),(1)) ? sbox32_hash_with_state(((((U8 )PL_hash_state_w )) + (sizeof(U64) * 4)),(U8)((U8)((U8)((char ) s))),(((len )))) : (U32)stadtx_hash_with_state((((((U8 )PL_hash_state_w) ))),(U8)(((U8)((U8)((char *) s)))),((((len))))));
6923	sv = newSVpvn_share(s, -(I32) len, hash)Perl_newSVpvn_share( s,-(I32) len,hash);
6924	s = 0;
6925	RETVAL += strEQ(SvPV_nolen_const(sv), "foobar")(strcmp(((((sv)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400) ? ((const char*)(0 + (sv)->sv_u.svu_pv)) : Perl_sv_2pv_flags ( sv,0,2\|32)),"foobar") == 0);
6926	RETVAL += SvCUR(sv)((XPV*) (sv)->sv_any)->xpv_cur == len;
6927	RETVAL += SvSHARED_HASH(sv)(0 + ((struct hek)(((const char)(0 + (sv)->sv_u.svu_pv)) - __builtin_offsetof(struct hek, hek_key)))->hek_hash) == hash;
6928	SvREFCNT_dec(sv)Perl_SvREFCNT_dec( ((SV )({ void _p = (sv); _p; })));
6929	#line 6930 "RealPPPort.c"
6930	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
6931	}
6932	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6933	}
6934
6935
6936	XS_EUPXS(XS_Devel__PPPort_my_snprintf)static void XS_Devel__PPPort_my_snprintf( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6937	XS_EUPXS(XS_Devel__PPPort_my_snprintf)static void XS_Devel__PPPort_my_snprintf( CV* cv __attribute__ ((unused)))
6938	{
6939	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6940	if (items != 0)
6941	croak_xs_usagePerl_croak_xs_usage(cv, "");
6942	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6943	SPsp -= items;
6944	{
6945	#line 3427 "RealPPPort.xs"
6946	char buf[128];
6947	int len;
6948	#line 6949 "RealPPPort.c"
6949	#line 3430 "RealPPPort.xs"
6950	len = my_snprintf(buf, sizeof buf, "foo%s%d", "bar", 42)({ int len = snprintf(buf, sizeof buf, "foo%s%d", "bar", 42); do { if ((sizeof buf) > 0 && (size_t)len > (sizeof buf)) Perl_croak("panic: %s buffer overflow", "snprintf"); } while (0); len; });
6951	mXPUSHi(len)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(len)); } while (0);
6952	mXPUSHs(newSVpv(buf, 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( buf,0))); } while (0);
6953	XSRETURN(2)do { const IV tmpXSoff = (2); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6954	#line 6955 "RealPPPort.c"
6955	PUTBACKPL_stack_sp = sp;
6956	return;
6957	}
6958	}
6959
6960
6961	XS_EUPXS(XS_Devel__PPPort_my_sprintf)static void XS_Devel__PPPort_my_sprintf( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6962	XS_EUPXS(XS_Devel__PPPort_my_sprintf)static void XS_Devel__PPPort_my_sprintf( CV* cv __attribute__ ((unused)))
6963	{
6964	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6965	if (items != 0)
6966	croak_xs_usagePerl_croak_xs_usage(cv, "");
6967	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6968	SPsp -= items;
6969	{
6970	#line 3442 "RealPPPort.xs"
6971	char buf[128];
6972	int len;
6973	#line 6974 "RealPPPort.c"
6974	#line 3445 "RealPPPort.xs"
6975	len = my_sprintfsprintf(buf, "foo%s%d", "bar", 42);
6976	mXPUSHi(len)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(len)); } while (0);
6977	mXPUSHs(newSVpv(buf, 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( buf,0))); } while (0);
6978	XSRETURN(2)do { const IV tmpXSoff = (2); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
6979	#line 6980 "RealPPPort.c"
6980	PUTBACKPL_stack_sp = sp;
6981	return;
6982	}
6983	}
6984
6985
6986	XS_EUPXS(XS_Devel__PPPort_my_strlfunc)static void XS_Devel__PPPort_my_strlfunc( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
6987	XS_EUPXS(XS_Devel__PPPort_my_strlfunc)static void XS_Devel__PPPort_my_strlfunc( CV* cv __attribute__ ((unused)))
6988	{
6989	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
6990	if (items != 0)
6991	croak_xs_usagePerl_croak_xs_usage(cv, "");
6992	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
6993	SPsp -= items;
6994	{
6995	#line 3457 "RealPPPort.xs"
6996	char buf[8];
6997	int len;
6998	#line 6999 "RealPPPort.c"
6999	#line 3460 "RealPPPort.xs"
7000	len = my_strlcpystrlcpy(buf, "foo", sizeof(buf));
7001	mXPUSHi(len)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(len)); } while (0);
7002	mXPUSHs(newSVpv(buf, 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( buf,0))); } while (0);
7003	len = my_strlcatstrlcat(buf, "bar", sizeof(buf));
7004	mXPUSHi(len)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(len)); } while (0);
7005	mXPUSHs(newSVpv(buf, 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( buf,0))); } while (0);
7006	len = my_strlcatstrlcat(buf, "baz", sizeof(buf));
7007	mXPUSHi(len)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(len)); } while (0);
7008	mXPUSHs(newSVpv(buf, 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( buf,0))); } while (0);
7009	len = my_strlcpystrlcpy(buf, "1234567890", sizeof(buf));
7010	mXPUSHi(len)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(len)); } while (0);
7011	mXPUSHs(newSVpv(buf, 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( buf,0))); } while (0);
7012	len = my_strlcpystrlcpy(buf, "1234", sizeof(buf));
7013	mXPUSHi(len)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(len)); } while (0);
7014	mXPUSHs(newSVpv(buf, 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( buf,0))); } while (0);
7015	len = my_strlcatstrlcat(buf, "567890123456", sizeof(buf));
7016	mXPUSHi(len)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(len)); } while (0);
7017	mXPUSHs(newSVpv(buf, 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( buf,0))); } while (0);
7018	XSRETURN(12)do { const IV tmpXSoff = (12); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7019	#line 7020 "RealPPPort.c"
7020	PUTBACKPL_stack_sp = sp;
7021	return;
7022	}
7023	}
7024
7025
7026	XS_EUPXS(XS_Devel__PPPort_vnewSVpvf)static void XS_Devel__PPPort_vnewSVpvf( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
7027	XS_EUPXS(XS_Devel__PPPort_vnewSVpvf)static void XS_Devel__PPPort_vnewSVpvf( CV* cv __attribute__( (unused)))
7028	{
7029	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7030	if (items != 0)
7031	croak_xs_usagePerl_croak_xs_usage(cv, "");
7032	{
7033	SV * RETVAL;
7034	#line 3487 "RealPPPort.xs"
7035	RETVAL = test_vnewSVpvf(aTHX_ "%s-%d", "Perl", 42);
7036	#line 7037 "RealPPPort.c"
7037	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7038	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7039	}
7040	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7041	}
7042
7043
7044	XS_EUPXS(XS_Devel__PPPort_sv_vcatpvf)static void XS_Devel__PPPort_sv_vcatpvf( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7045	XS_EUPXS(XS_Devel__PPPort_sv_vcatpvf)static void XS_Devel__PPPort_sv_vcatpvf( CV* cv __attribute__ ((unused)))
7046	{
7047	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7048	if (items != 1)
7049	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7050	{
7051	SV * sv = ST(0)PL_stack_base[ax + (0)]
7052	;
7053	SV * RETVAL;
7054	#line 3495 "RealPPPort.xs"
7055	RETVAL = newSVsv(sv)Perl_newSVsv_flags( (sv),2\|16);
7056	test_sv_vcatpvf(aTHX_ RETVAL, "%s-%d", "Perl", 42);
7057	#line 7058 "RealPPPort.c"
7058	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7059	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7060	}
7061	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7062	}
7063
7064
7065	XS_EUPXS(XS_Devel__PPPort_sv_vsetpvf)static void XS_Devel__PPPort_sv_vsetpvf( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7066	XS_EUPXS(XS_Devel__PPPort_sv_vsetpvf)static void XS_Devel__PPPort_sv_vsetpvf( CV* cv __attribute__ ((unused)))
7067	{
7068	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7069	if (items != 1)
7070	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7071	{
7072	SV * sv = ST(0)PL_stack_base[ax + (0)]
7073	;
7074	SV * RETVAL;
7075	#line 3504 "RealPPPort.xs"
7076	RETVAL = newSVsv(sv)Perl_newSVsv_flags( (sv),2\|16);
7077	test_sv_vsetpvf(aTHX_ RETVAL, "%s-%d", "Perl", 42);
7078	#line 7079 "RealPPPort.c"
7079	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7080	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7081	}
7082	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7083	}
7084
7085
7086	XS_EUPXS(XS_Devel__PPPort_sv_catpvf_mg)static void XS_Devel__PPPort_sv_catpvf_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7087	XS_EUPXS(XS_Devel__PPPort_sv_catpvf_mg)static void XS_Devel__PPPort_sv_catpvf_mg( CV* cv __attribute__ ((unused)))
7088	{
7089	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7090	if (items != 1)
7091	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7092	{
7093	SV * sv = ST(0)PL_stack_base[ax + (0)]
7094	;
7095	#line 3513 "RealPPPort.xs"
7096	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
7097	sv_catpvf_mgPerl_sv_catpvf_mg(sv, "%s-%d", "Perl", 42);
7098	#endif
7099	#line 7100 "RealPPPort.c"
7100	}
7101	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
7102	}
7103
7104
7105	XS_EUPXS(XS_Devel__PPPort_Perl_sv_catpvf_mg)static void XS_Devel__PPPort_Perl_sv_catpvf_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7106	XS_EUPXS(XS_Devel__PPPort_Perl_sv_catpvf_mg)static void XS_Devel__PPPort_Perl_sv_catpvf_mg( CV* cv __attribute__ ((unused)))
7107	{
7108	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7109	if (items != 1)
7110	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7111	{
7112	SV * sv = ST(0)PL_stack_base[ax + (0)]
7113	;
7114	#line 3521 "RealPPPort.xs"
7115	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
7116	Perl_sv_catpvf_mg(aTHX_ sv, "%s-%d", "-Perl", 43);
7117	#endif
7118	#line 7119 "RealPPPort.c"
7119	}
7120	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
7121	}
7122
7123
7124	XS_EUPXS(XS_Devel__PPPort_sv_catpvf_mg_nocontext)static void XS_Devel__PPPort_sv_catpvf_mg_nocontext( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7125	XS_EUPXS(XS_Devel__PPPort_sv_catpvf_mg_nocontext)static void XS_Devel__PPPort_sv_catpvf_mg_nocontext( CV* cv __attribute__ ((unused)))
7126	{
7127	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7128	if (items != 1)
7129	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7130	{
7131	SV * sv = ST(0)PL_stack_base[ax + (0)]
7132	;
7133	#line 3529 "RealPPPort.xs"
7134	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
7135	#ifdef PERL_IMPLICIT_CONTEXT
7136	sv_catpvf_mg_nocontext(sv, "%s-%d", "-Perl", 44);
7137	#else
7138	sv_catpvf_mgPerl_sv_catpvf_mg(sv, "%s-%d", "-Perl", 44);
7139	#endif
7140	#endif
7141	#line 7142 "RealPPPort.c"
7142	}
7143	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
7144	}
7145
7146
7147	XS_EUPXS(XS_Devel__PPPort_sv_setpvf_mg)static void XS_Devel__PPPort_sv_setpvf_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7148	XS_EUPXS(XS_Devel__PPPort_sv_setpvf_mg)static void XS_Devel__PPPort_sv_setpvf_mg( CV* cv __attribute__ ((unused)))
7149	{
7150	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7151	if (items != 1)
7152	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7153	{
7154	SV * sv = ST(0)PL_stack_base[ax + (0)]
7155	;
7156	#line 3541 "RealPPPort.xs"
7157	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
7158	sv_setpvf_mgPerl_sv_setpvf_mg(sv, "%s-%d", "mhx", 42);
7159	#endif
7160	#line 7161 "RealPPPort.c"
7161	}
7162	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
7163	}
7164
7165
7166	XS_EUPXS(XS_Devel__PPPort_Perl_sv_setpvf_mg)static void XS_Devel__PPPort_Perl_sv_setpvf_mg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7167	XS_EUPXS(XS_Devel__PPPort_Perl_sv_setpvf_mg)static void XS_Devel__PPPort_Perl_sv_setpvf_mg( CV* cv __attribute__ ((unused)))
7168	{
7169	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7170	if (items != 1)
7171	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7172	{
7173	SV * sv = ST(0)PL_stack_base[ax + (0)]
7174	;
7175	#line 3549 "RealPPPort.xs"
7176	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
7177	Perl_sv_setpvf_mg(aTHX_ sv, "%s-%d", "foo", 43);
7178	#endif
7179	#line 7180 "RealPPPort.c"
7180	}
7181	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
7182	}
7183
7184
7185	XS_EUPXS(XS_Devel__PPPort_sv_setpvf_mg_nocontext)static void XS_Devel__PPPort_sv_setpvf_mg_nocontext( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7186	XS_EUPXS(XS_Devel__PPPort_sv_setpvf_mg_nocontext)static void XS_Devel__PPPort_sv_setpvf_mg_nocontext( CV* cv __attribute__ ((unused)))
7187	{
7188	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7189	if (items != 1)
7190	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7191	{
7192	SV * sv = ST(0)PL_stack_base[ax + (0)]
7193	;
7194	#line 3557 "RealPPPort.xs"
7195	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
7196	#ifdef PERL_IMPLICIT_CONTEXT
7197	sv_setpvf_mg_nocontext(sv, "%s-%d", "bar", 44);
7198	#else
7199	sv_setpvf_mgPerl_sv_setpvf_mg(sv, "%s-%d", "bar", 44);
7200	#endif
7201	#endif
7202	#line 7203 "RealPPPort.c"
7203	}
7204	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
7205	}
7206
7207
7208	XS_EUPXS(XS_Devel__PPPort_no_THX_arg)static void XS_Devel__PPPort_no_THX_arg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7209	XS_EUPXS(XS_Devel__PPPort_no_THX_arg)static void XS_Devel__PPPort_no_THX_arg( CV* cv __attribute__ ((unused)))
7210	{
7211	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7212	if (items != 1)
7213	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7214	{
7215	SV * sv = ST(0)PL_stack_base[ax + (0)]
7216	;
7217	IV RETVAL;
7218	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
7219	#line 3573 "RealPPPort.xs"
7220	RETVAL = 1 + sv_2iv(sv)Perl_sv_2iv_flags( sv,2);
7221	#line 7222 "RealPPPort.c"
7222	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
7223	}
7224	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7225	}
7226
7227
7228	XS_EUPXS(XS_Devel__PPPort_with_THX_arg)static void XS_Devel__PPPort_with_THX_arg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7229	XS_EUPXS(XS_Devel__PPPort_with_THX_arg)static void XS_Devel__PPPort_with_THX_arg( CV* cv __attribute__ ((unused)))
7230	{
7231	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7232	if (items != 1)
7233	croak_xs_usagePerl_croak_xs_usage(cv, "error");
7234	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
7235	SPsp -= items;
7236	{
7237	SV * error = ST(0)PL_stack_base[ax + (0)]
7238	;
7239	#line 3581 "RealPPPort.xs"
7240	croak_sv(error)Perl_croak_sv( error);
7241	#line 7242 "RealPPPort.c"
7242	PUTBACKPL_stack_sp = sp;
7243	return;
7244	}
7245	}
7246
7247	#if defined(UTF8f"d%" "lu" "%4p") && defined(newSVpvfPerl_newSVpvf)
7248	#define XSubPPtmpAAAL1 1
7249
7250
7251	XS_EUPXS(XS_Devel__PPPort_UTF8f)static void XS_Devel__PPPort_UTF8f( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
7252	XS_EUPXS(XS_Devel__PPPort_UTF8f)static void XS_Devel__PPPort_UTF8f( CV* cv __attribute__((unused )))
7253	{
7254	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7255	if (items != 1)
7256	croak_xs_usagePerl_croak_xs_usage(cv, "x");
7257	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
7258	SPsp -= items;
7259	{
7260	SV * x = ST(0)PL_stack_base[ax + (0)]
7261	;
7262	#line 3593 "RealPPPort.xs"
7263	U32 u;
7264	STRLEN len;
7265	char *ptr;
7266	#line 7267 "RealPPPort.c"
7267	#line 3597 "RealPPPort.xs"
7268	ptr = SvPV(x, len)((((x)->sv_flags & (0x00000400\|0x00200000)) == 0x00000400 ) ? ((len = ((XPV*) (x)->sv_any)->xpv_cur), ((x)->sv_u .svu_pv)) : Perl_sv_2pv_flags( x,&len,2));
7269	u = SvUTF8(x)((x)->sv_flags & 0x20000000);
7270	#line 7271 "RealPPPort.c"
7271	#line 3600 "RealPPPort.xs"
7272	x = sv_2mortal(newSVpvf("[%" UTF8f "]", UTF8fARG(u, len, ptr)))Perl_sv_2mortal( Perl_newSVpvf("[%" "d%" "lu" "%4p" "]", (int )((u) ? (_Bool)1 : (_Bool)0), (UV)(len), (void*)(ptr)));
7273	XPUSHs(x)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (x); } while (0);
7274	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7275	#line 7276 "RealPPPort.c"
7276	PUTBACKPL_stack_sp = sp;
7277	return;
7278	}
7279	}
7280
7281	#endif
7282	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5006000) /* This is just a helper fcn, not publicized */ \
7283	/* as being available and params not what the */ \
7284	/* API function has; works on EBCDIC too */
7285	#define XSubPPtmpAAAM1 1
7286
7287
7288	XS_EUPXS(XS_Devel__PPPort_uvchr_to_utf8)static void XS_Devel__PPPort_uvchr_to_utf8( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7289	XS_EUPXS(XS_Devel__PPPort_uvchr_to_utf8)static void XS_Devel__PPPort_uvchr_to_utf8( CV* cv __attribute__ ((unused)))
7290	{
7291	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7292	if (items != 1)
7293	croak_xs_usagePerl_croak_xs_usage(cv, "native");
7294	{
7295	UV native = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
7296	;
7297	#line 3615 "RealPPPort.xs"
7298	int len;
7299	U8 string[UTF8_MAXBYTES13+1];
7300	int i;
7301	UV uni;
7302
7303	#line 7304 "RealPPPort.c"
7304	SV * RETVAL;
7305	#line 3621 "RealPPPort.xs"
7306	len = UVCHR_SKIP(native)( ((((U64)(((UV) ((native) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0))) ? 1 : ((UV) (native) < (32 * (1U << ( 6))) ? 2 : (UV) (native) < (16 * (1U << (2 * 6))) ? 3 : (UV) (native) < ( 8 * (1U << (3 * 6))) ? 4 : ( UV) (native) < ( 4 * (1U << (4 * 6))) ? 5 : (UV) (native ) < ( 2 * (1U << (5 * 6))) ? 6 : (UV) (native) < ( (UV) 1U << (6 * 6)) ? 7 : 13));
7307
7308	for (i = 0; i < len; i++) {
7309	string[i] = '\0';
7310	}
7311
7312	if (len <= 1) {
7313	string[0] = native;
7314	}
7315	else {
7316	i = len;
7317	uni = NATIVE_TO_UNI(native)((UV) ((native) \| 0));
7318	while (i-- > 1) {
7319	string[i] = I8_TO_NATIVE_UTF8((uni & UTF_CONTINUATION_MASK) \| UTF_CONTINUATION_MARK)( ((U8) (((uni & ((U8) ((1U << 6) - 1))) \| (((U8) ( 0xFF << 6)) & 0xB0)) \| 0)));
7320	uni >>= UTF_ACCUMULATION_SHIFT6;
7321	}
7322	string[0] = I8_TO_NATIVE_UTF8((uni & UTF_START_MASK(len)) \| UTF_START_MARK(len))( ((U8) (((uni & (((len) >= 7) ? 0x00 : (0x1F >> ((len)-2)))) \| (((len) > 7) ? 0xFF : ((U8) (0xFE << (7-(len)))))) \| 0)));
7323	}
7324
7325	RETVAL = newSVpvn((char ) string, len)Perl_newSVpvn( (char ) string,len);
7326	SvUTF8_on(RETVAL)((RETVAL)->sv_flags \|= (0x20000000));
7327	#line 7328 "RealPPPort.c"
7328	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7329	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7330	}
7331	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7332	}
7333
7334	#endif
7335	#if defined(UTF8_SAFE_SKIP) && defined(UTF8SKIP)
7336	#define XSubPPtmpAAAN1 1
7337
7338
7339	XS_EUPXS(XS_Devel__PPPort_UTF8_SAFE_SKIP)static void XS_Devel__PPPort_UTF8_SAFE_SKIP( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7340	XS_EUPXS(XS_Devel__PPPort_UTF8_SAFE_SKIP)static void XS_Devel__PPPort_UTF8_SAFE_SKIP( CV* cv __attribute__ ((unused)))
7341	{
7342	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7343	if (items != 2)
7344	croak_xs_usagePerl_croak_xs_usage(cv, "s, adjustment");
7345	{
7346	char * s = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
7347	;
7348	int adjustment = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
7349	;
7350	#line 3653 "RealPPPort.xs"
7351	const char *const_s;
7352	#line 7353 "RealPPPort.c"
7353	STRLEN RETVAL;
7354	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
7355	#line 3655 "RealPPPort.xs"
7356	const_s = s;
7357	/* Instead of passing in an 'e' ptr, use the real end, adjusted */
7358	RETVAL = UTF8_SAFE_SKIP(const_s, s + UTF8SKIP(s) + adjustment)( ((((s + PL_utf8skip[(const U8)(s)] + adjustment) - (const_s )) <= 0) ? 0 : (((((s + PL_utf8skip[(const U8)(s)] + adjustment ) - (const_s))) <= (PL_utf8skip[(const U8)(const_s)])) ? (((s + PL_utf8skip[(const U8)(s)] + adjustment) - (const_s ))) : (PL_utf8skip[(const U8)(const_s)]))));
7359	#line 7360 "RealPPPort.c"
7360	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
7361	}
7362	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7363	}
7364
7365	#endif
7366	#ifdef isUTF8_CHARPerl_isUTF8_CHAR
7367	#define XSubPPtmpAAAO1 1
7368
7369
7370	XS_EUPXS(XS_Devel__PPPort_isUTF8_CHAR)static void XS_Devel__PPPort_isUTF8_CHAR( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7371	XS_EUPXS(XS_Devel__PPPort_isUTF8_CHAR)static void XS_Devel__PPPort_isUTF8_CHAR( CV* cv __attribute__ ((unused)))
7372	{
7373	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7374	if (items != 2)
7375	croak_xs_usagePerl_croak_xs_usage(cv, "s, adjustment");
7376	{
7377	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
7378	;
7379	int adjustment = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
7380	;
7381	#line 3670 "RealPPPort.xs"
7382	const unsigned char *const_s;
7383	const unsigned char *const_e;
7384	#line 7385 "RealPPPort.c"
7385	STRLEN RETVAL;
7386	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
7387	#line 3673 "RealPPPort.xs"
7388	const_s = s;
7389	/* Instead of passing in an 'e' ptr, use the real end, adjusted */
7390	const_e = const_s + UTF8SKIP(const_s)PL_utf8skip[(const U8)(const_s)] + adjustment;
7391	RETVAL = isUTF8_CHARPerl_isUTF8_CHAR(const_s, const_e);
7392	#line 7393 "RealPPPort.c"
7393	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
7394	}
7395	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7396	}
7397
7398	#endif
7399	#ifdef foldEQ_utf8
7400	#define XSubPPtmpAAAP1 1
7401
7402
7403	XS_EUPXS(XS_Devel__PPPort_foldEQ_utf8)static void XS_Devel__PPPort_foldEQ_utf8( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7404	XS_EUPXS(XS_Devel__PPPort_foldEQ_utf8)static void XS_Devel__PPPort_foldEQ_utf8( CV* cv __attribute__ ((unused)))
7405	{
7406	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7407	if (items != 6)
7408	croak_xs_usagePerl_croak_xs_usage(cv, "s1, l1, u1, s2, l2, u2");
7409	{
7410	char * s1 = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
7411	;
7412	UV l1 = (UV)SvUV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (1)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (1)],2))
7413	;
7414	bool_Bool u1 = (bool_Bool)SvTRUE(ST(2))Perl_SvTRUE( PL_stack_base[ax + (2)])
7415	;
7416	char * s2 = (char *)SvPV_nolen(ST(3))((((PL_stack_base[ax + (3)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (3)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (3)],0,2))
7417	;
7418	UV l2 = (UV)SvUV(ST(4))((((PL_stack_base[ax + (4)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (4)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (4)],2))
7419	;
7420	bool_Bool u2 = (bool_Bool)SvTRUE(ST(5))Perl_SvTRUE( PL_stack_base[ax + (5)])
7421	;
7422	#line 3694 "RealPPPort.xs"
7423	const char *const_s1;
7424	const char *const_s2;
7425	#line 7426 "RealPPPort.c"
7426	STRLEN RETVAL;
7427	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
7428	#line 3697 "RealPPPort.xs"
7429	const_s1 = s1;
7430	const_s2 = s2;
7431	RETVAL = foldEQ_utf8(const_s1, NULL, l1, u1, const_s2, NULL, l2, u2)Perl_foldEQ_utf8_flags( const_s1,((void)0),l1,u1,const_s2,(( void)0),l2,u2,0);
7432	#line 7433 "RealPPPort.c"
7433	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
7434	}
7435	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7436	}
7437
7438	#endif
7439	#ifdef utf8_to_uvchr_buf
7440	#define XSubPPtmpAAAQ1 1
7441
7442
7443	XS_EUPXS(XS_Devel__PPPort_utf8_to_uvchr_buf)static void XS_Devel__PPPort_utf8_to_uvchr_buf( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7444	XS_EUPXS(XS_Devel__PPPort_utf8_to_uvchr_buf)static void XS_Devel__PPPort_utf8_to_uvchr_buf( CV* cv __attribute__ ((unused)))
7445	{
7446	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7447	if (items != 2)
7448	croak_xs_usagePerl_croak_xs_usage(cv, "s, adjustment");
7449	{
7450	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
7451	;
7452	int adjustment = (int)SvIV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (1)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 1)],2))
7453	;
7454	#line 3712 "RealPPPort.xs"
7455	AV *av;
7456	STRLEN len;
7457	const unsigned char *const_s;
7458	#line 7459 "RealPPPort.c"
7459	AV * RETVAL;
7460	#line 3716 "RealPPPort.xs"
7461	av = newAV()((AV )({ void _p = (Perl_newSV_type( SVt_PVAV)); _p; }));
7462	const_s = s;
7463	av_push(av, newSVuv(utf8_to_uvchr_buf(const_s,Perl_av_push( av,Perl_newSVuv( Perl_utf8_to_uvchr_buf_helper( (const U8 ) (const_s),(const U8 ) s + PL_utf8skip[(const U8 )(s)] + adjustment,&len)))
7464	s + UTF8SKIP(s) + adjustment,Perl_av_push( av,Perl_newSVuv( Perl_utf8_to_uvchr_buf_helper( (const U8 ) (const_s),(const U8 ) s + PL_utf8skip[(const U8 )(s)] + adjustment,&len)))
7465	&len)))Perl_av_push( av,Perl_newSVuv( Perl_utf8_to_uvchr_buf_helper( (const U8 ) (const_s),(const U8 ) s + PL_utf8skip[(const U8 )(s)] + adjustment,&len)));
7466	if (len == (STRLEN) -1) {
7467	av_push(av, newSViv(-1))Perl_av_push( av,Perl_newSViv( -1));
7468	}
7469	else {
7470	av_push(av, newSVuv(len))Perl_av_push( av,Perl_newSVuv( len));
7471	}
7472	RETVAL = av;
7473	#line 7474 "RealPPPort.c"
7474	{
7475	SV * RETVALSV;
7476	RETVALSV = newRV((SV)RETVAL)Perl_newRV( (SV)RETVAL);
7477	RETVALSV = sv_2mortal(RETVALSV)Perl_sv_2mortal( RETVALSV);
7478	ST(0)PL_stack_base[ax + (0)] = RETVALSV;
7479	}
7480	}
7481	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7482	}
7483
7484	#endif
7485	#ifdef utf8_to_uvchr
7486	#define XSubPPtmpAAAR1 1
7487
7488
7489	XS_EUPXS(XS_Devel__PPPort_utf8_to_uvchr)static void XS_Devel__PPPort_utf8_to_uvchr( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7490	XS_EUPXS(XS_Devel__PPPort_utf8_to_uvchr)static void XS_Devel__PPPort_utf8_to_uvchr( CV* cv __attribute__ ((unused)))
7491	{
7492	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7493	if (items != 1)
7494	croak_xs_usagePerl_croak_xs_usage(cv, "s");
7495	{
7496	unsigned char * s = (unsigned char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
7497	;
7498	#line 3739 "RealPPPort.xs"
7499	AV *av;
7500	STRLEN len;
7501	const unsigned char *const_s;
7502	#line 7503 "RealPPPort.c"
7503	AV * RETVAL;
7504	#line 3743 "RealPPPort.xs"
7505	av = newAV()((AV )({ void _p = (Perl_newSV_type( SVt_PVAV)); _p; }));
7506	const_s = s;
7507	av_push(av, newSVuv(utf8_to_uvchr(const_s, &len)))Perl_av_push( av,Perl_newSVuv( (((const_s) == '\0') ? Perl_utf8_to_uvchr_buf_helper ( (const U8 ) (const_s),(const U8 ) ((const_s)+1),&len) : Perl_utf8_to_uvchr_buf_helper( (const U8 ) (const_s),(const U8 ) (const_s) + (const_s[0] == '\0' ? 1 : ((U8) (((strnlen ((char ) (const_s), PL_utf8skip[(const U8)(const_s)])) <= (PL_utf8skip[(const U8)(const_s)])) ? (strnlen((char ) (const_s ), PL_utf8skip[(const U8)(const_s)])) : (PL_utf8skip[(const U8*)(const_s)])))),(&len)))));
7508	if (len == (STRLEN) -1) {
7509	av_push(av, newSViv(-1))Perl_av_push( av,Perl_newSViv( -1));
7510	}
7511	else {
7512	av_push(av, newSVuv(len))Perl_av_push( av,Perl_newSVuv( len));
7513	}
7514	RETVAL = av;
7515	#line 7516 "RealPPPort.c"
7516	{
7517	SV * RETVALSV;
7518	RETVALSV = newRV((SV)RETVAL)Perl_newRV( (SV)RETVAL);
7519	RETVALSV = sv_2mortal(RETVALSV)Perl_sv_2mortal( RETVALSV);
7520	ST(0)PL_stack_base[ax + (0)] = RETVALSV;
7521	}
7522	}
7523	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7524	}
7525
7526	#endif
7527	#ifdef sv_len_utf8
7528	#define XSubPPtmpAAAS1 1
7529
7530
7531	XS_EUPXS(XS_Devel__PPPort_sv_len_utf8)static void XS_Devel__PPPort_sv_len_utf8( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7532	XS_EUPXS(XS_Devel__PPPort_sv_len_utf8)static void XS_Devel__PPPort_sv_len_utf8( CV* cv __attribute__ ((unused)))
7533	{
7534	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7535	if (items != 1)
7536	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7537	{
7538	SV * sv = ST(0)PL_stack_base[ax + (0)]
7539	;
7540	STRLEN RETVAL;
7541	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
7542	#line 3764 "RealPPPort.xs"
7543	RETVAL = sv_len_utf8(sv)Perl_sv_len_utf8( sv);
7544	#line 7545 "RealPPPort.c"
7545	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
7546	}
7547	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7548	}
7549
7550	#endif
7551	#ifdef sv_len_utf8_nomg
7552	#define XSubPPtmpAAAT1 1
7553
7554
7555	XS_EUPXS(XS_Devel__PPPort_sv_len_utf8_nomg)static void XS_Devel__PPPort_sv_len_utf8_nomg( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7556	XS_EUPXS(XS_Devel__PPPort_sv_len_utf8_nomg)static void XS_Devel__PPPort_sv_len_utf8_nomg( CV* cv __attribute__ ((unused)))
7557	{
7558	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7559	if (items != 1)
7560	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7561	{
7562	SV * sv = ST(0)PL_stack_base[ax + (0)]
7563	;
7564	STRLEN RETVAL;
7565	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
7566	#line 3776 "RealPPPort.xs"
7567	RETVAL = sv_len_utf8_nomg(sv)({ SV *_sv = (sv); Perl_sv_len_utf8( !((_sv)->sv_flags & 0x00200000) ? _sv : Perl_sv_mortalcopy_flags( _sv,16)); });
7568	#line 7569 "RealPPPort.c"
7569	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
7570	}
7571	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7572	}
7573
7574	#endif
7575	#ifdef UVCHR_IS_INVARIANT
7576	#define XSubPPtmpAAAU1 1
7577
7578
7579	XS_EUPXS(XS_Devel__PPPort_UVCHR_IS_INVARIANT)static void XS_Devel__PPPort_UVCHR_IS_INVARIANT( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7580	XS_EUPXS(XS_Devel__PPPort_UVCHR_IS_INVARIANT)static void XS_Devel__PPPort_UVCHR_IS_INVARIANT( CV* cv __attribute__ ((unused)))
7581	{
7582	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7583	if (items != 1)
7584	croak_xs_usagePerl_croak_xs_usage(cv, "c");
7585	{
7586	unsigned c = (unsigned)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
7587	;
7588	#line 3788 "RealPPPort.xs"
7589	#line 7590 "RealPPPort.c"
7590	bool_Bool RETVAL;
7591	#line 3789 "RealPPPort.xs"
7592	RETVAL = UVCHR_IS_INVARIANT(c)((((U64)(((UV) ((c) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0)));
7593	#line 7594 "RealPPPort.c"
7594	ST(0)PL_stack_base[ax + (0)] = boolSV(RETVAL)((RETVAL) ? &(PL_sv_immortals[0]) : &(PL_sv_immortals [2]));
7595	}
7596	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7597	}
7598
7599	#endif
7600	#ifdef UVCHR_SKIP
7601	#define XSubPPtmpAAAV1 1
7602
7603
7604	XS_EUPXS(XS_Devel__PPPort_UVCHR_SKIP)static void XS_Devel__PPPort_UVCHR_SKIP( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7605	XS_EUPXS(XS_Devel__PPPort_UVCHR_SKIP)static void XS_Devel__PPPort_UVCHR_SKIP( CV* cv __attribute__ ((unused)))
7606	{
7607	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7608	if (items != 1)
7609	croak_xs_usagePerl_croak_xs_usage(cv, "c");
7610	{
7611	UV c = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
7612	;
7613	#line 3801 "RealPPPort.xs"
7614	#line 7615 "RealPPPort.c"
7615	STRLEN RETVAL;
7616	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
7617	#line 3802 "RealPPPort.xs"
7618	RETVAL = UVCHR_SKIP(c)( ((((U64)(((UV) ((c) \| 0)))) < (((U8) (0xFF << 6)) & 0xB0))) ? 1 : ((UV) (c) < (32 * (1U << ( 6))) ? 2 : (UV) (c) < (16 * (1U << (2 * 6))) ? 3 : (UV) (c) < ( 8 * (1U << (3 * 6))) ? 4 : (UV) (c) < ( 4 * (1U << (4 * 6))) ? 5 : (UV) (c) < ( 2 * (1U << (5 * 6))) ? 6 : (UV) (c) < ((UV) 1U << (6 * 6)) ? 7 : 13));
7619	#line 7620 "RealPPPort.c"
7620	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
7621	}
7622	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7623	}
7624
7625	#endif
7626
7627	XS_EUPXS(XS_Devel__PPPort_sv_setuv)static void XS_Devel__PPPort_sv_setuv( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
7628	XS_EUPXS(XS_Devel__PPPort_sv_setuv)static void XS_Devel__PPPort_sv_setuv( CV* cv __attribute__(( unused)))
7629	{
7630	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7631	if (items != 1)
7632	croak_xs_usagePerl_croak_xs_usage(cv, "uv");
7633	{
7634	UV uv = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
7635	;
7636	SV * RETVAL;
7637	#line 3816 "RealPPPort.xs"
7638	RETVAL = newSViv(1)Perl_newSViv( 1);
7639	sv_setuv(RETVAL, uv)Perl_sv_setuv( RETVAL,uv);
7640	#line 7641 "RealPPPort.c"
7641	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7642	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7643	}
7644	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7645	}
7646
7647
7648	XS_EUPXS(XS_Devel__PPPort_newSVuv)static void XS_Devel__PPPort_newSVuv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
7649	XS_EUPXS(XS_Devel__PPPort_newSVuv)static void XS_Devel__PPPort_newSVuv( CV* cv __attribute__((unused )))
7650	{
7651	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7652	if (items != 1)
7653	croak_xs_usagePerl_croak_xs_usage(cv, "uv");
7654	{
7655	UV uv = (UV)SvUV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (0)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (0)],2))
7656	;
7657	SV * RETVAL;
7658	#line 3825 "RealPPPort.xs"
7659	RETVAL = newSVuv(uv)Perl_newSVuv( uv);
7660	#line 7661 "RealPPPort.c"
7661	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7662	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7663	}
7664	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7665	}
7666
7667
7668	XS_EUPXS(XS_Devel__PPPort_sv_2uv)static void XS_Devel__PPPort_sv_2uv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
7669	XS_EUPXS(XS_Devel__PPPort_sv_2uv)static void XS_Devel__PPPort_sv_2uv( CV* cv __attribute__((unused )))
7670	{
7671	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7672	if (items != 1)
7673	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7674	{
7675	SV * sv = ST(0)PL_stack_base[ax + (0)]
7676	;
7677	UV RETVAL;
7678	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
7679	#line 3833 "RealPPPort.xs"
7680	RETVAL = sv_2uv(sv)Perl_sv_2uv_flags( sv,2);
7681	#line 7682 "RealPPPort.c"
7682	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
7683	}
7684	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7685	}
7686
7687
7688	XS_EUPXS(XS_Devel__PPPort_SvUVx)static void XS_Devel__PPPort_SvUVx( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
7689	XS_EUPXS(XS_Devel__PPPort_SvUVx)static void XS_Devel__PPPort_SvUVx( CV* cv __attribute__((unused )))
7690	{
7691	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7692	if (items != 1)
7693	croak_xs_usagePerl_croak_xs_usage(cv, "sv");
7694	{
7695	SV * sv = ST(0)PL_stack_base[ax + (0)]
7696	;
7697	UV RETVAL;
7698	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
7699	#line 3841 "RealPPPort.xs"
7700	sv--;
7701	RETVAL = SvUVx(++sv)({SV _sv = ((SV )({ void _p = (++sv); _p; })); ((((_sv)-> sv_flags & (0x00000100\|0x80000000\|0x00200000)) == (0x00000100 \|0x80000000)) ? ((XPVUV) (_sv)->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags( _sv,2)); });
7702	#line 7703 "RealPPPort.c"
7703	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
7704	}
7705	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7706	}
7707
7708
7709	XS_EUPXS(XS_Devel__PPPort_XSRETURN_UV)static void XS_Devel__PPPort_XSRETURN_UV( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7710	XS_EUPXS(XS_Devel__PPPort_XSRETURN_UV)static void XS_Devel__PPPort_XSRETURN_UV( CV* cv __attribute__ ((unused)))
7711	{
7712	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7713	if (items != 0)
7714	croak_xs_usagePerl_croak_xs_usage(cv, "");
7715	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
7716	SPsp -= items;
7717	{
7718	#line 3849 "RealPPPort.xs"
7719	XSRETURN_UV(42)do { (PL_stack_base[ax + (0)] = Perl_sv_2mortal( Perl_newSVuv ( 42)) ); do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
7720	#line 7721 "RealPPPort.c"
7721	PUTBACKPL_stack_sp = sp;
7722	return;
7723	}
7724	}
7725
7726
7727	XS_EUPXS(XS_Devel__PPPort_PUSHu)static void XS_Devel__PPPort_PUSHu( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
7728	XS_EUPXS(XS_Devel__PPPort_PUSHu)static void XS_Devel__PPPort_PUSHu( CV* cv __attribute__((unused )))
7729	{
7730	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7731	if (items != 0)
7732	croak_xs_usagePerl_croak_xs_usage(cv, "");
7733	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
7734	SPsp -= items;
7735	{
7736	#line 3854 "RealPPPort.xs"
7737	dTARGSV *targ;
7738	#line 7739 "RealPPPort.c"
7739	#line 3856 "RealPPPort.xs"
7740	TARGtarg = sv_newmortal()Perl_sv_newmortal();
7741	EXTEND(SP, 1)do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0);
7742	PUSHu(42)do { do { UV TARGu_uv = 42; if (__builtin_expect((((((targ)-> sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800\|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? ! (((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool)0),(0)) ) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= (UV)((IV ) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1))) { ((void )0); (targ)->sv_flags \|= (0x00000100\|0x00001000); targ-> sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ,TARGu_uv ); } while (0); (*++sp = (targ)); } while (0);
7743	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7744	#line 7745 "RealPPPort.c"
7745	PUTBACKPL_stack_sp = sp;
7746	return;
7747	}
7748	}
7749
7750
7751	XS_EUPXS(XS_Devel__PPPort_XPUSHu)static void XS_Devel__PPPort_XPUSHu( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
7752	XS_EUPXS(XS_Devel__PPPort_XPUSHu)static void XS_Devel__PPPort_XPUSHu( CV* cv __attribute__((unused )))
7753	{
7754	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7755	if (items != 0)
7756	croak_xs_usagePerl_croak_xs_usage(cv, "");
7757	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
7758	SPsp -= items;
7759	{
7760	#line 3864 "RealPPPort.xs"
7761	dTARGSV *targ;
7762	#line 7763 "RealPPPort.c"
7763	#line 3866 "RealPPPort.xs"
7764	TARGtarg = sv_newmortal()Perl_sv_newmortal();
7765	XPUSHu(43)do { do { UV TARGu_uv = 43; if (__builtin_expect((((((targ)-> sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800\|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? ! (((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool)0),(0)) ) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= (UV)((IV ) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1))) { ((void )0); (targ)->sv_flags \|= (0x00000100\|0x00001000); targ-> sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ,TARGu_uv ); } while (0); do { do { (void)0; if (__builtin_expect(((((1 ) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool )0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof (ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void )sizeof(sp)); } } while (0); *++sp = (targ); } while (0); } while (0);
7766	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7767	#line 7768 "RealPPPort.c"
7768	PUTBACKPL_stack_sp = sp;
7769	return;
7770	}
7771	}
7772
7773
7774	XS_EUPXS(XS_Devel__PPPort_my_strnlen)static void XS_Devel__PPPort_my_strnlen( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7775	XS_EUPXS(XS_Devel__PPPort_my_strnlen)static void XS_Devel__PPPort_my_strnlen( CV* cv __attribute__ ((unused)))
7776	{
7777	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7778	if (items != 2)
7779	croak_xs_usagePerl_croak_xs_usage(cv, "s, max");
7780	{
7781	char * s = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
7782	;
7783	STRLEN max = (STRLEN)SvUV(ST(1))((((PL_stack_base[ax + (1)])->sv_flags & (0x00000100\|0x80000000 \|0x00200000)) == (0x00000100\|0x80000000)) ? ((XPVUV*) (PL_stack_base [ax + (1)])->sv_any)->xuv_u.xivu_uv : Perl_sv_2uv_flags ( PL_stack_base[ax + (1)],2))
7784	;
7785	STRLEN RETVAL;
7786	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
7787	#line 3875 "RealPPPort.xs"
7788	RETVAL= my_strnlenstrnlen(s, max);
7789	#line 7790 "RealPPPort.c"
7790	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHu((UV)RETVAL)do { do { UV TARGu_uv = (UV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1) & (TARGu_uv <= ( UV)((IV) ((~(UV)0) >> 1)))) ? (_Bool)1 : (_Bool)0),(1)) ) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000) ; targ->sv_u.svu_iv = TARGu_uv; } else Perl_sv_setuv_mg( targ ,TARGu_uv); } while (0); (*++sp = (targ)); } while (0);
7791	}
7792	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7793	}
7794
7795
7796	XS_EUPXS(XS_Devel__PPPort_compare_PL_signals)static void XS_Devel__PPPort_compare_PL_signals( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7797	XS_EUPXS(XS_Devel__PPPort_compare_PL_signals)static void XS_Devel__PPPort_compare_PL_signals( CV* cv __attribute__ ((unused)))
7798	{
7799	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7800	if (items != 0)
7801	croak_xs_usagePerl_croak_xs_usage(cv, "");
7802	{
7803	int RETVAL;
7804	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
7805	#line 3886 "RealPPPort.xs"
7806	{
7807	U32 ref = get_PL_signals_1();
7808	RETVAL = ref == get_PL_signals_2() && ref == get_PL_signals_3();
7809	}
7810	#line 7811 "RealPPPort.c"
7811	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
7812	}
7813	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7814	}
7815
7816
7817	XS_EUPXS(XS_Devel__PPPort_PL_sv_undef)static void XS_Devel__PPPort_PL_sv_undef( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7818	XS_EUPXS(XS_Devel__PPPort_PL_sv_undef)static void XS_Devel__PPPort_PL_sv_undef( CV* cv __attribute__ ((unused)))
7819	{
7820	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7821	if (items != 0)
7822	croak_xs_usagePerl_croak_xs_usage(cv, "");
7823	{
7824	SV * RETVAL;
7825	#line 3896 "RealPPPort.xs"
7826	RETVAL = newSVsv(&PL_sv_undef)Perl_newSVsv_flags( (&(PL_sv_immortals[1])),2\|16);
7827	#line 7828 "RealPPPort.c"
7828	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7829	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7830	}
7831	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7832	}
7833
7834
7835	XS_EUPXS(XS_Devel__PPPort_PL_sv_yes)static void XS_Devel__PPPort_PL_sv_yes( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
7836	XS_EUPXS(XS_Devel__PPPort_PL_sv_yes)static void XS_Devel__PPPort_PL_sv_yes( CV* cv __attribute__( (unused)))
7837	{
7838	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7839	if (items != 0)
7840	croak_xs_usagePerl_croak_xs_usage(cv, "");
7841	{
7842	SV * RETVAL;
7843	#line 3903 "RealPPPort.xs"
7844	RETVAL = newSVsv(&PL_sv_yes)Perl_newSVsv_flags( (&(PL_sv_immortals[0])),2\|16);
7845	#line 7846 "RealPPPort.c"
7846	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7847	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7848	}
7849	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7850	}
7851
7852
7853	XS_EUPXS(XS_Devel__PPPort_PL_sv_no)static void XS_Devel__PPPort_PL_sv_no( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
7854	XS_EUPXS(XS_Devel__PPPort_PL_sv_no)static void XS_Devel__PPPort_PL_sv_no( CV* cv __attribute__(( unused)))
7855	{
7856	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7857	if (items != 0)
7858	croak_xs_usagePerl_croak_xs_usage(cv, "");
7859	{
7860	SV * RETVAL;
7861	#line 3910 "RealPPPort.xs"
7862	RETVAL = newSVsv(&PL_sv_no)Perl_newSVsv_flags( (&(PL_sv_immortals[2])),2\|16);
7863	#line 7864 "RealPPPort.c"
7864	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7865	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7866	}
7867	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7868	}
7869
7870
7871	XS_EUPXS(XS_Devel__PPPort_PL_na)static void XS_Devel__PPPort_PL_na( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
7872	XS_EUPXS(XS_Devel__PPPort_PL_na)static void XS_Devel__PPPort_PL_na( CV* cv __attribute__((unused )))
7873	{
7874	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7875	if (items != 1)
7876	croak_xs_usagePerl_croak_xs_usage(cv, "string");
7877	{
7878	char * string = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
7879	;
7880	int RETVAL;
7881	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
7882	#line 3918 "RealPPPort.xs"
7883	PL_na = strlen(string);
7884	RETVAL = PL_na;
7885	#line 7886 "RealPPPort.c"
7886	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
7887	}
7888	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7889	}
7890
7891
7892	XS_EUPXS(XS_Devel__PPPort_PL_Sv)static void XS_Devel__PPPort_PL_Sv( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
7893	XS_EUPXS(XS_Devel__PPPort_PL_Sv)static void XS_Devel__PPPort_PL_Sv( CV* cv __attribute__((unused )))
7894	{
7895	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7896	if (items != 0)
7897	croak_xs_usagePerl_croak_xs_usage(cv, "");
7898	{
7899	SV * RETVAL;
7900	#line 3926 "RealPPPort.xs"
7901	PL_Sv = newSVpv("mhx", 0)Perl_newSVpv( "mhx",0);
7902	RETVAL = PL_Sv;
7903	#line 7904 "RealPPPort.c"
7904	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7905	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7906	}
7907	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7908	}
7909
7910
7911	XS_EUPXS(XS_Devel__PPPort_PL_tokenbuf)static void XS_Devel__PPPort_PL_tokenbuf( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7912	XS_EUPXS(XS_Devel__PPPort_PL_tokenbuf)static void XS_Devel__PPPort_PL_tokenbuf( CV* cv __attribute__ ((unused)))
7913	{
7914	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7915	if (items != 0)
7916	croak_xs_usagePerl_croak_xs_usage(cv, "");
7917	{
7918	SV * RETVAL;
7919	#line 3934 "RealPPPort.xs"
7920	RETVAL = newSViv(PL_tokenbuf[0])Perl_newSViv( ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->tokenbuf)[0]);
7921	#line 7922 "RealPPPort.c"
7922	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7923	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7924	}
7925	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7926	}
7927
7928
7929	XS_EUPXS(XS_Devel__PPPort_PL_parser)static void XS_Devel__PPPort_PL_parser( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
7930	XS_EUPXS(XS_Devel__PPPort_PL_parser)static void XS_Devel__PPPort_PL_parser( CV* cv __attribute__( (unused)))
7931	{
7932	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7933	if (items != 0)
7934	croak_xs_usagePerl_croak_xs_usage(cv, "");
7935	{
7936	SV * RETVAL;
7937	#line 3941 "RealPPPort.xs"
7938	RETVAL = newSViv(PL_parser != NULL)Perl_newSViv( PL_parser != ((void*)0));
7939	#line 7940 "RealPPPort.c"
7940	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7941	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7942	}
7943	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7944	}
7945
7946
7947	XS_EUPXS(XS_Devel__PPPort_PL_hexdigit)static void XS_Devel__PPPort_PL_hexdigit( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
7948	XS_EUPXS(XS_Devel__PPPort_PL_hexdigit)static void XS_Devel__PPPort_PL_hexdigit( CV* cv __attribute__ ((unused)))
7949	{
7950	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7951	if (items != 0)
7952	croak_xs_usagePerl_croak_xs_usage(cv, "");
7953	{
7954	SV * RETVAL;
7955	#line 3948 "RealPPPort.xs"
7956	RETVAL = newSVpv((char ) PL_hexdigit, 0)Perl_newSVpv( (char ) PL_hexdigit,0);
7957	#line 7958 "RealPPPort.c"
7958	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7959	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7960	}
7961	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7962	}
7963
7964
7965	XS_EUPXS(XS_Devel__PPPort_PL_hints)static void XS_Devel__PPPort_PL_hints( CV* cv __attribute__(( unused))); /* prototype to pass -Wmissing-prototypes */
7966	XS_EUPXS(XS_Devel__PPPort_PL_hints)static void XS_Devel__PPPort_PL_hints( CV* cv __attribute__(( unused)))
7967	{
7968	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7969	if (items != 0)
7970	croak_xs_usagePerl_croak_xs_usage(cv, "");
7971	{
7972	SV * RETVAL;
7973	#line 3955 "RealPPPort.xs"
7974	RETVAL = newSViv((IV) PL_hints)Perl_newSViv( (IV) PL_compiling.cop_hints);
7975	#line 7976 "RealPPPort.c"
7976	RETVAL = sv_2mortal(RETVAL)Perl_sv_2mortal( RETVAL);
7977	ST(0)PL_stack_base[ax + (0)] = RETVAL;
7978	}
7979	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
7980	}
7981
7982
7983	XS_EUPXS(XS_Devel__PPPort_PL_ppaddr)static void XS_Devel__PPPort_PL_ppaddr( CV* cv __attribute__( (unused))); /* prototype to pass -Wmissing-prototypes */
7984	XS_EUPXS(XS_Devel__PPPort_PL_ppaddr)static void XS_Devel__PPPort_PL_ppaddr( CV* cv __attribute__( (unused)))
7985	{
7986	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
7987	if (items != 1)
7988	croak_xs_usagePerl_croak_xs_usage(cv, "string");
7989	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
7990	SPsp -= items;
7991	{
7992	char * string = (char *)SvPV_nolen(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000400\|0x00200000 )) == 0x00000400) ? ((PL_stack_base[ax + (0)])->sv_u.svu_pv ) : Perl_sv_2pv_flags( PL_stack_base[ax + (0)],0,2))
7993	;
7994	#line 3963 "RealPPPort.xs"
7995	PUSHMARK(SP)do { I32 * mark_stack_entry; if (__builtin_expect((((mark_stack_entry = ++PL_markstack_ptr) == PL_markstack_max) ? (_Bool)1 : (_Bool )0),(0))) mark_stack_entry = Perl_markstack_grow(); *mark_stack_entry = (I32)((sp) - PL_stack_base); ; } while (0);
7996	mXPUSHs(newSVpv(string, 0))do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); * ++sp = (Perl_sv_2mortal( Perl_newSVpv( string,0))); } while ( 0);
7997	PUTBACKPL_stack_sp = sp;
7998	ENTERPerl_push_scope();
7999	(void)*(PL_ppaddr[OP_UC])(aTHXR);
8000	SPAGAINsp = PL_stack_sp;
8001	LEAVEPerl_pop_scope();
8002	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
8003	#line 8004 "RealPPPort.c"
8004	PUTBACKPL_stack_sp = sp;
8005	return;
8006	}
8007	}
8008
8009
8010	XS_EUPXS(XS_Devel__PPPort_other_variables)static void XS_Devel__PPPort_other_variables( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
8011	XS_EUPXS(XS_Devel__PPPort_other_variables)static void XS_Devel__PPPort_other_variables( CV* cv __attribute__ ((unused)))
8012	{
8013	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
8014	if (items != 0)
8015	croak_xs_usagePerl_croak_xs_usage(cv, "");
8016	PERL_UNUSED_VAR(ax)((void)sizeof(ax)); /* -Wall */
8017	SPsp -= items;
8018	{
8019	#line 3975 "RealPPPort.xs"
8020	int count = 0;
8021	#line 8022 "RealPPPort.c"
8022	#line 3977 "RealPPPort.xs"
8023	ppp_TESTVAR(PL_DBsignal)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_DBsignal))); } while (0); count++; } while (0);
8024	ppp_TESTVAR(PL_DBsingle)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_DBsingle))); } while (0); count++; } while (0);
8025	ppp_TESTVAR(PL_DBsub)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_DBsub))); } while (0); count++; } while (0);
8026	ppp_TESTVAR(PL_DBtrace)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_DBtrace))); } while (0); count++; } while (0);
8027	ppp_TESTVAR(PL_compiling)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_compiling))); } while (0); count++; } while (0);
8028	ppp_TESTVAR(PL_curcop)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_curcop))); } while (0); count++; } while (0);
8029	ppp_TESTVAR(PL_curstash)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_curstash))); } while (0); count++; } while (0);
8030	ppp_TESTVAR(PL_debstash)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_debstash))); } while (0); count++; } while (0);
8031	ppp_TESTVAR(PL_defgv)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_defgv))); } while (0); count++; } while (0);
8032	ppp_TESTVAR(PL_diehook)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_diehook))); } while (0); count++; } while (0);
8033	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5013007)
8034	/* can't get a pointer any longer */
8035	mXPUSHi(PL_dirty ? 1 : 1)do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (*++sp = (Perl_sv_newmortal())),(IV)(((PL_phase == PERL_PHASE_DESTRUCT ) ? (_Bool)1 : (_Bool)0) ? 1 : 1)); } while (0);
8036	count++;
8037	#else
8038	ppp_TESTVAR(PL_dirty)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&((PL_phase == PERL_PHASE_DESTRUCT) ? (_Bool)1 : (_Bool )0)))); } while (0); count++; } while (0);
8039	#endif
8040	ppp_TESTVAR(PL_dowarn)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_dowarn))); } while (0); count++; } while (0);
8041	ppp_TESTVAR(PL_errgv)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_errgv))); } while (0); count++; } while (0);
8042	ppp_TESTVAR(PL_laststatval)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_laststatval))); } while (0); count++; } while (0);
8043	ppp_TESTVAR(PL_no_modify)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_no_modify))); } while (0); count++; } while (0);
8044	ppp_TESTVAR(PL_perl_destruct_level)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_perl_destruct_level))); } while (0); count++; } while (0);
8045	ppp_TESTVAR(PL_perldb)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_perldb))); } while (0); count++; } while (0);
8046	ppp_TESTVAR(PL_stack_base)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_stack_base))); } while (0); count++; } while (0);
8047	ppp_TESTVAR(PL_stack_sp)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_stack_sp))); } while (0); count++; } while (0);
8048	ppp_TESTVAR(PL_statcache)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_statcache))); } while (0); count++; } while (0);
8049	ppp_TESTVAR(PL_stdingv)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_stdingv))); } while (0); count++; } while (0);
8050	ppp_TESTVAR(PL_sv_arenaroot)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_sv_arenaroot))); } while (0); count++; } while (0);
8051	ppp_TESTVAR(PL_tainted)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_tainted))); } while (0); count++; } while (0);
8052	ppp_TESTVAR(PL_tainting)do { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)((IV )(&PL_tainting))); } while (0); count++; } while (0);
8053
8054	ppp_PARSERVAR(ppp_expect_t, PL_expect)do { U8 volatile my_PL_expect; U8 volatile my_p_PL_expect; my_PL_expect = ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))-> expect); my_p_PL_expect = &((PL_parser ? PL_parser : ( & DPPP_dummy_PL_parser))->expect); ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->expect) = my_PL_expect; (( PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->expect ) = my_p_PL_expect; do { do { (void)0; if (__builtin_expect( ((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : ( _Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof (ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void )sizeof(sp)); } } while (0); Perl_sv_setiv( (++sp = (Perl_sv_newmortal ())),(IV)(&((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->expect) != ((void)0))); } while (0); count++; } while (0);
8055	ppp_PARSERVAR(line_t, PL_copline)do { line_t volatile my_PL_copline; line_t volatile my_p_PL_copline ; my_PL_copline = ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->copline); my_p_PL_copline = &((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->copline); ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->copline) = my_PL_copline ; ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))-> copline) = my_p_PL_copline; do { do { (void)0; if (__builtin_expect (((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1)) ); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (++sp = (Perl_sv_newmortal())),(IV)(&((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->copline) != ((void)0))); } while (0); count++; } while (0);
8056	ppp_PARSERVAR(ppp_rsfp_t, PL_rsfp)do { PerlIO * volatile my_PL_rsfp; PerlIO * volatile my_p_PL_rsfp ; my_PL_rsfp = ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->rsfp); my_p_PL_rsfp = &((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->rsfp); ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->rsfp) = my_PL_rsfp; ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->rsfp) = my_p_PL_rsfp ; do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)(&((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->rsfp) != ((void)0))); } while (0); count++; } while (0);
8057	ppp_PARSERVAR(AV , PL_rsfp_filters)do { AV volatile my_PL_rsfp_filters; AV * volatile my_p_PL_rsfp_filters ; my_PL_rsfp_filters = ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->rsfp_filters); my_p_PL_rsfp_filters = &((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->rsfp_filters ); ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))-> rsfp_filters) = my_PL_rsfp_filters; ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->rsfp_filters) = my_p_PL_rsfp_filters ; do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)(&((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->rsfp_filters) != ((void )0))); } while (0); count++; } while (0);
8058	ppp_PARSERVAR(SV , PL_linestr)do { SV volatile my_PL_linestr; SV * volatile my_p_PL_linestr ; my_PL_linestr = ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->linestr); my_p_PL_linestr = &((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->linestr); ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->linestr) = my_PL_linestr ; ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))-> linestr) = my_p_PL_linestr; do { do { (void)0; if (__builtin_expect (((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1)) ); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (++sp = (Perl_sv_newmortal())),(IV)(&((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->linestr) != ((void)0))); } while (0); count++; } while (0);
8059	ppp_PARSERVAR(char , PL_bufptr)do { char volatile my_PL_bufptr; char * volatile my_p_PL_bufptr ; my_PL_bufptr = ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->bufptr); my_p_PL_bufptr = &((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->bufptr); ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->bufptr) = my_PL_bufptr; ( (PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->bufptr ) = my_p_PL_bufptr; do { do { (void)0; if (__builtin_expect( ((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : ( _Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof (ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void )sizeof(sp)); } } while (0); Perl_sv_setiv( (++sp = (Perl_sv_newmortal ())),(IV)(&((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->bufptr) != ((void)0))); } while (0); count++; } while (0);
8060	ppp_PARSERVAR(char , PL_bufend)do { char volatile my_PL_bufend; char * volatile my_p_PL_bufend ; my_PL_bufend = ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->bufend); my_p_PL_bufend = &((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->bufend); ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->bufend) = my_PL_bufend; ( (PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->bufend ) = my_p_PL_bufend; do { do { (void)0; if (__builtin_expect( ((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : ( _Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof (ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void )sizeof(sp)); } } while (0); Perl_sv_setiv( (++sp = (Perl_sv_newmortal ())),(IV)(&((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->bufend) != ((void)0))); } while (0); count++; } while (0);
8061	ppp_PARSERVAR(ppp_lex_state_t, PL_lex_state)do { U8 volatile my_PL_lex_state; U8 volatile my_p_PL_lex_state ; my_PL_lex_state = ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->lex_state); my_p_PL_lex_state = &((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->lex_state); ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->lex_state) = my_PL_lex_state ; ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))-> lex_state) = my_p_PL_lex_state; do { do { (void)0; if (__builtin_expect (((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1)) ); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (++sp = (Perl_sv_newmortal())),(IV)(&((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->lex_state) != ((void)0))); } while (0); count++; } while (0);
8062	ppp_PARSERVAR(SV , PL_lex_stuff)do { SV volatile my_PL_lex_stuff; SV * volatile my_p_PL_lex_stuff ; my_PL_lex_stuff = ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->lex_stuff); my_p_PL_lex_stuff = &((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->lex_stuff); ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->lex_stuff) = my_PL_lex_stuff ; ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))-> lex_stuff) = my_p_PL_lex_stuff; do { do { (void)0; if (__builtin_expect (((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1)) ); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (++sp = (Perl_sv_newmortal())),(IV)(&((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->lex_stuff) != ((void)0))); } while (0); count++; } while (0);
8063	ppp_PARSERVAR(ppp_error_count_t, PL_error_count)do { U8 volatile my_PL_error_count; U8 volatile my_p_PL_error_count ; my_PL_error_count = ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->error_count); my_p_PL_error_count = &((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->error_count); ( (PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->error_count ) = my_PL_error_count; ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->error_count) = my_p_PL_error_count; do { do { (void)0 ; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp ,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)(&((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->error_count) != ((void) 0))); } while (0); count++; } while (0);
8064	ppp_PARSERVAR(ppp_in_my_t, PL_in_my)do { U16 volatile my_PL_in_my; U16 volatile my_p_PL_in_my; my_PL_in_my = ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))-> in_my); my_p_PL_in_my = &((PL_parser ? PL_parser : ( & DPPP_dummy_PL_parser))->in_my); ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->in_my) = my_PL_in_my; ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->in_my) = my_p_PL_in_my ; do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow ( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t) (1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)(&((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->in_my) != ((void)0))); } while (0); count++; } while (0);
8065	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5005000)
8066	ppp_PARSERVAR(HV, PL_in_my_stash)do { HV volatile my_PL_in_my_stash; HV* volatile my_p_PL_in_my_stash ; my_PL_in_my_stash = ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->in_my_stash); my_p_PL_in_my_stash = &((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->in_my_stash); ( (PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->in_my_stash ) = my_PL_in_my_stash; ((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser ))->in_my_stash) = my_p_PL_in_my_stash; do { do { (void)0 ; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp ,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv ( (++sp = (Perl_sv_newmortal())),(IV)(&((PL_parser ? PL_parser : ( &DPPP_dummy_PL_parser))->in_my_stash) != ((void) 0))); } while (0); count++; } while (0);
8067	#else
8068	ppp_PARSERVAR_dummydo { do { do { (void)0; if (__builtin_expect(((((1) < 0 \|\| PL_stack_max - (sp) < (1))) ? (_Bool)1 : (_Bool)0),(0))) { sp = Perl_stack_grow( sp,sp,(sizeof(1) > sizeof(ssize_t) && ((ssize_t)(1) != (1)) ? -1 : (1))); ((void)sizeof(sp)); } } while (0); Perl_sv_setiv( (*++sp = (Perl_sv_newmortal())),(IV)(1)) ; } while (0); count++; } while (0);
8069	#endif
8070	XSRETURN(count)do { const IV tmpXSoff = (count); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
8071	#line 8072 "RealPPPort.c"
8072	PUTBACKPL_stack_sp = sp;
8073	return;
8074	}
8075	}
8076
8077
8078	XS_EUPXS(XS_Devel__PPPort_no_dummy_parser_vars)static void XS_Devel__PPPort_no_dummy_parser_vars( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
8079	XS_EUPXS(XS_Devel__PPPort_no_dummy_parser_vars)static void XS_Devel__PPPort_no_dummy_parser_vars( CV* cv __attribute__ ((unused)))
8080	{
8081	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
8082	if (items != 1)
8083	croak_xs_usagePerl_croak_xs_usage(cv, "check");
8084	{
8085	int check = (int)SvIV(ST(0))((((PL_stack_base[ax + (0)])->sv_flags & (0x00000100\|0x00200000 )) == 0x00000100) ? ((XPVIV*) (PL_stack_base[ax + (0)])->sv_any )->xiv_u.xivu_iv : Perl_sv_2iv_flags( PL_stack_base[ax + ( 0)],2))
8086	;
8087	int RETVAL;
8088	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
8089
8090	RETVAL = no_dummy_parser_vars(check);
8091	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
8092	}
8093	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
8094	}
8095
8096
8097	XS_EUPXS(XS_Devel__PPPort_dummy_parser_warning)static void XS_Devel__PPPort_dummy_parser_warning( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
8098	XS_EUPXS(XS_Devel__PPPort_dummy_parser_warning)static void XS_Devel__PPPort_dummy_parser_warning( CV* cv __attribute__ ((unused)))
8099	{
8100	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
8101	if (items != 0)
8102	croak_xs_usagePerl_croak_xs_usage(cv, "");
8103	{
8104	int RETVAL;
8105	dXSTARGSV * const targ = ((PL_op->op_private & 0x04) ? (PL_curpad [PL_op->op_targ]) : Perl_sv_newmortal());
8106
8107	RETVAL = dummy_parser_warning();
8108	XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)do { do { IV TARGi_iv = (IV)RETVAL; if (__builtin_expect((((( (targ)->sv_flags & (0xff\|(0x08000000\|0x00010000\|0x00000800 \|0x01000000 \|0x00800000\|0x10000000)\|0x80000000)) == SVt_IV) & (1 ? !(((__builtin_expect(((PL_tainted) ? (_Bool)1 : (_Bool) 0),(0))) ? (_Bool)1 : (_Bool)0)) : 1)) ? (_Bool)1 : (_Bool)0) ,(1))) { ((void)0); (targ)->sv_flags \|= (0x00000100\|0x00001000 ); targ->sv_u.svu_iv = TARGi_iv; } else Perl_sv_setiv_mg( targ ,TARGi_iv); } while (0); (*++sp = (targ)); } while (0);
8109	}
8110	XSRETURN(1)do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0);
8111	}
8112
8113
8114	XS_EUPXS(XS_Devel__PPPort_warner)static void XS_Devel__PPPort_warner( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
8115	XS_EUPXS(XS_Devel__PPPort_warner)static void XS_Devel__PPPort_warner( CV* cv __attribute__((unused )))
8116	{
8117	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
8118	if (items != 0)
8119	croak_xs_usagePerl_croak_xs_usage(cv, "");
8120	{
8121	#line 4040 "RealPPPort.xs"
8122	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
8123	warnerPerl_warner(packWARN(WARN_MISC)(12 ), "warner %s:%d", "bar", 42);
8124	#endif
8125	#line 8126 "RealPPPort.c"
8126	}
8127	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
8128	}
8129
8130
8131	XS_EUPXS(XS_Devel__PPPort_Perl_warner)static void XS_Devel__PPPort_Perl_warner( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
8132	XS_EUPXS(XS_Devel__PPPort_Perl_warner)static void XS_Devel__PPPort_Perl_warner( CV* cv __attribute__ ((unused)))
8133	{
8134	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
8135	if (items != 0)
8136	croak_xs_usagePerl_croak_xs_usage(cv, "");
8137	{
8138	#line 4047 "RealPPPort.xs"
8139	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
8140	Perl_warner(aTHX_ packWARN(WARN_MISC)(12 ), "Perl_warner %s:%d", "bar", 42);
8141	#endif
8142	#line 8143 "RealPPPort.c"
8143	}
8144	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
8145	}
8146
8147
8148	XS_EUPXS(XS_Devel__PPPort_Perl_warner_nocontext)static void XS_Devel__PPPort_Perl_warner_nocontext( CV* cv __attribute__ ((unused))); /* prototype to pass -Wmissing-prototypes */
8149	XS_EUPXS(XS_Devel__PPPort_Perl_warner_nocontext)static void XS_Devel__PPPort_Perl_warner_nocontext( CV* cv __attribute__ ((unused)))
8150	{
8151	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
8152	if (items != 0)
8153	croak_xs_usagePerl_croak_xs_usage(cv, "");
8154	{
8155	#line 4054 "RealPPPort.xs"
8156	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
8157	Perl_warner_nocontextPerl_warner(packWARN(WARN_MISC)(12 ), "Perl_warner_nocontext %s:%d", "bar", 42);
8158	#endif
8159	#line 8160 "RealPPPort.c"
8160	}
8161	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
8162	}
8163
8164
8165	XS_EUPXS(XS_Devel__PPPort_ckWARN)static void XS_Devel__PPPort_ckWARN( CV* cv __attribute__((unused ))); /* prototype to pass -Wmissing-prototypes */
8166	XS_EUPXS(XS_Devel__PPPort_ckWARN)static void XS_Devel__PPPort_ckWARN( CV* cv __attribute__((unused )))
8167	{
8168	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
8169	if (items != 0)
8170	croak_xs_usagePerl_croak_xs_usage(cv, "");
8171	{
8172	#line 4061 "RealPPPort.xs"
8173	#if (PERL_BCDVERSION((((((5)/100)<<8)\|((((5)%100)/10)<<4)\|((5)%10))<< 24)\|(((((32)/100)<<8)\|((((32)%100)/10)<<4)\|((32)% 10))<<12)\|((((1)/100)<<8)\|((((1)%100)/10)<< 4)\|((1)%10))) >= 0x5004000)
8174	if (ckWARN(WARN_MISC)Perl_ckwarn( (12 )))
8175	Perl_warner_nocontextPerl_warner(packWARN(WARN_MISC)(12 ), "ckWARN %s:%d", "bar", 42);
8176	#endif
8177	#line 8178 "RealPPPort.c"
8178	}
8179	XSRETURN_EMPTYdo { do { const IV tmpXSoff = (0); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
8180	}
8181
8182	#ifdef __cplusplus
8183	extern "C"
8184	#endif
8185	XS_EXTERNAL(boot_Devel__PPPort)void boot_Devel__PPPort( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
8186	XS_EXTERNAL(boot_Devel__PPPort)void boot_Devel__PPPort( CV* cv __attribute__((unused)))
8187	{
8188	#if PERL_VERSION_LE(5, 21, 5)((51000000 + 321000 + 1) <= (51000000 + 211000 + 5))
8189	dVARstruct Perl___notused_struct; dXSARGSSV sp = PL_stack_sp; I32 ax = Perl_POPMARK(); SV mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark);
8190	#else
8191	dVARstruct Perl___notused_struct; dXSBOOTARGSXSAPIVERCHKI32 ax = Perl_xs_handshake((((sizeof(struct PerlHandShakeInterpreter )) << 16) \| ((sizeof("" "3.57" "")-1) > 0xFF ? (Perl_croak ("panic: handshake overflow"), 0xFF) : (sizeof("" "3.57" "")- 1) << 8) \| ((((1)) ? (_Bool)1 : (_Bool)0) ? 0x00000020 : 0) \| ((((0)) ? (_Bool)1 : (_Bool)0) ? 0x00000080 : 0) \| (((( 1)) ? (_Bool)1 : (_Bool)0) ? 0x00000040 : 0) \| ((sizeof("" "v" "5" "." "32" "." "0" "")-1) > 0x0000001F ? (Perl_croak("panic: handshake overflow" ), 0x0000001F) : (sizeof("" "v" "5" "." "32" "." "0" "")-1))) , cv, "RealPPPort.c", "v" "5" "." "32" "." "0", "3.57"); SV * mark = PL_stack_base + ax; SV *sp = PL_stack_sp; I32 items = (I32)(sp - mark);
8192	#endif
8193	#if (PERL_REVISION5 == 5 && PERL_VERSION32 < 9)
8194	char* file = __FILE__"RealPPPort.c";
8195	#else
8196	const char* file = __FILE__"RealPPPort.c";
8197	#endif
8198
8199	PERL_UNUSED_VAR(file)((void)sizeof(file));
8200
8201	PERL_UNUSED_VAR(cv)((void)sizeof(cv)); /* -W */
8202	PERL_UNUSED_VAR(items)((void)sizeof(items)); /* -W */
8203	#if PERL_VERSION_LE(5, 21, 5)((51000000 + 321000 + 1) <= (51000000 + 211000 + 5))
8204	XS_VERSION_BOOTCHECKPerl_xs_handshake((((sizeof(struct PerlHandShakeInterpreter)) << 16) \| ((sizeof("" "3.57" "")-1) > 0xFF ? (Perl_croak ("panic: handshake overflow"), 0xFF) : (sizeof("" "3.57" "")- 1) << 8) \| ((((0)) ? (_Bool)1 : (_Bool)0) ? 0x00000020 : 0) \| ((((0)) ? (_Bool)1 : (_Bool)0) ? 0x00000080 : 0) \| (((( 0)) ? (_Bool)1 : (_Bool)0) ? 0x00000040 : 0) \| ((sizeof("" "" "")-1) > 0x0000001F ? (Perl_croak("panic: handshake overflow" ), 0x0000001F) : (sizeof("" "" "")-1))), cv, "RealPPPort.c", items , ax, "3.57");
8205	# ifdef XS_APIVERSION_BOOTCHECKPerl_xs_handshake((((sizeof(struct PerlHandShakeInterpreter)) << 16) \| ((sizeof("" "" "")-1) > 0xFF ? (Perl_croak ("panic: handshake overflow"), 0xFF) : (sizeof("" "" "")-1) << 8) \| ((((0)) ? (_Bool)1 : (_Bool)0) ? 0x00000020 : 0) \| (((( 0)) ? (_Bool)1 : (_Bool)0) ? 0x00000080 : 0) \| ((((0)) ? (_Bool )1 : (_Bool)0) ? 0x00000040 : 0) \| ((sizeof("" "v" "5" "." "32" "." "0" "")-1) > 0x0000001F ? (Perl_croak("panic: handshake overflow" ), 0x0000001F) : (sizeof("" "v" "5" "." "32" "." "0" "")-1))) , cv, "RealPPPort.c", items, ax, "v" "5" "." "32" "." "0")
8206	XS_APIVERSION_BOOTCHECKPerl_xs_handshake((((sizeof(struct PerlHandShakeInterpreter)) << 16) \| ((sizeof("" "" "")-1) > 0xFF ? (Perl_croak ("panic: handshake overflow"), 0xFF) : (sizeof("" "" "")-1) << 8) \| ((((0)) ? (_Bool)1 : (_Bool)0) ? 0x00000020 : 0) \| (((( 0)) ? (_Bool)1 : (_Bool)0) ? 0x00000080 : 0) \| ((((0)) ? (_Bool )1 : (_Bool)0) ? 0x00000040 : 0) \| ((sizeof("" "v" "5" "." "32" "." "0" "")-1) > 0x0000001F ? (Perl_croak("panic: handshake overflow" ), 0x0000001F) : (sizeof("" "v" "5" "." "32" "." "0" "")-1))) , cv, "RealPPPort.c", items, ax, "v" "5" "." "32" "." "0");
8207	# endif
8208	#endif
8209
8210	newXS_deffile("Devel::PPPort::HvNAME_get", XS_Devel__PPPort_HvNAME_get)Perl_newXS_deffile( "Devel::PPPort::HvNAME_get",XS_Devel__PPPort_HvNAME_get );
8211	newXS_deffile("Devel::PPPort::HvNAMELEN_get", XS_Devel__PPPort_HvNAMELEN_get)Perl_newXS_deffile( "Devel::PPPort::HvNAMELEN_get",XS_Devel__PPPort_HvNAMELEN_get );
8212	newXS_deffile("Devel::PPPort::MY_CXT_1", XS_Devel__PPPort_MY_CXT_1)Perl_newXS_deffile( "Devel::PPPort::MY_CXT_1",XS_Devel__PPPort_MY_CXT_1 );
8213	newXS_deffile("Devel::PPPort::MY_CXT_2", XS_Devel__PPPort_MY_CXT_2)Perl_newXS_deffile( "Devel::PPPort::MY_CXT_2",XS_Devel__PPPort_MY_CXT_2 );
8214	newXS_deffile("Devel::PPPort::MY_CXT_CLONE", XS_Devel__PPPort_MY_CXT_CLONE)Perl_newXS_deffile( "Devel::PPPort::MY_CXT_CLONE",XS_Devel__PPPort_MY_CXT_CLONE );
8215	newXS_deffile("Devel::PPPort::SvPVbyte", XS_Devel__PPPort_SvPVbyte)Perl_newXS_deffile( "Devel::PPPort::SvPVbyte",XS_Devel__PPPort_SvPVbyte );
8216	newXS_deffile("Devel::PPPort::SvPV_nolen", XS_Devel__PPPort_SvPV_nolen)Perl_newXS_deffile( "Devel::PPPort::SvPV_nolen",XS_Devel__PPPort_SvPV_nolen );
8217	newXS_deffile("Devel::PPPort::SvPV_const", XS_Devel__PPPort_SvPV_const)Perl_newXS_deffile( "Devel::PPPort::SvPV_const",XS_Devel__PPPort_SvPV_const );
8218	newXS_deffile("Devel::PPPort::SvPV_mutable", XS_Devel__PPPort_SvPV_mutable)Perl_newXS_deffile( "Devel::PPPort::SvPV_mutable",XS_Devel__PPPort_SvPV_mutable );
8219	newXS_deffile("Devel::PPPort::SvPV_flags", XS_Devel__PPPort_SvPV_flags)Perl_newXS_deffile( "Devel::PPPort::SvPV_flags",XS_Devel__PPPort_SvPV_flags );
8220	newXS_deffile("Devel::PPPort::SvPV_flags_const", XS_Devel__PPPort_SvPV_flags_const)Perl_newXS_deffile( "Devel::PPPort::SvPV_flags_const",XS_Devel__PPPort_SvPV_flags_const );
8221	newXS_deffile("Devel::PPPort::SvPV_flags_const_nolen", XS_Devel__PPPort_SvPV_flags_const_nolen)Perl_newXS_deffile( "Devel::PPPort::SvPV_flags_const_nolen",XS_Devel__PPPort_SvPV_flags_const_nolen );
8222	newXS_deffile("Devel::PPPort::SvPV_flags_mutable", XS_Devel__PPPort_SvPV_flags_mutable)Perl_newXS_deffile( "Devel::PPPort::SvPV_flags_mutable",XS_Devel__PPPort_SvPV_flags_mutable );
8223	newXS_deffile("Devel::PPPort::SvPV_force", XS_Devel__PPPort_SvPV_force)Perl_newXS_deffile( "Devel::PPPort::SvPV_force",XS_Devel__PPPort_SvPV_force );
8224	newXS_deffile("Devel::PPPort::SvPV_force_nolen", XS_Devel__PPPort_SvPV_force_nolen)Perl_newXS_deffile( "Devel::PPPort::SvPV_force_nolen",XS_Devel__PPPort_SvPV_force_nolen );
8225	newXS_deffile("Devel::PPPort::SvPV_force_mutable", XS_Devel__PPPort_SvPV_force_mutable)Perl_newXS_deffile( "Devel::PPPort::SvPV_force_mutable",XS_Devel__PPPort_SvPV_force_mutable );
8226	newXS_deffile("Devel::PPPort::SvPV_force_nomg", XS_Devel__PPPort_SvPV_force_nomg)Perl_newXS_deffile( "Devel::PPPort::SvPV_force_nomg",XS_Devel__PPPort_SvPV_force_nomg );
8227	newXS_deffile("Devel::PPPort::SvPV_force_nomg_nolen", XS_Devel__PPPort_SvPV_force_nomg_nolen)Perl_newXS_deffile( "Devel::PPPort::SvPV_force_nomg_nolen",XS_Devel__PPPort_SvPV_force_nomg_nolen );
8228	newXS_deffile("Devel::PPPort::SvPV_force_flags", XS_Devel__PPPort_SvPV_force_flags)Perl_newXS_deffile( "Devel::PPPort::SvPV_force_flags",XS_Devel__PPPort_SvPV_force_flags );
8229	newXS_deffile("Devel::PPPort::SvPV_force_flags_nolen", XS_Devel__PPPort_SvPV_force_flags_nolen)Perl_newXS_deffile( "Devel::PPPort::SvPV_force_flags_nolen",XS_Devel__PPPort_SvPV_force_flags_nolen );
8230	newXS_deffile("Devel::PPPort::SvPV_force_flags_mutable", XS_Devel__PPPort_SvPV_force_flags_mutable)Perl_newXS_deffile( "Devel::PPPort::SvPV_force_flags_mutable" ,XS_Devel__PPPort_SvPV_force_flags_mutable);
8231	newXS_deffile("Devel::PPPort::SvPV_nolen_const", XS_Devel__PPPort_SvPV_nolen_const)Perl_newXS_deffile( "Devel::PPPort::SvPV_nolen_const",XS_Devel__PPPort_SvPV_nolen_const );
8232	newXS_deffile("Devel::PPPort::SvPV_nomg", XS_Devel__PPPort_SvPV_nomg)Perl_newXS_deffile( "Devel::PPPort::SvPV_nomg",XS_Devel__PPPort_SvPV_nomg );
8233	newXS_deffile("Devel::PPPort::SvPV_nomg_const", XS_Devel__PPPort_SvPV_nomg_const)Perl_newXS_deffile( "Devel::PPPort::SvPV_nomg_const",XS_Devel__PPPort_SvPV_nomg_const );
8234	newXS_deffile("Devel::PPPort::SvPV_nomg_const_nolen", XS_Devel__PPPort_SvPV_nomg_const_nolen)Perl_newXS_deffile( "Devel::PPPort::SvPV_nomg_const_nolen",XS_Devel__PPPort_SvPV_nomg_const_nolen );
8235	newXS_deffile("Devel::PPPort::SvPV_nomg_nolen", XS_Devel__PPPort_SvPV_nomg_nolen)Perl_newXS_deffile( "Devel::PPPort::SvPV_nomg_nolen",XS_Devel__PPPort_SvPV_nomg_nolen );
8236	newXS_deffile("Devel::PPPort::SvPV_renew", XS_Devel__PPPort_SvPV_renew)Perl_newXS_deffile( "Devel::PPPort::SvPV_renew",XS_Devel__PPPort_SvPV_renew );
8237	newXS_deffile("Devel::PPPort::SvREFCNT", XS_Devel__PPPort_SvREFCNT)Perl_newXS_deffile( "Devel::PPPort::SvREFCNT",XS_Devel__PPPort_SvREFCNT );
8238	newXS_deffile("Devel::PPPort::TestSvUV_set", XS_Devel__PPPort_TestSvUV_set)Perl_newXS_deffile( "Devel::PPPort::TestSvUV_set",XS_Devel__PPPort_TestSvUV_set );
8239	newXS_deffile("Devel::PPPort::TestSvPVX_const", XS_Devel__PPPort_TestSvPVX_const)Perl_newXS_deffile( "Devel::PPPort::TestSvPVX_const",XS_Devel__PPPort_TestSvPVX_const );
8240	newXS_deffile("Devel::PPPort::TestSvPVX_mutable", XS_Devel__PPPort_TestSvPVX_mutable)Perl_newXS_deffile( "Devel::PPPort::TestSvPVX_mutable",XS_Devel__PPPort_TestSvPVX_mutable );
8241	newXS_deffile("Devel::PPPort::TestSvSTASH_set", XS_Devel__PPPort_TestSvSTASH_set)Perl_newXS_deffile( "Devel::PPPort::TestSvSTASH_set",XS_Devel__PPPort_TestSvSTASH_set );
8242	newXS_deffile("Devel::PPPort::Test_sv_setsv_SV_NOSTEAL", XS_Devel__PPPort_Test_sv_setsv_SV_NOSTEAL)Perl_newXS_deffile( "Devel::PPPort::Test_sv_setsv_SV_NOSTEAL" ,XS_Devel__PPPort_Test_sv_setsv_SV_NOSTEAL);
8243	newXS_deffile("Devel::PPPort::newSVsv_nomg", XS_Devel__PPPort_newSVsv_nomg)Perl_newXS_deffile( "Devel::PPPort::newSVsv_nomg",XS_Devel__PPPort_newSVsv_nomg );
8244	newXS_deffile("Devel::PPPort::sv_setsv_compile_test", XS_Devel__PPPort_sv_setsv_compile_test)Perl_newXS_deffile( "Devel::PPPort::sv_setsv_compile_test",XS_Devel__PPPort_sv_setsv_compile_test );
8245	newXS_deffile("Devel::PPPort::G_SCALAR", XS_Devel__PPPort_G_SCALAR)Perl_newXS_deffile( "Devel::PPPort::G_SCALAR",XS_Devel__PPPort_G_SCALAR );
8246	newXS_deffile("Devel::PPPort::G_ARRAY", XS_Devel__PPPort_G_ARRAY)Perl_newXS_deffile( "Devel::PPPort::G_ARRAY",XS_Devel__PPPort_G_ARRAY );
8247	newXS_deffile("Devel::PPPort::G_DISCARD", XS_Devel__PPPort_G_DISCARD)Perl_newXS_deffile( "Devel::PPPort::G_DISCARD",XS_Devel__PPPort_G_DISCARD );
8248	newXS_deffile("Devel::PPPort::G_RETHROW", XS_Devel__PPPort_G_RETHROW)Perl_newXS_deffile( "Devel::PPPort::G_RETHROW",XS_Devel__PPPort_G_RETHROW );
8249	newXS_deffile("Devel::PPPort::eval_sv", XS_Devel__PPPort_eval_sv)Perl_newXS_deffile( "Devel::PPPort::eval_sv",XS_Devel__PPPort_eval_sv );
8250	newXS_deffile("Devel::PPPort::eval_pv", XS_Devel__PPPort_eval_pv)Perl_newXS_deffile( "Devel::PPPort::eval_pv",XS_Devel__PPPort_eval_pv );
8251	newXS_deffile("Devel::PPPort::call_sv", XS_Devel__PPPort_call_sv)Perl_newXS_deffile( "Devel::PPPort::call_sv",XS_Devel__PPPort_call_sv );
8252	newXS_deffile("Devel::PPPort::call_pv", XS_Devel__PPPort_call_pv)Perl_newXS_deffile( "Devel::PPPort::call_pv",XS_Devel__PPPort_call_pv );
8253	newXS_deffile("Devel::PPPort::call_argv", XS_Devel__PPPort_call_argv)Perl_newXS_deffile( "Devel::PPPort::call_argv",XS_Devel__PPPort_call_argv );
8254	newXS_deffile("Devel::PPPort::call_method", XS_Devel__PPPort_call_method)Perl_newXS_deffile( "Devel::PPPort::call_method",XS_Devel__PPPort_call_method );
8255	newXS_deffile("Devel::PPPort::call_sv_G_METHOD", XS_Devel__PPPort_call_sv_G_METHOD)Perl_newXS_deffile( "Devel::PPPort::call_sv_G_METHOD",XS_Devel__PPPort_call_sv_G_METHOD );
8256	newXS_deffile("Devel::PPPort::load_module", XS_Devel__PPPort_load_module)Perl_newXS_deffile( "Devel::PPPort::load_module",XS_Devel__PPPort_load_module );
8257	newXS_deffile("Devel::PPPort::CopSTASHPV", XS_Devel__PPPort_CopSTASHPV)Perl_newXS_deffile( "Devel::PPPort::CopSTASHPV",XS_Devel__PPPort_CopSTASHPV );
8258	newXS_deffile("Devel::PPPort::CopFILE", XS_Devel__PPPort_CopFILE)Perl_newXS_deffile( "Devel::PPPort::CopFILE",XS_Devel__PPPort_CopFILE );
8259	#if XSubPPtmpAAAA1
8260	newXS_deffile("Devel::PPPort::caller_cx", XS_Devel__PPPort_caller_cx)Perl_newXS_deffile( "Devel::PPPort::caller_cx",XS_Devel__PPPort_caller_cx );
8261	#endif
8262	newXS_deffile("Devel::PPPort::exception", XS_Devel__PPPort_exception)Perl_newXS_deffile( "Devel::PPPort::exception",XS_Devel__PPPort_exception );
8263	newXS_deffile("Devel::PPPort::croak_NVgf", XS_Devel__PPPort_croak_NVgf)Perl_newXS_deffile( "Devel::PPPort::croak_NVgf",XS_Devel__PPPort_croak_NVgf );
8264	#if XSubPPtmpAAAB1
8265	newXS_deffile("Devel::PPPort::sprintf_iv", XS_Devel__PPPort_sprintf_iv)Perl_newXS_deffile( "Devel::PPPort::sprintf_iv",XS_Devel__PPPort_sprintf_iv );
8266	newXS_deffile("Devel::PPPort::sprintf_uv", XS_Devel__PPPort_sprintf_uv)Perl_newXS_deffile( "Devel::PPPort::sprintf_uv",XS_Devel__PPPort_sprintf_uv );
8267	newXS_deffile("Devel::PPPort::sprintf_ivmax", XS_Devel__PPPort_sprintf_ivmax)Perl_newXS_deffile( "Devel::PPPort::sprintf_ivmax",XS_Devel__PPPort_sprintf_ivmax );
8268	newXS_deffile("Devel::PPPort::sprintf_uvmax", XS_Devel__PPPort_sprintf_uvmax)Perl_newXS_deffile( "Devel::PPPort::sprintf_uvmax",XS_Devel__PPPort_sprintf_uvmax );
8269	#endif
8270	newXS_deffile("Devel::PPPort::grok_number", XS_Devel__PPPort_grok_number)Perl_newXS_deffile( "Devel::PPPort::grok_number",XS_Devel__PPPort_grok_number );
8271	newXS_deffile("Devel::PPPort::grok_bin", XS_Devel__PPPort_grok_bin)Perl_newXS_deffile( "Devel::PPPort::grok_bin",XS_Devel__PPPort_grok_bin );
8272	newXS_deffile("Devel::PPPort::grok_hex", XS_Devel__PPPort_grok_hex)Perl_newXS_deffile( "Devel::PPPort::grok_hex",XS_Devel__PPPort_grok_hex );
8273	newXS_deffile("Devel::PPPort::grok_oct", XS_Devel__PPPort_grok_oct)Perl_newXS_deffile( "Devel::PPPort::grok_oct",XS_Devel__PPPort_grok_oct );
8274	newXS_deffile("Devel::PPPort::Perl_grok_number", XS_Devel__PPPort_Perl_grok_number)Perl_newXS_deffile( "Devel::PPPort::Perl_grok_number",XS_Devel__PPPort_Perl_grok_number );
8275	newXS_deffile("Devel::PPPort::Perl_grok_bin", XS_Devel__PPPort_Perl_grok_bin)Perl_newXS_deffile( "Devel::PPPort::Perl_grok_bin",XS_Devel__PPPort_Perl_grok_bin );
8276	newXS_deffile("Devel::PPPort::Perl_grok_hex", XS_Devel__PPPort_Perl_grok_hex)Perl_newXS_deffile( "Devel::PPPort::Perl_grok_hex",XS_Devel__PPPort_Perl_grok_hex );
8277	newXS_deffile("Devel::PPPort::Perl_grok_oct", XS_Devel__PPPort_Perl_grok_oct)Perl_newXS_deffile( "Devel::PPPort::Perl_grok_oct",XS_Devel__PPPort_Perl_grok_oct );
8278	newXS_deffile("Devel::PPPort::GvSVn", XS_Devel__PPPort_GvSVn)Perl_newXS_deffile( "Devel::PPPort::GvSVn",XS_Devel__PPPort_GvSVn );
8279	newXS_deffile("Devel::PPPort::isGV_with_GP", XS_Devel__PPPort_isGV_with_GP)Perl_newXS_deffile( "Devel::PPPort::isGV_with_GP",XS_Devel__PPPort_isGV_with_GP );
8280	newXS_deffile("Devel::PPPort::get_cvn_flags", XS_Devel__PPPort_get_cvn_flags)Perl_newXS_deffile( "Devel::PPPort::get_cvn_flags",XS_Devel__PPPort_get_cvn_flags );
8281	newXS_deffile("Devel::PPPort::gv_fetchpvn_flags", XS_Devel__PPPort_gv_fetchpvn_flags)Perl_newXS_deffile( "Devel::PPPort::gv_fetchpvn_flags",XS_Devel__PPPort_gv_fetchpvn_flags );
8282	newXS_deffile("Devel::PPPort::gv_fetchsv", XS_Devel__PPPort_gv_fetchsv)Perl_newXS_deffile( "Devel::PPPort::gv_fetchsv",XS_Devel__PPPort_gv_fetchsv );
8283	newXS_deffile("Devel::PPPort::gv_init_type", XS_Devel__PPPort_gv_init_type)Perl_newXS_deffile( "Devel::PPPort::gv_init_type",XS_Devel__PPPort_gv_init_type );
8284	newXS_deffile("Devel::PPPort::iv_size", XS_Devel__PPPort_iv_size)Perl_newXS_deffile( "Devel::PPPort::iv_size",XS_Devel__PPPort_iv_size );
8285	newXS_deffile("Devel::PPPort::uv_size", XS_Devel__PPPort_uv_size)Perl_newXS_deffile( "Devel::PPPort::uv_size",XS_Devel__PPPort_uv_size );
8286	newXS_deffile("Devel::PPPort::iv_type", XS_Devel__PPPort_iv_type)Perl_newXS_deffile( "Devel::PPPort::iv_type",XS_Devel__PPPort_iv_type );
8287	newXS_deffile("Devel::PPPort::uv_type", XS_Devel__PPPort_uv_type)Perl_newXS_deffile( "Devel::PPPort::uv_type",XS_Devel__PPPort_uv_type );
8288	newXS_deffile("Devel::PPPort::sync_locale", XS_Devel__PPPort_sync_locale)Perl_newXS_deffile( "Devel::PPPort::sync_locale",XS_Devel__PPPort_sync_locale );
8289	newXS_deffile("Devel::PPPort::mPUSHs", XS_Devel__PPPort_mPUSHs)Perl_newXS_deffile( "Devel::PPPort::mPUSHs",XS_Devel__PPPort_mPUSHs );
8290	newXS_deffile("Devel::PPPort::mPUSHp", XS_Devel__PPPort_mPUSHp)Perl_newXS_deffile( "Devel::PPPort::mPUSHp",XS_Devel__PPPort_mPUSHp );
8291	newXS_deffile("Devel::PPPort::mPUSHn", XS_Devel__PPPort_mPUSHn)Perl_newXS_deffile( "Devel::PPPort::mPUSHn",XS_Devel__PPPort_mPUSHn );
8292	newXS_deffile("Devel::PPPort::mPUSHi", XS_Devel__PPPort_mPUSHi)Perl_newXS_deffile( "Devel::PPPort::mPUSHi",XS_Devel__PPPort_mPUSHi );
8293	newXS_deffile("Devel::PPPort::mPUSHu", XS_Devel__PPPort_mPUSHu)Perl_newXS_deffile( "Devel::PPPort::mPUSHu",XS_Devel__PPPort_mPUSHu );
8294	newXS_deffile("Devel::PPPort::mXPUSHs", XS_Devel__PPPort_mXPUSHs)Perl_newXS_deffile( "Devel::PPPort::mXPUSHs",XS_Devel__PPPort_mXPUSHs );
8295	newXS_deffile("Devel::PPPort::mXPUSHp", XS_Devel__PPPort_mXPUSHp)Perl_newXS_deffile( "Devel::PPPort::mXPUSHp",XS_Devel__PPPort_mXPUSHp );
8296	newXS_deffile("Devel::PPPort::mXPUSHn", XS_Devel__PPPort_mXPUSHn)Perl_newXS_deffile( "Devel::PPPort::mXPUSHn",XS_Devel__PPPort_mXPUSHn );
8297	newXS_deffile("Devel::PPPort::mXPUSHi", XS_Devel__PPPort_mXPUSHi)Perl_newXS_deffile( "Devel::PPPort::mXPUSHi",XS_Devel__PPPort_mXPUSHi );
8298	newXS_deffile("Devel::PPPort::mXPUSHu", XS_Devel__PPPort_mXPUSHu)Perl_newXS_deffile( "Devel::PPPort::mXPUSHu",XS_Devel__PPPort_mXPUSHu );
8299	newXS_deffile("Devel::PPPort::new_with_other_mg", XS_Devel__PPPort_new_with_other_mg)Perl_newXS_deffile( "Devel::PPPort::new_with_other_mg",XS_Devel__PPPort_new_with_other_mg );
8300	newXS_deffile("Devel::PPPort::new_with_mg", XS_Devel__PPPort_new_with_mg)Perl_newXS_deffile( "Devel::PPPort::new_with_mg",XS_Devel__PPPort_new_with_mg );
8301	newXS_deffile("Devel::PPPort::remove_null_magic", XS_Devel__PPPort_remove_null_magic)Perl_newXS_deffile( "Devel::PPPort::remove_null_magic",XS_Devel__PPPort_remove_null_magic );
8302	newXS_deffile("Devel::PPPort::remove_other_magic", XS_Devel__PPPort_remove_other_magic)Perl_newXS_deffile( "Devel::PPPort::remove_other_magic",XS_Devel__PPPort_remove_other_magic );
8303	newXS_deffile("Devel::PPPort::as_string", XS_Devel__PPPort_as_string)Perl_newXS_deffile( "Devel::PPPort::as_string",XS_Devel__PPPort_as_string );
8304	newXS_deffile("Devel::PPPort::sv_catpv_mg", XS_Devel__PPPort_sv_catpv_mg)Perl_newXS_deffile( "Devel::PPPort::sv_catpv_mg",XS_Devel__PPPort_sv_catpv_mg );
8305	newXS_deffile("Devel::PPPort::sv_catpvn_mg", XS_Devel__PPPort_sv_catpvn_mg)Perl_newXS_deffile( "Devel::PPPort::sv_catpvn_mg",XS_Devel__PPPort_sv_catpvn_mg );
8306	newXS_deffile("Devel::PPPort::sv_catsv_mg", XS_Devel__PPPort_sv_catsv_mg)Perl_newXS_deffile( "Devel::PPPort::sv_catsv_mg",XS_Devel__PPPort_sv_catsv_mg );
8307	newXS_deffile("Devel::PPPort::sv_setiv_mg", XS_Devel__PPPort_sv_setiv_mg)Perl_newXS_deffile( "Devel::PPPort::sv_setiv_mg",XS_Devel__PPPort_sv_setiv_mg );
8308	newXS_deffile("Devel::PPPort::sv_setnv_mg", XS_Devel__PPPort_sv_setnv_mg)Perl_newXS_deffile( "Devel::PPPort::sv_setnv_mg",XS_Devel__PPPort_sv_setnv_mg );
8309	newXS_deffile("Devel::PPPort::sv_setpv_mg", XS_Devel__PPPort_sv_setpv_mg)Perl_newXS_deffile( "Devel::PPPort::sv_setpv_mg",XS_Devel__PPPort_sv_setpv_mg );
8310	newXS_deffile("Devel::PPPort::sv_setpvn_mg", XS_Devel__PPPort_sv_setpvn_mg)Perl_newXS_deffile( "Devel::PPPort::sv_setpvn_mg",XS_Devel__PPPort_sv_setpvn_mg );
8311	newXS_deffile("Devel::PPPort::sv_setsv_mg", XS_Devel__PPPort_sv_setsv_mg)Perl_newXS_deffile( "Devel::PPPort::sv_setsv_mg",XS_Devel__PPPort_sv_setsv_mg );
8312	newXS_deffile("Devel::PPPort::sv_setuv_mg", XS_Devel__PPPort_sv_setuv_mg)Perl_newXS_deffile( "Devel::PPPort::sv_setuv_mg",XS_Devel__PPPort_sv_setuv_mg );
8313	newXS_deffile("Devel::PPPort::sv_usepvn_mg", XS_Devel__PPPort_sv_usepvn_mg)Perl_newXS_deffile( "Devel::PPPort::sv_usepvn_mg",XS_Devel__PPPort_sv_usepvn_mg );
8314	newXS_deffile("Devel::PPPort::SvVSTRING_mg", XS_Devel__PPPort_SvVSTRING_mg)Perl_newXS_deffile( "Devel::PPPort::SvVSTRING_mg",XS_Devel__PPPort_SvVSTRING_mg );
8315	newXS_deffile("Devel::PPPort::sv_magic_portable", XS_Devel__PPPort_sv_magic_portable)Perl_newXS_deffile( "Devel::PPPort::sv_magic_portable",XS_Devel__PPPort_sv_magic_portable );
8316	newXS_deffile("Devel::PPPort::above_IV_MAX", XS_Devel__PPPort_above_IV_MAX)Perl_newXS_deffile( "Devel::PPPort::above_IV_MAX",XS_Devel__PPPort_above_IV_MAX );
8317	#if XSubPPtmpAAAC1
8318	newXS_deffile("Devel::PPPort::SVf_IVisUV", XS_Devel__PPPort_SVf_IVisUV)Perl_newXS_deffile( "Devel::PPPort::SVf_IVisUV",XS_Devel__PPPort_SVf_IVisUV );
8319	#endif
8320	#if XSubPPtmpAAAD1
8321	newXS_deffile("Devel::PPPort::magic_SvIV_nomg", XS_Devel__PPPort_magic_SvIV_nomg)Perl_newXS_deffile( "Devel::PPPort::magic_SvIV_nomg",XS_Devel__PPPort_magic_SvIV_nomg );
8322	#endif
8323	#if XSubPPtmpAAAE1
8324	newXS_deffile("Devel::PPPort::magic_SvUV_nomg", XS_Devel__PPPort_magic_SvUV_nomg)Perl_newXS_deffile( "Devel::PPPort::magic_SvUV_nomg",XS_Devel__PPPort_magic_SvUV_nomg );
8325	#endif
8326	#if XSubPPtmpAAAF1
8327	newXS_deffile("Devel::PPPort::magic_SvNV_nomg", XS_Devel__PPPort_magic_SvNV_nomg)Perl_newXS_deffile( "Devel::PPPort::magic_SvNV_nomg",XS_Devel__PPPort_magic_SvNV_nomg );
8328	#endif
8329	#if XSubPPtmpAAAG1
8330	newXS_deffile("Devel::PPPort::magic_SvTRUE_nomg", XS_Devel__PPPort_magic_SvTRUE_nomg)Perl_newXS_deffile( "Devel::PPPort::magic_SvTRUE_nomg",XS_Devel__PPPort_magic_SvTRUE_nomg );
8331	#endif
8332	#if XSubPPtmpAAAH1
8333	newXS_deffile("Devel::PPPort::magic_SvPV_nomg_nolen", XS_Devel__PPPort_magic_SvPV_nomg_nolen)Perl_newXS_deffile( "Devel::PPPort::magic_SvPV_nomg_nolen",XS_Devel__PPPort_magic_SvPV_nomg_nolen );
8334	#endif
8335	newXS_deffile("Devel::PPPort::checkmem", XS_Devel__PPPort_checkmem)Perl_newXS_deffile( "Devel::PPPort::checkmem",XS_Devel__PPPort_checkmem );
8336	newXS_deffile("Devel::PPPort::croak_sv", XS_Devel__PPPort_croak_sv)Perl_newXS_deffile( "Devel::PPPort::croak_sv",XS_Devel__PPPort_croak_sv );
8337	newXS_deffile("Devel::PPPort::croak_sv_errsv", XS_Devel__PPPort_croak_sv_errsv)Perl_newXS_deffile( "Devel::PPPort::croak_sv_errsv",XS_Devel__PPPort_croak_sv_errsv );
8338	newXS_deffile("Devel::PPPort::croak_sv_with_counter", XS_Devel__PPPort_croak_sv_with_counter)Perl_newXS_deffile( "Devel::PPPort::croak_sv_with_counter",XS_Devel__PPPort_croak_sv_with_counter );
8339	newXS_deffile("Devel::PPPort::get_counter", XS_Devel__PPPort_get_counter)Perl_newXS_deffile( "Devel::PPPort::get_counter",XS_Devel__PPPort_get_counter );
8340	newXS_deffile("Devel::PPPort::die_sv", XS_Devel__PPPort_die_sv)Perl_newXS_deffile( "Devel::PPPort::die_sv",XS_Devel__PPPort_die_sv );
8341	newXS_deffile("Devel::PPPort::warn_sv", XS_Devel__PPPort_warn_sv)Perl_newXS_deffile( "Devel::PPPort::warn_sv",XS_Devel__PPPort_warn_sv );
8342	#if XSubPPtmpAAAI1
8343	newXS_deffile("Devel::PPPort::mess_sv", XS_Devel__PPPort_mess_sv)Perl_newXS_deffile( "Devel::PPPort::mess_sv",XS_Devel__PPPort_mess_sv );
8344	#endif
8345	newXS_deffile("Devel::PPPort::croak_no_modify", XS_Devel__PPPort_croak_no_modify)Perl_newXS_deffile( "Devel::PPPort::croak_no_modify",XS_Devel__PPPort_croak_no_modify );
8346	newXS_deffile("Devel::PPPort::croak_memory_wrap", XS_Devel__PPPort_croak_memory_wrap)Perl_newXS_deffile( "Devel::PPPort::croak_memory_wrap",XS_Devel__PPPort_croak_memory_wrap );
8347	newXS_deffile("Devel::PPPort::croak_xs_usage", XS_Devel__PPPort_croak_xs_usage)Perl_newXS_deffile( "Devel::PPPort::croak_xs_usage",XS_Devel__PPPort_croak_xs_usage );
8348	newXS_deffile("Devel::PPPort::OpSIBLING_tests", XS_Devel__PPPort_OpSIBLING_tests)Perl_newXS_deffile( "Devel::PPPort::OpSIBLING_tests",XS_Devel__PPPort_OpSIBLING_tests );
8349	newXS_deffile("Devel::PPPort::SvRXOK", XS_Devel__PPPort_SvRXOK)Perl_newXS_deffile( "Devel::PPPort::SvRXOK",XS_Devel__PPPort_SvRXOK );
8350	newXS_deffile("Devel::PPPort::ptrtests", XS_Devel__PPPort_ptrtests)Perl_newXS_deffile( "Devel::PPPort::ptrtests",XS_Devel__PPPort_ptrtests );
8351	newXS_deffile("Devel::PPPort::gv_stashpvn", XS_Devel__PPPort_gv_stashpvn)Perl_newXS_deffile( "Devel::PPPort::gv_stashpvn",XS_Devel__PPPort_gv_stashpvn );
8352	newXS_deffile("Devel::PPPort::get_sv", XS_Devel__PPPort_get_sv)Perl_newXS_deffile( "Devel::PPPort::get_sv",XS_Devel__PPPort_get_sv );
8353	newXS_deffile("Devel::PPPort::get_av", XS_Devel__PPPort_get_av)Perl_newXS_deffile( "Devel::PPPort::get_av",XS_Devel__PPPort_get_av );
8354	newXS_deffile("Devel::PPPort::get_hv", XS_Devel__PPPort_get_hv)Perl_newXS_deffile( "Devel::PPPort::get_hv",XS_Devel__PPPort_get_hv );
8355	newXS_deffile("Devel::PPPort::get_cv", XS_Devel__PPPort_get_cv)Perl_newXS_deffile( "Devel::PPPort::get_cv",XS_Devel__PPPort_get_cv );
8356	newXS_deffile("Devel::PPPort::xsreturn", XS_Devel__PPPort_xsreturn)Perl_newXS_deffile( "Devel::PPPort::xsreturn",XS_Devel__PPPort_xsreturn );
8357	newXS_deffile("Devel::PPPort::boolSV", XS_Devel__PPPort_boolSV)Perl_newXS_deffile( "Devel::PPPort::boolSV",XS_Devel__PPPort_boolSV );
8358	newXS_deffile("Devel::PPPort::DEFSV", XS_Devel__PPPort_DEFSV)Perl_newXS_deffile( "Devel::PPPort::DEFSV",XS_Devel__PPPort_DEFSV );
8359	newXS_deffile("Devel::PPPort::DEFSV_modify", XS_Devel__PPPort_DEFSV_modify)Perl_newXS_deffile( "Devel::PPPort::DEFSV_modify",XS_Devel__PPPort_DEFSV_modify );
8360	newXS_deffile("Devel::PPPort::ERRSV", XS_Devel__PPPort_ERRSV)Perl_newXS_deffile( "Devel::PPPort::ERRSV",XS_Devel__PPPort_ERRSV );
8361	newXS_deffile("Devel::PPPort::UNDERBAR", XS_Devel__PPPort_UNDERBAR)Perl_newXS_deffile( "Devel::PPPort::UNDERBAR",XS_Devel__PPPort_UNDERBAR );
8362	newXS_deffile("Devel::PPPort::prepush", XS_Devel__PPPort_prepush)Perl_newXS_deffile( "Devel::PPPort::prepush",XS_Devel__PPPort_prepush );
8363	newXS_deffile("Devel::PPPort::PERL_ABS", XS_Devel__PPPort_PERL_ABS)Perl_newXS_deffile( "Devel::PPPort::PERL_ABS",XS_Devel__PPPort_PERL_ABS );
8364	newXS_deffile("Devel::PPPort::SVf", XS_Devel__PPPort_SVf)Perl_newXS_deffile( "Devel::PPPort::SVf",XS_Devel__PPPort_SVf );
8365	newXS_deffile("Devel::PPPort::Perl_ppaddr_t", XS_Devel__PPPort_Perl_ppaddr_t)Perl_newXS_deffile( "Devel::PPPort::Perl_ppaddr_t",XS_Devel__PPPort_Perl_ppaddr_t );
8366	#if XSubPPtmpAAAJ1
8367	newXS_deffile("Devel::PPPort::check_HeUTF8", XS_Devel__PPPort_check_HeUTF8)Perl_newXS_deffile( "Devel::PPPort::check_HeUTF8",XS_Devel__PPPort_check_HeUTF8 );
8368	#endif
8369	newXS_deffile("Devel::PPPort::check_c_array", XS_Devel__PPPort_check_c_array)Perl_newXS_deffile( "Devel::PPPort::check_c_array",XS_Devel__PPPort_check_c_array );
8370	newXS_deffile("Devel::PPPort::isBLANK", XS_Devel__PPPort_isBLANK)Perl_newXS_deffile( "Devel::PPPort::isBLANK",XS_Devel__PPPort_isBLANK );
8371	newXS_deffile("Devel::PPPort::isBLANK_A", XS_Devel__PPPort_isBLANK_A)Perl_newXS_deffile( "Devel::PPPort::isBLANK_A",XS_Devel__PPPort_isBLANK_A );
8372	newXS_deffile("Devel::PPPort::isBLANK_L1", XS_Devel__PPPort_isBLANK_L1)Perl_newXS_deffile( "Devel::PPPort::isBLANK_L1",XS_Devel__PPPort_isBLANK_L1 );
8373	newXS_deffile("Devel::PPPort::isUPPER", XS_Devel__PPPort_isUPPER)Perl_newXS_deffile( "Devel::PPPort::isUPPER",XS_Devel__PPPort_isUPPER );
8374	newXS_deffile("Devel::PPPort::isUPPER_A", XS_Devel__PPPort_isUPPER_A)Perl_newXS_deffile( "Devel::PPPort::isUPPER_A",XS_Devel__PPPort_isUPPER_A );
8375	newXS_deffile("Devel::PPPort::isUPPER_L1", XS_Devel__PPPort_isUPPER_L1)Perl_newXS_deffile( "Devel::PPPort::isUPPER_L1",XS_Devel__PPPort_isUPPER_L1 );
8376	newXS_deffile("Devel::PPPort::isLOWER", XS_Devel__PPPort_isLOWER)Perl_newXS_deffile( "Devel::PPPort::isLOWER",XS_Devel__PPPort_isLOWER );
8377	newXS_deffile("Devel::PPPort::isLOWER_A", XS_Devel__PPPort_isLOWER_A)Perl_newXS_deffile( "Devel::PPPort::isLOWER_A",XS_Devel__PPPort_isLOWER_A );
8378	newXS_deffile("Devel::PPPort::isLOWER_L1", XS_Devel__PPPort_isLOWER_L1)Perl_newXS_deffile( "Devel::PPPort::isLOWER_L1",XS_Devel__PPPort_isLOWER_L1 );
8379	newXS_deffile("Devel::PPPort::isALPHA", XS_Devel__PPPort_isALPHA)Perl_newXS_deffile( "Devel::PPPort::isALPHA",XS_Devel__PPPort_isALPHA );
8380	newXS_deffile("Devel::PPPort::isALPHA_A", XS_Devel__PPPort_isALPHA_A)Perl_newXS_deffile( "Devel::PPPort::isALPHA_A",XS_Devel__PPPort_isALPHA_A );
8381	newXS_deffile("Devel::PPPort::isALPHA_L1", XS_Devel__PPPort_isALPHA_L1)Perl_newXS_deffile( "Devel::PPPort::isALPHA_L1",XS_Devel__PPPort_isALPHA_L1 );
8382	newXS_deffile("Devel::PPPort::isWORDCHAR", XS_Devel__PPPort_isWORDCHAR)Perl_newXS_deffile( "Devel::PPPort::isWORDCHAR",XS_Devel__PPPort_isWORDCHAR );
8383	newXS_deffile("Devel::PPPort::isWORDCHAR_A", XS_Devel__PPPort_isWORDCHAR_A)Perl_newXS_deffile( "Devel::PPPort::isWORDCHAR_A",XS_Devel__PPPort_isWORDCHAR_A );
8384	newXS_deffile("Devel::PPPort::isWORDCHAR_L1", XS_Devel__PPPort_isWORDCHAR_L1)Perl_newXS_deffile( "Devel::PPPort::isWORDCHAR_L1",XS_Devel__PPPort_isWORDCHAR_L1 );
8385	newXS_deffile("Devel::PPPort::isALPHANUMERIC", XS_Devel__PPPort_isALPHANUMERIC)Perl_newXS_deffile( "Devel::PPPort::isALPHANUMERIC",XS_Devel__PPPort_isALPHANUMERIC );
8386	newXS_deffile("Devel::PPPort::isALPHANUMERIC_A", XS_Devel__PPPort_isALPHANUMERIC_A)Perl_newXS_deffile( "Devel::PPPort::isALPHANUMERIC_A",XS_Devel__PPPort_isALPHANUMERIC_A );
8387	newXS_deffile("Devel::PPPort::isALNUM", XS_Devel__PPPort_isALNUM)Perl_newXS_deffile( "Devel::PPPort::isALNUM",XS_Devel__PPPort_isALNUM );
8388	newXS_deffile("Devel::PPPort::isALNUM_A", XS_Devel__PPPort_isALNUM_A)Perl_newXS_deffile( "Devel::PPPort::isALNUM_A",XS_Devel__PPPort_isALNUM_A );
8389	newXS_deffile("Devel::PPPort::isDIGIT", XS_Devel__PPPort_isDIGIT)Perl_newXS_deffile( "Devel::PPPort::isDIGIT",XS_Devel__PPPort_isDIGIT );
8390	newXS_deffile("Devel::PPPort::isDIGIT_A", XS_Devel__PPPort_isDIGIT_A)Perl_newXS_deffile( "Devel::PPPort::isDIGIT_A",XS_Devel__PPPort_isDIGIT_A );
8391	newXS_deffile("Devel::PPPort::isOCTAL", XS_Devel__PPPort_isOCTAL)Perl_newXS_deffile( "Devel::PPPort::isOCTAL",XS_Devel__PPPort_isOCTAL );
8392	newXS_deffile("Devel::PPPort::isOCTAL_A", XS_Devel__PPPort_isOCTAL_A)Perl_newXS_deffile( "Devel::PPPort::isOCTAL_A",XS_Devel__PPPort_isOCTAL_A );
8393	newXS_deffile("Devel::PPPort::isIDFIRST", XS_Devel__PPPort_isIDFIRST)Perl_newXS_deffile( "Devel::PPPort::isIDFIRST",XS_Devel__PPPort_isIDFIRST );
8394	newXS_deffile("Devel::PPPort::isIDFIRST_A", XS_Devel__PPPort_isIDFIRST_A)Perl_newXS_deffile( "Devel::PPPort::isIDFIRST_A",XS_Devel__PPPort_isIDFIRST_A );
8395	newXS_deffile("Devel::PPPort::isIDCONT", XS_Devel__PPPort_isIDCONT)Perl_newXS_deffile( "Devel::PPPort::isIDCONT",XS_Devel__PPPort_isIDCONT );
8396	newXS_deffile("Devel::PPPort::isIDCONT_A", XS_Devel__PPPort_isIDCONT_A)Perl_newXS_deffile( "Devel::PPPort::isIDCONT_A",XS_Devel__PPPort_isIDCONT_A );
8397	newXS_deffile("Devel::PPPort::isSPACE", XS_Devel__PPPort_isSPACE)Perl_newXS_deffile( "Devel::PPPort::isSPACE",XS_Devel__PPPort_isSPACE );
8398	newXS_deffile("Devel::PPPort::isSPACE_A", XS_Devel__PPPort_isSPACE_A)Perl_newXS_deffile( "Devel::PPPort::isSPACE_A",XS_Devel__PPPort_isSPACE_A );
8399	newXS_deffile("Devel::PPPort::isASCII", XS_Devel__PPPort_isASCII)Perl_newXS_deffile( "Devel::PPPort::isASCII",XS_Devel__PPPort_isASCII );
8400	newXS_deffile("Devel::PPPort::isASCII_A", XS_Devel__PPPort_isASCII_A)Perl_newXS_deffile( "Devel::PPPort::isASCII_A",XS_Devel__PPPort_isASCII_A );
8401	newXS_deffile("Devel::PPPort::isCNTRL", XS_Devel__PPPort_isCNTRL)Perl_newXS_deffile( "Devel::PPPort::isCNTRL",XS_Devel__PPPort_isCNTRL );
8402	newXS_deffile("Devel::PPPort::isCNTRL_A", XS_Devel__PPPort_isCNTRL_A)Perl_newXS_deffile( "Devel::PPPort::isCNTRL_A",XS_Devel__PPPort_isCNTRL_A );
8403	newXS_deffile("Devel::PPPort::isPRINT", XS_Devel__PPPort_isPRINT)Perl_newXS_deffile( "Devel::PPPort::isPRINT",XS_Devel__PPPort_isPRINT );
8404	newXS_deffile("Devel::PPPort::isPRINT_A", XS_Devel__PPPort_isPRINT_A)Perl_newXS_deffile( "Devel::PPPort::isPRINT_A",XS_Devel__PPPort_isPRINT_A );
8405	newXS_deffile("Devel::PPPort::isGRAPH", XS_Devel__PPPort_isGRAPH)Perl_newXS_deffile( "Devel::PPPort::isGRAPH",XS_Devel__PPPort_isGRAPH );
8406	newXS_deffile("Devel::PPPort::isGRAPH_A", XS_Devel__PPPort_isGRAPH_A)Perl_newXS_deffile( "Devel::PPPort::isGRAPH_A",XS_Devel__PPPort_isGRAPH_A );
8407	newXS_deffile("Devel::PPPort::isPUNCT", XS_Devel__PPPort_isPUNCT)Perl_newXS_deffile( "Devel::PPPort::isPUNCT",XS_Devel__PPPort_isPUNCT );
8408	newXS_deffile("Devel::PPPort::isPUNCT_A", XS_Devel__PPPort_isPUNCT_A)Perl_newXS_deffile( "Devel::PPPort::isPUNCT_A",XS_Devel__PPPort_isPUNCT_A );
8409	newXS_deffile("Devel::PPPort::isXDIGIT", XS_Devel__PPPort_isXDIGIT)Perl_newXS_deffile( "Devel::PPPort::isXDIGIT",XS_Devel__PPPort_isXDIGIT );
8410	newXS_deffile("Devel::PPPort::isXDIGIT_A", XS_Devel__PPPort_isXDIGIT_A)Perl_newXS_deffile( "Devel::PPPort::isXDIGIT_A",XS_Devel__PPPort_isXDIGIT_A );
8411	newXS_deffile("Devel::PPPort::isPSXSPC", XS_Devel__PPPort_isPSXSPC)Perl_newXS_deffile( "Devel::PPPort::isPSXSPC",XS_Devel__PPPort_isPSXSPC );
8412	newXS_deffile("Devel::PPPort::isPSXSPC_A", XS_Devel__PPPort_isPSXSPC_A)Perl_newXS_deffile( "Devel::PPPort::isPSXSPC_A",XS_Devel__PPPort_isPSXSPC_A );
8413	newXS_deffile("Devel::PPPort::isALPHANUMERIC_L1", XS_Devel__PPPort_isALPHANUMERIC_L1)Perl_newXS_deffile( "Devel::PPPort::isALPHANUMERIC_L1",XS_Devel__PPPort_isALPHANUMERIC_L1 );
8414	newXS_deffile("Devel::PPPort::isALNUMC_L1", XS_Devel__PPPort_isALNUMC_L1)Perl_newXS_deffile( "Devel::PPPort::isALNUMC_L1",XS_Devel__PPPort_isALNUMC_L1 );
8415	newXS_deffile("Devel::PPPort::isDIGIT_L1", XS_Devel__PPPort_isDIGIT_L1)Perl_newXS_deffile( "Devel::PPPort::isDIGIT_L1",XS_Devel__PPPort_isDIGIT_L1 );
8416	newXS_deffile("Devel::PPPort::isOCTAL_L1", XS_Devel__PPPort_isOCTAL_L1)Perl_newXS_deffile( "Devel::PPPort::isOCTAL_L1",XS_Devel__PPPort_isOCTAL_L1 );
8417	newXS_deffile("Devel::PPPort::isIDFIRST_L1", XS_Devel__PPPort_isIDFIRST_L1)Perl_newXS_deffile( "Devel::PPPort::isIDFIRST_L1",XS_Devel__PPPort_isIDFIRST_L1 );
8418	newXS_deffile("Devel::PPPort::isIDCONT_L1", XS_Devel__PPPort_isIDCONT_L1)Perl_newXS_deffile( "Devel::PPPort::isIDCONT_L1",XS_Devel__PPPort_isIDCONT_L1 );
8419	newXS_deffile("Devel::PPPort::isSPACE_L1", XS_Devel__PPPort_isSPACE_L1)Perl_newXS_deffile( "Devel::PPPort::isSPACE_L1",XS_Devel__PPPort_isSPACE_L1 );
8420	newXS_deffile("Devel::PPPort::isASCII_L1", XS_Devel__PPPort_isASCII_L1)Perl_newXS_deffile( "Devel::PPPort::isASCII_L1",XS_Devel__PPPort_isASCII_L1 );
8421	newXS_deffile("Devel::PPPort::isCNTRL_L1", XS_Devel__PPPort_isCNTRL_L1)Perl_newXS_deffile( "Devel::PPPort::isCNTRL_L1",XS_Devel__PPPort_isCNTRL_L1 );
8422	newXS_deffile("Devel::PPPort::isPRINT_L1", XS_Devel__PPPort_isPRINT_L1)Perl_newXS_deffile( "Devel::PPPort::isPRINT_L1",XS_Devel__PPPort_isPRINT_L1 );
8423	newXS_deffile("Devel::PPPort::isGRAPH_L1", XS_Devel__PPPort_isGRAPH_L1)Perl_newXS_deffile( "Devel::PPPort::isGRAPH_L1",XS_Devel__PPPort_isGRAPH_L1 );
8424	newXS_deffile("Devel::PPPort::isPUNCT_L1", XS_Devel__PPPort_isPUNCT_L1)Perl_newXS_deffile( "Devel::PPPort::isPUNCT_L1",XS_Devel__PPPort_isPUNCT_L1 );
8425	newXS_deffile("Devel::PPPort::isXDIGIT_L1", XS_Devel__PPPort_isXDIGIT_L1)Perl_newXS_deffile( "Devel::PPPort::isXDIGIT_L1",XS_Devel__PPPort_isXDIGIT_L1 );
8426	newXS_deffile("Devel::PPPort::isPSXSPC_L1", XS_Devel__PPPort_isPSXSPC_L1)Perl_newXS_deffile( "Devel::PPPort::isPSXSPC_L1",XS_Devel__PPPort_isPSXSPC_L1 );
8427	newXS_deffile("Devel::PPPort::isASCII_uvchr", XS_Devel__PPPort_isASCII_uvchr)Perl_newXS_deffile( "Devel::PPPort::isASCII_uvchr",XS_Devel__PPPort_isASCII_uvchr );
8428	newXS_deffile("Devel::PPPort::isASCII_utf8_safe", XS_Devel__PPPort_isASCII_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isASCII_utf8_safe",XS_Devel__PPPort_isASCII_utf8_safe );
8429	#if XSubPPtmpAAAK1
8430	newXS_deffile("Devel::PPPort::isBLANK_uvchr", XS_Devel__PPPort_isBLANK_uvchr)Perl_newXS_deffile( "Devel::PPPort::isBLANK_uvchr",XS_Devel__PPPort_isBLANK_uvchr );
8431	newXS_deffile("Devel::PPPort::isALPHA_uvchr", XS_Devel__PPPort_isALPHA_uvchr)Perl_newXS_deffile( "Devel::PPPort::isALPHA_uvchr",XS_Devel__PPPort_isALPHA_uvchr );
8432	newXS_deffile("Devel::PPPort::isALPHANUMERIC_uvchr", XS_Devel__PPPort_isALPHANUMERIC_uvchr)Perl_newXS_deffile( "Devel::PPPort::isALPHANUMERIC_uvchr",XS_Devel__PPPort_isALPHANUMERIC_uvchr );
8433	newXS_deffile("Devel::PPPort::isCNTRL_uvchr", XS_Devel__PPPort_isCNTRL_uvchr)Perl_newXS_deffile( "Devel::PPPort::isCNTRL_uvchr",XS_Devel__PPPort_isCNTRL_uvchr );
8434	newXS_deffile("Devel::PPPort::isDIGIT_uvchr", XS_Devel__PPPort_isDIGIT_uvchr)Perl_newXS_deffile( "Devel::PPPort::isDIGIT_uvchr",XS_Devel__PPPort_isDIGIT_uvchr );
8435	newXS_deffile("Devel::PPPort::isIDFIRST_uvchr", XS_Devel__PPPort_isIDFIRST_uvchr)Perl_newXS_deffile( "Devel::PPPort::isIDFIRST_uvchr",XS_Devel__PPPort_isIDFIRST_uvchr );
8436	newXS_deffile("Devel::PPPort::isIDCONT_uvchr", XS_Devel__PPPort_isIDCONT_uvchr)Perl_newXS_deffile( "Devel::PPPort::isIDCONT_uvchr",XS_Devel__PPPort_isIDCONT_uvchr );
8437	newXS_deffile("Devel::PPPort::isGRAPH_uvchr", XS_Devel__PPPort_isGRAPH_uvchr)Perl_newXS_deffile( "Devel::PPPort::isGRAPH_uvchr",XS_Devel__PPPort_isGRAPH_uvchr );
8438	newXS_deffile("Devel::PPPort::isLOWER_uvchr", XS_Devel__PPPort_isLOWER_uvchr)Perl_newXS_deffile( "Devel::PPPort::isLOWER_uvchr",XS_Devel__PPPort_isLOWER_uvchr );
8439	newXS_deffile("Devel::PPPort::isPRINT_uvchr", XS_Devel__PPPort_isPRINT_uvchr)Perl_newXS_deffile( "Devel::PPPort::isPRINT_uvchr",XS_Devel__PPPort_isPRINT_uvchr );
8440	newXS_deffile("Devel::PPPort::isPSXSPC_uvchr", XS_Devel__PPPort_isPSXSPC_uvchr)Perl_newXS_deffile( "Devel::PPPort::isPSXSPC_uvchr",XS_Devel__PPPort_isPSXSPC_uvchr );
8441	newXS_deffile("Devel::PPPort::isPUNCT_uvchr", XS_Devel__PPPort_isPUNCT_uvchr)Perl_newXS_deffile( "Devel::PPPort::isPUNCT_uvchr",XS_Devel__PPPort_isPUNCT_uvchr );
8442	newXS_deffile("Devel::PPPort::isSPACE_uvchr", XS_Devel__PPPort_isSPACE_uvchr)Perl_newXS_deffile( "Devel::PPPort::isSPACE_uvchr",XS_Devel__PPPort_isSPACE_uvchr );
8443	newXS_deffile("Devel::PPPort::isUPPER_uvchr", XS_Devel__PPPort_isUPPER_uvchr)Perl_newXS_deffile( "Devel::PPPort::isUPPER_uvchr",XS_Devel__PPPort_isUPPER_uvchr );
8444	newXS_deffile("Devel::PPPort::isWORDCHAR_uvchr", XS_Devel__PPPort_isWORDCHAR_uvchr)Perl_newXS_deffile( "Devel::PPPort::isWORDCHAR_uvchr",XS_Devel__PPPort_isWORDCHAR_uvchr );
8445	newXS_deffile("Devel::PPPort::isXDIGIT_uvchr", XS_Devel__PPPort_isXDIGIT_uvchr)Perl_newXS_deffile( "Devel::PPPort::isXDIGIT_uvchr",XS_Devel__PPPort_isXDIGIT_uvchr );
8446	newXS_deffile("Devel::PPPort::isALPHA_utf8_safe", XS_Devel__PPPort_isALPHA_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isALPHA_utf8_safe",XS_Devel__PPPort_isALPHA_utf8_safe );
8447	newXS_deffile("Devel::PPPort::isALPHANUMERIC_utf8_safe", XS_Devel__PPPort_isALPHANUMERIC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isALPHANUMERIC_utf8_safe" ,XS_Devel__PPPort_isALPHANUMERIC_utf8_safe);
8448	newXS_deffile("Devel::PPPort::isBLANK_utf8_safe", XS_Devel__PPPort_isBLANK_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isBLANK_utf8_safe",XS_Devel__PPPort_isBLANK_utf8_safe );
8449	newXS_deffile("Devel::PPPort::isCNTRL_utf8_safe", XS_Devel__PPPort_isCNTRL_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isCNTRL_utf8_safe",XS_Devel__PPPort_isCNTRL_utf8_safe );
8450	newXS_deffile("Devel::PPPort::isDIGIT_utf8_safe", XS_Devel__PPPort_isDIGIT_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isDIGIT_utf8_safe",XS_Devel__PPPort_isDIGIT_utf8_safe );
8451	newXS_deffile("Devel::PPPort::isGRAPH_utf8_safe", XS_Devel__PPPort_isGRAPH_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isGRAPH_utf8_safe",XS_Devel__PPPort_isGRAPH_utf8_safe );
8452	newXS_deffile("Devel::PPPort::isIDCONT_utf8_safe", XS_Devel__PPPort_isIDCONT_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isIDCONT_utf8_safe",XS_Devel__PPPort_isIDCONT_utf8_safe );
8453	newXS_deffile("Devel::PPPort::isIDFIRST_utf8_safe", XS_Devel__PPPort_isIDFIRST_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isIDFIRST_utf8_safe",XS_Devel__PPPort_isIDFIRST_utf8_safe );
8454	newXS_deffile("Devel::PPPort::isLOWER_utf8_safe", XS_Devel__PPPort_isLOWER_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isLOWER_utf8_safe",XS_Devel__PPPort_isLOWER_utf8_safe );
8455	newXS_deffile("Devel::PPPort::isPRINT_utf8_safe", XS_Devel__PPPort_isPRINT_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isPRINT_utf8_safe",XS_Devel__PPPort_isPRINT_utf8_safe );
8456	newXS_deffile("Devel::PPPort::isPSXSPC_utf8_safe", XS_Devel__PPPort_isPSXSPC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isPSXSPC_utf8_safe",XS_Devel__PPPort_isPSXSPC_utf8_safe );
8457	newXS_deffile("Devel::PPPort::isPUNCT_utf8_safe", XS_Devel__PPPort_isPUNCT_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isPUNCT_utf8_safe",XS_Devel__PPPort_isPUNCT_utf8_safe );
8458	newXS_deffile("Devel::PPPort::isSPACE_utf8_safe", XS_Devel__PPPort_isSPACE_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isSPACE_utf8_safe",XS_Devel__PPPort_isSPACE_utf8_safe );
8459	newXS_deffile("Devel::PPPort::isUPPER_utf8_safe", XS_Devel__PPPort_isUPPER_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isUPPER_utf8_safe",XS_Devel__PPPort_isUPPER_utf8_safe );
8460	newXS_deffile("Devel::PPPort::isWORDCHAR_utf8_safe", XS_Devel__PPPort_isWORDCHAR_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isWORDCHAR_utf8_safe",XS_Devel__PPPort_isWORDCHAR_utf8_safe );
8461	newXS_deffile("Devel::PPPort::isXDIGIT_utf8_safe", XS_Devel__PPPort_isXDIGIT_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isXDIGIT_utf8_safe",XS_Devel__PPPort_isXDIGIT_utf8_safe );
8462	newXS_deffile("Devel::PPPort::isALPHA_LC_utf8_safe", XS_Devel__PPPort_isALPHA_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isALPHA_LC_utf8_safe",XS_Devel__PPPort_isALPHA_LC_utf8_safe );
8463	newXS_deffile("Devel::PPPort::isALPHANUMERIC_LC_utf8_safe", XS_Devel__PPPort_isALPHANUMERIC_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isALPHANUMERIC_LC_utf8_safe" ,XS_Devel__PPPort_isALPHANUMERIC_LC_utf8_safe);
8464	newXS_deffile("Devel::PPPort::isASCII_LC_utf8_safe", XS_Devel__PPPort_isASCII_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isASCII_LC_utf8_safe",XS_Devel__PPPort_isASCII_LC_utf8_safe );
8465	newXS_deffile("Devel::PPPort::isBLANK_LC_utf8_safe", XS_Devel__PPPort_isBLANK_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isBLANK_LC_utf8_safe",XS_Devel__PPPort_isBLANK_LC_utf8_safe );
8466	newXS_deffile("Devel::PPPort::isCNTRL_LC_utf8_safe", XS_Devel__PPPort_isCNTRL_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isCNTRL_LC_utf8_safe",XS_Devel__PPPort_isCNTRL_LC_utf8_safe );
8467	newXS_deffile("Devel::PPPort::isDIGIT_LC_utf8_safe", XS_Devel__PPPort_isDIGIT_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isDIGIT_LC_utf8_safe",XS_Devel__PPPort_isDIGIT_LC_utf8_safe );
8468	newXS_deffile("Devel::PPPort::isGRAPH_LC_utf8_safe", XS_Devel__PPPort_isGRAPH_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isGRAPH_LC_utf8_safe",XS_Devel__PPPort_isGRAPH_LC_utf8_safe );
8469	newXS_deffile("Devel::PPPort::isIDCONT_LC_utf8_safe", XS_Devel__PPPort_isIDCONT_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isIDCONT_LC_utf8_safe",XS_Devel__PPPort_isIDCONT_LC_utf8_safe );
8470	newXS_deffile("Devel::PPPort::isIDFIRST_LC_utf8_safe", XS_Devel__PPPort_isIDFIRST_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isIDFIRST_LC_utf8_safe",XS_Devel__PPPort_isIDFIRST_LC_utf8_safe );
8471	newXS_deffile("Devel::PPPort::isLOWER_LC_utf8_safe", XS_Devel__PPPort_isLOWER_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isLOWER_LC_utf8_safe",XS_Devel__PPPort_isLOWER_LC_utf8_safe );
8472	newXS_deffile("Devel::PPPort::isPRINT_LC_utf8_safe", XS_Devel__PPPort_isPRINT_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isPRINT_LC_utf8_safe",XS_Devel__PPPort_isPRINT_LC_utf8_safe );
8473	newXS_deffile("Devel::PPPort::isPSXSPC_LC_utf8_safe", XS_Devel__PPPort_isPSXSPC_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isPSXSPC_LC_utf8_safe",XS_Devel__PPPort_isPSXSPC_LC_utf8_safe );
8474	newXS_deffile("Devel::PPPort::isPUNCT_LC_utf8_safe", XS_Devel__PPPort_isPUNCT_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isPUNCT_LC_utf8_safe",XS_Devel__PPPort_isPUNCT_LC_utf8_safe );
8475	newXS_deffile("Devel::PPPort::isSPACE_LC_utf8_safe", XS_Devel__PPPort_isSPACE_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isSPACE_LC_utf8_safe",XS_Devel__PPPort_isSPACE_LC_utf8_safe );
8476	newXS_deffile("Devel::PPPort::isUPPER_LC_utf8_safe", XS_Devel__PPPort_isUPPER_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isUPPER_LC_utf8_safe",XS_Devel__PPPort_isUPPER_LC_utf8_safe );
8477	newXS_deffile("Devel::PPPort::isWORDCHAR_LC_utf8_safe", XS_Devel__PPPort_isWORDCHAR_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isWORDCHAR_LC_utf8_safe", XS_Devel__PPPort_isWORDCHAR_LC_utf8_safe);
8478	newXS_deffile("Devel::PPPort::isXDIGIT_LC_utf8_safe", XS_Devel__PPPort_isXDIGIT_LC_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::isXDIGIT_LC_utf8_safe",XS_Devel__PPPort_isXDIGIT_LC_utf8_safe );
8479	newXS_deffile("Devel::PPPort::toLOWER_utf8_safe", XS_Devel__PPPort_toLOWER_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::toLOWER_utf8_safe",XS_Devel__PPPort_toLOWER_utf8_safe );
8480	newXS_deffile("Devel::PPPort::toTITLE_utf8_safe", XS_Devel__PPPort_toTITLE_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::toTITLE_utf8_safe",XS_Devel__PPPort_toTITLE_utf8_safe );
8481	newXS_deffile("Devel::PPPort::toUPPER_utf8_safe", XS_Devel__PPPort_toUPPER_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::toUPPER_utf8_safe",XS_Devel__PPPort_toUPPER_utf8_safe );
8482	newXS_deffile("Devel::PPPort::toFOLD_utf8_safe", XS_Devel__PPPort_toFOLD_utf8_safe)Perl_newXS_deffile( "Devel::PPPort::toFOLD_utf8_safe",XS_Devel__PPPort_toFOLD_utf8_safe );
8483	newXS_deffile("Devel::PPPort::toLOWER_uvchr", XS_Devel__PPPort_toLOWER_uvchr)Perl_newXS_deffile( "Devel::PPPort::toLOWER_uvchr",XS_Devel__PPPort_toLOWER_uvchr );
8484	newXS_deffile("Devel::PPPort::toTITLE_uvchr", XS_Devel__PPPort_toTITLE_uvchr)Perl_newXS_deffile( "Devel::PPPort::toTITLE_uvchr",XS_Devel__PPPort_toTITLE_uvchr );
8485	newXS_deffile("Devel::PPPort::toUPPER_uvchr", XS_Devel__PPPort_toUPPER_uvchr)Perl_newXS_deffile( "Devel::PPPort::toUPPER_uvchr",XS_Devel__PPPort_toUPPER_uvchr );
8486	newXS_deffile("Devel::PPPort::toFOLD_uvchr", XS_Devel__PPPort_toFOLD_uvchr)Perl_newXS_deffile( "Devel::PPPort::toFOLD_uvchr",XS_Devel__PPPort_toFOLD_uvchr );
8487	#endif
8488	newXS_deffile("Devel::PPPort::LATIN1_TO_NATIVE", XS_Devel__PPPort_LATIN1_TO_NATIVE)Perl_newXS_deffile( "Devel::PPPort::LATIN1_TO_NATIVE",XS_Devel__PPPort_LATIN1_TO_NATIVE );
8489	newXS_deffile("Devel::PPPort::NATIVE_TO_LATIN1", XS_Devel__PPPort_NATIVE_TO_LATIN1)Perl_newXS_deffile( "Devel::PPPort::NATIVE_TO_LATIN1",XS_Devel__PPPort_NATIVE_TO_LATIN1 );
8490	newXS_deffile("Devel::PPPort::av_tindex", XS_Devel__PPPort_av_tindex)Perl_newXS_deffile( "Devel::PPPort::av_tindex",XS_Devel__PPPort_av_tindex );
8491	newXS_deffile("Devel::PPPort::av_top_index", XS_Devel__PPPort_av_top_index)Perl_newXS_deffile( "Devel::PPPort::av_top_index",XS_Devel__PPPort_av_top_index );
8492	newXS_deffile("Devel::PPPort::call_newCONSTSUB_1", XS_Devel__PPPort_call_newCONSTSUB_1)Perl_newXS_deffile( "Devel::PPPort::call_newCONSTSUB_1",XS_Devel__PPPort_call_newCONSTSUB_1 );
8493	newXS_deffile("Devel::PPPort::call_newCONSTSUB_2", XS_Devel__PPPort_call_newCONSTSUB_2)Perl_newXS_deffile( "Devel::PPPort::call_newCONSTSUB_2",XS_Devel__PPPort_call_newCONSTSUB_2 );
8494	newXS_deffile("Devel::PPPort::call_newCONSTSUB_3", XS_Devel__PPPort_call_newCONSTSUB_3)Perl_newXS_deffile( "Devel::PPPort::call_newCONSTSUB_3",XS_Devel__PPPort_call_newCONSTSUB_3 );
8495	newXS_deffile("Devel::PPPort::newRV_inc_REFCNT", XS_Devel__PPPort_newRV_inc_REFCNT)Perl_newXS_deffile( "Devel::PPPort::newRV_inc_REFCNT",XS_Devel__PPPort_newRV_inc_REFCNT );
8496	newXS_deffile("Devel::PPPort::newRV_noinc_REFCNT", XS_Devel__PPPort_newRV_noinc_REFCNT)Perl_newXS_deffile( "Devel::PPPort::newRV_noinc_REFCNT",XS_Devel__PPPort_newRV_noinc_REFCNT );
8497	newXS_deffile("Devel::PPPort::newSV_type", XS_Devel__PPPort_newSV_type)Perl_newXS_deffile( "Devel::PPPort::newSV_type",XS_Devel__PPPort_newSV_type );
8498	newXS_deffile("Devel::PPPort::newSVpvn", XS_Devel__PPPort_newSVpvn)Perl_newXS_deffile( "Devel::PPPort::newSVpvn",XS_Devel__PPPort_newSVpvn );
8499	newXS_deffile("Devel::PPPort::newSVpvn_flags", XS_Devel__PPPort_newSVpvn_flags)Perl_newXS_deffile( "Devel::PPPort::newSVpvn_flags",XS_Devel__PPPort_newSVpvn_flags );
8500	newXS_deffile("Devel::PPPort::newSVpvn_utf8", XS_Devel__PPPort_newSVpvn_utf8)Perl_newXS_deffile( "Devel::PPPort::newSVpvn_utf8",XS_Devel__PPPort_newSVpvn_utf8 );
8501	newXS_deffile("Devel::PPPort::pv_escape_can_unicode", XS_Devel__PPPort_pv_escape_can_unicode)Perl_newXS_deffile( "Devel::PPPort::pv_escape_can_unicode",XS_Devel__PPPort_pv_escape_can_unicode );
8502	newXS_deffile("Devel::PPPort::pv_pretty", XS_Devel__PPPort_pv_pretty)Perl_newXS_deffile( "Devel::PPPort::pv_pretty",XS_Devel__PPPort_pv_pretty );
8503	newXS_deffile("Devel::PPPort::pv_display", XS_Devel__PPPort_pv_display)Perl_newXS_deffile( "Devel::PPPort::pv_display",XS_Devel__PPPort_pv_display );
8504	newXS_deffile("Devel::PPPort::newSVpvs", XS_Devel__PPPort_newSVpvs)Perl_newXS_deffile( "Devel::PPPort::newSVpvs",XS_Devel__PPPort_newSVpvs );
8505	newXS_deffile("Devel::PPPort::newSVpvs_flags", XS_Devel__PPPort_newSVpvs_flags)Perl_newXS_deffile( "Devel::PPPort::newSVpvs_flags",XS_Devel__PPPort_newSVpvs_flags );
8506	newXS_deffile("Devel::PPPort::newSVpvs_share", XS_Devel__PPPort_newSVpvs_share)Perl_newXS_deffile( "Devel::PPPort::newSVpvs_share",XS_Devel__PPPort_newSVpvs_share );
8507	newXS_deffile("Devel::PPPort::sv_catpvs", XS_Devel__PPPort_sv_catpvs)Perl_newXS_deffile( "Devel::PPPort::sv_catpvs",XS_Devel__PPPort_sv_catpvs );
8508	newXS_deffile("Devel::PPPort::sv_setpvs", XS_Devel__PPPort_sv_setpvs)Perl_newXS_deffile( "Devel::PPPort::sv_setpvs",XS_Devel__PPPort_sv_setpvs );
8509	newXS_deffile("Devel::PPPort::hv_fetchs", XS_Devel__PPPort_hv_fetchs)Perl_newXS_deffile( "Devel::PPPort::hv_fetchs",XS_Devel__PPPort_hv_fetchs );
8510	newXS_deffile("Devel::PPPort::hv_stores", XS_Devel__PPPort_hv_stores)Perl_newXS_deffile( "Devel::PPPort::hv_stores",XS_Devel__PPPort_hv_stores );
8511	newXS_deffile("Devel::PPPort::gv_fetchpvs", XS_Devel__PPPort_gv_fetchpvs)Perl_newXS_deffile( "Devel::PPPort::gv_fetchpvs",XS_Devel__PPPort_gv_fetchpvs );
8512	newXS_deffile("Devel::PPPort::gv_stashpvs", XS_Devel__PPPort_gv_stashpvs)Perl_newXS_deffile( "Devel::PPPort::gv_stashpvs",XS_Devel__PPPort_gv_stashpvs );
8513	newXS_deffile("Devel::PPPort::get_cvs", XS_Devel__PPPort_get_cvs)Perl_newXS_deffile( "Devel::PPPort::get_cvs",XS_Devel__PPPort_get_cvs );
8514	newXS_deffile("Devel::PPPort::newSVpvn_share", XS_Devel__PPPort_newSVpvn_share)Perl_newXS_deffile( "Devel::PPPort::newSVpvn_share",XS_Devel__PPPort_newSVpvn_share );
8515	newXS_deffile("Devel::PPPort::my_snprintf", XS_Devel__PPPort_my_snprintf)Perl_newXS_deffile( "Devel::PPPort::my_snprintf",XS_Devel__PPPort_my_snprintf );
8516	newXS_deffile("Devel::PPPort::my_sprintf", XS_Devel__PPPort_my_sprintf)Perl_newXS_deffile( "Devel::PPPort::my_sprintf",XS_Devel__PPPort_my_sprintf );
8517	newXS_deffile("Devel::PPPort::my_strlfunc", XS_Devel__PPPort_my_strlfunc)Perl_newXS_deffile( "Devel::PPPort::my_strlfunc",XS_Devel__PPPort_my_strlfunc );
8518	newXS_deffile("Devel::PPPort::vnewSVpvf", XS_Devel__PPPort_vnewSVpvf)Perl_newXS_deffile( "Devel::PPPort::vnewSVpvf",XS_Devel__PPPort_vnewSVpvf );
8519	newXS_deffile("Devel::PPPort::sv_vcatpvf", XS_Devel__PPPort_sv_vcatpvf)Perl_newXS_deffile( "Devel::PPPort::sv_vcatpvf",XS_Devel__PPPort_sv_vcatpvf );
8520	newXS_deffile("Devel::PPPort::sv_vsetpvf", XS_Devel__PPPort_sv_vsetpvf)Perl_newXS_deffile( "Devel::PPPort::sv_vsetpvf",XS_Devel__PPPort_sv_vsetpvf );
8521	newXS_deffile("Devel::PPPort::sv_catpvf_mg", XS_Devel__PPPort_sv_catpvf_mg)Perl_newXS_deffile( "Devel::PPPort::sv_catpvf_mg",XS_Devel__PPPort_sv_catpvf_mg );
8522	newXS_deffile("Devel::PPPort::Perl_sv_catpvf_mg", XS_Devel__PPPort_Perl_sv_catpvf_mg)Perl_newXS_deffile( "Devel::PPPort::Perl_sv_catpvf_mg",XS_Devel__PPPort_Perl_sv_catpvf_mg );
8523	newXS_deffile("Devel::PPPort::sv_catpvf_mg_nocontext", XS_Devel__PPPort_sv_catpvf_mg_nocontext)Perl_newXS_deffile( "Devel::PPPort::sv_catpvf_mg_nocontext",XS_Devel__PPPort_sv_catpvf_mg_nocontext );
8524	newXS_deffile("Devel::PPPort::sv_setpvf_mg", XS_Devel__PPPort_sv_setpvf_mg)Perl_newXS_deffile( "Devel::PPPort::sv_setpvf_mg",XS_Devel__PPPort_sv_setpvf_mg );
8525	newXS_deffile("Devel::PPPort::Perl_sv_setpvf_mg", XS_Devel__PPPort_Perl_sv_setpvf_mg)Perl_newXS_deffile( "Devel::PPPort::Perl_sv_setpvf_mg",XS_Devel__PPPort_Perl_sv_setpvf_mg );
8526	newXS_deffile("Devel::PPPort::sv_setpvf_mg_nocontext", XS_Devel__PPPort_sv_setpvf_mg_nocontext)Perl_newXS_deffile( "Devel::PPPort::sv_setpvf_mg_nocontext",XS_Devel__PPPort_sv_setpvf_mg_nocontext );
8527	newXS_deffile("Devel::PPPort::no_THX_arg", XS_Devel__PPPort_no_THX_arg)Perl_newXS_deffile( "Devel::PPPort::no_THX_arg",XS_Devel__PPPort_no_THX_arg );
8528	newXS_deffile("Devel::PPPort::with_THX_arg", XS_Devel__PPPort_with_THX_arg)Perl_newXS_deffile( "Devel::PPPort::with_THX_arg",XS_Devel__PPPort_with_THX_arg );
8529	#if XSubPPtmpAAAL1
8530	newXS_deffile("Devel::PPPort::UTF8f", XS_Devel__PPPort_UTF8f)Perl_newXS_deffile( "Devel::PPPort::UTF8f",XS_Devel__PPPort_UTF8f );
8531	#endif
8532	#if XSubPPtmpAAAM1
8533	newXS_deffile("Devel::PPPort::uvchr_to_utf8", XS_Devel__PPPort_uvchr_to_utf8)Perl_newXS_deffile( "Devel::PPPort::uvchr_to_utf8",XS_Devel__PPPort_uvchr_to_utf8 );
8534	#endif
8535	#if XSubPPtmpAAAN1
8536	newXS_deffile("Devel::PPPort::UTF8_SAFE_SKIP", XS_Devel__PPPort_UTF8_SAFE_SKIP)Perl_newXS_deffile( "Devel::PPPort::UTF8_SAFE_SKIP",XS_Devel__PPPort_UTF8_SAFE_SKIP );
8537	#endif
8538	#if XSubPPtmpAAAO1
8539	newXS_deffile("Devel::PPPort::isUTF8_CHAR", XS_Devel__PPPort_isUTF8_CHAR)Perl_newXS_deffile( "Devel::PPPort::isUTF8_CHAR",XS_Devel__PPPort_isUTF8_CHAR );
8540	#endif
8541	#if XSubPPtmpAAAP1
8542	newXS_deffile("Devel::PPPort::foldEQ_utf8", XS_Devel__PPPort_foldEQ_utf8)Perl_newXS_deffile( "Devel::PPPort::foldEQ_utf8",XS_Devel__PPPort_foldEQ_utf8 );
8543	#endif
8544	#if XSubPPtmpAAAQ1
8545	newXS_deffile("Devel::PPPort::utf8_to_uvchr_buf", XS_Devel__PPPort_utf8_to_uvchr_buf)Perl_newXS_deffile( "Devel::PPPort::utf8_to_uvchr_buf",XS_Devel__PPPort_utf8_to_uvchr_buf );
8546	#endif
8547	#if XSubPPtmpAAAR1
8548	newXS_deffile("Devel::PPPort::utf8_to_uvchr", XS_Devel__PPPort_utf8_to_uvchr)Perl_newXS_deffile( "Devel::PPPort::utf8_to_uvchr",XS_Devel__PPPort_utf8_to_uvchr );
8549	#endif
8550	#if XSubPPtmpAAAS1
8551	newXS_deffile("Devel::PPPort::sv_len_utf8", XS_Devel__PPPort_sv_len_utf8)Perl_newXS_deffile( "Devel::PPPort::sv_len_utf8",XS_Devel__PPPort_sv_len_utf8 );
8552	#endif
8553	#if XSubPPtmpAAAT1
8554	newXS_deffile("Devel::PPPort::sv_len_utf8_nomg", XS_Devel__PPPort_sv_len_utf8_nomg)Perl_newXS_deffile( "Devel::PPPort::sv_len_utf8_nomg",XS_Devel__PPPort_sv_len_utf8_nomg );
8555	#endif
8556	#if XSubPPtmpAAAU1
8557	newXS_deffile("Devel::PPPort::UVCHR_IS_INVARIANT", XS_Devel__PPPort_UVCHR_IS_INVARIANT)Perl_newXS_deffile( "Devel::PPPort::UVCHR_IS_INVARIANT",XS_Devel__PPPort_UVCHR_IS_INVARIANT );
8558	#endif
8559	#if XSubPPtmpAAAV1
8560	newXS_deffile("Devel::PPPort::UVCHR_SKIP", XS_Devel__PPPort_UVCHR_SKIP)Perl_newXS_deffile( "Devel::PPPort::UVCHR_SKIP",XS_Devel__PPPort_UVCHR_SKIP );
8561	#endif
8562	newXS_deffile("Devel::PPPort::sv_setuv", XS_Devel__PPPort_sv_setuv)Perl_newXS_deffile( "Devel::PPPort::sv_setuv",XS_Devel__PPPort_sv_setuv );
8563	newXS_deffile("Devel::PPPort::newSVuv", XS_Devel__PPPort_newSVuv)Perl_newXS_deffile( "Devel::PPPort::newSVuv",XS_Devel__PPPort_newSVuv );
8564	newXS_deffile("Devel::PPPort::sv_2uv", XS_Devel__PPPort_sv_2uv)Perl_newXS_deffile( "Devel::PPPort::sv_2uv",XS_Devel__PPPort_sv_2uv );
8565	newXS_deffile("Devel::PPPort::SvUVx", XS_Devel__PPPort_SvUVx)Perl_newXS_deffile( "Devel::PPPort::SvUVx",XS_Devel__PPPort_SvUVx );
8566	newXS_deffile("Devel::PPPort::XSRETURN_UV", XS_Devel__PPPort_XSRETURN_UV)Perl_newXS_deffile( "Devel::PPPort::XSRETURN_UV",XS_Devel__PPPort_XSRETURN_UV );
8567	newXS_deffile("Devel::PPPort::PUSHu", XS_Devel__PPPort_PUSHu)Perl_newXS_deffile( "Devel::PPPort::PUSHu",XS_Devel__PPPort_PUSHu );
8568	newXS_deffile("Devel::PPPort::XPUSHu", XS_Devel__PPPort_XPUSHu)Perl_newXS_deffile( "Devel::PPPort::XPUSHu",XS_Devel__PPPort_XPUSHu );
8569	newXS_deffile("Devel::PPPort::my_strnlen", XS_Devel__PPPort_my_strnlen)Perl_newXS_deffile( "Devel::PPPort::my_strnlen",XS_Devel__PPPort_my_strnlen );
8570	newXS_deffile("Devel::PPPort::compare_PL_signals", XS_Devel__PPPort_compare_PL_signals)Perl_newXS_deffile( "Devel::PPPort::compare_PL_signals",XS_Devel__PPPort_compare_PL_signals );
8571	newXS_deffile("Devel::PPPort::PL_sv_undef", XS_Devel__PPPort_PL_sv_undef)Perl_newXS_deffile( "Devel::PPPort::PL_sv_undef",XS_Devel__PPPort_PL_sv_undef );
8572	newXS_deffile("Devel::PPPort::PL_sv_yes", XS_Devel__PPPort_PL_sv_yes)Perl_newXS_deffile( "Devel::PPPort::PL_sv_yes",XS_Devel__PPPort_PL_sv_yes );
8573	newXS_deffile("Devel::PPPort::PL_sv_no", XS_Devel__PPPort_PL_sv_no)Perl_newXS_deffile( "Devel::PPPort::PL_sv_no",XS_Devel__PPPort_PL_sv_no );
8574	newXS_deffile("Devel::PPPort::PL_na", XS_Devel__PPPort_PL_na)Perl_newXS_deffile( "Devel::PPPort::PL_na",XS_Devel__PPPort_PL_na );
8575	newXS_deffile("Devel::PPPort::PL_Sv", XS_Devel__PPPort_PL_Sv)Perl_newXS_deffile( "Devel::PPPort::PL_Sv",XS_Devel__PPPort_PL_Sv );
8576	newXS_deffile("Devel::PPPort::PL_tokenbuf", XS_Devel__PPPort_PL_tokenbuf)Perl_newXS_deffile( "Devel::PPPort::PL_tokenbuf",XS_Devel__PPPort_PL_tokenbuf );
8577	newXS_deffile("Devel::PPPort::PL_parser", XS_Devel__PPPort_PL_parser)Perl_newXS_deffile( "Devel::PPPort::PL_parser",XS_Devel__PPPort_PL_parser );
8578	newXS_deffile("Devel::PPPort::PL_hexdigit", XS_Devel__PPPort_PL_hexdigit)Perl_newXS_deffile( "Devel::PPPort::PL_hexdigit",XS_Devel__PPPort_PL_hexdigit );
8579	newXS_deffile("Devel::PPPort::PL_hints", XS_Devel__PPPort_PL_hints)Perl_newXS_deffile( "Devel::PPPort::PL_hints",XS_Devel__PPPort_PL_hints );
8580	newXS_deffile("Devel::PPPort::PL_ppaddr", XS_Devel__PPPort_PL_ppaddr)Perl_newXS_deffile( "Devel::PPPort::PL_ppaddr",XS_Devel__PPPort_PL_ppaddr );
8581	newXS_deffile("Devel::PPPort::other_variables", XS_Devel__PPPort_other_variables)Perl_newXS_deffile( "Devel::PPPort::other_variables",XS_Devel__PPPort_other_variables );
8582	newXS_deffile("Devel::PPPort::no_dummy_parser_vars", XS_Devel__PPPort_no_dummy_parser_vars)Perl_newXS_deffile( "Devel::PPPort::no_dummy_parser_vars",XS_Devel__PPPort_no_dummy_parser_vars );
8583	newXS_deffile("Devel::PPPort::dummy_parser_warning", XS_Devel__PPPort_dummy_parser_warning)Perl_newXS_deffile( "Devel::PPPort::dummy_parser_warning",XS_Devel__PPPort_dummy_parser_warning );
8584	newXS_deffile("Devel::PPPort::warner", XS_Devel__PPPort_warner)Perl_newXS_deffile( "Devel::PPPort::warner",XS_Devel__PPPort_warner );
8585	newXS_deffile("Devel::PPPort::Perl_warner", XS_Devel__PPPort_Perl_warner)Perl_newXS_deffile( "Devel::PPPort::Perl_warner",XS_Devel__PPPort_Perl_warner );
8586	newXS_deffile("Devel::PPPort::Perl_warner_nocontext", XS_Devel__PPPort_Perl_warner_nocontext)Perl_newXS_deffile( "Devel::PPPort::Perl_warner_nocontext",XS_Devel__PPPort_Perl_warner_nocontext );
8587	newXS_deffile("Devel::PPPort::ckWARN", XS_Devel__PPPort_ckWARN)Perl_newXS_deffile( "Devel::PPPort::ckWARN",XS_Devel__PPPort_ckWARN );
8588
8589	/* Initialisation Section */
8590
8591	#line 327 "RealPPPort.xs"
8592	/* ---- code from parts/inc/MY_CXT ---- */
8593	{
8594	MY_CXT_INIT(void)0;
8595	/* If any of the fields in the my_cxt_t struct need
8596	* to be initialised, do it here.
8597	*/
8598	MY_CXTmy_cxt.dummy = 42;
8599	}
8600
8601	/* ---- code from parts/inc/misc ---- */
8602	{
8603	XSPROTO_test_t_ptr p = &XS_Devel__PPPort_dXSTARG;
8604	newXS("Devel::PPPort::dXSTARG", p, file)Perl_newXS( "Devel::PPPort::dXSTARG",p,file);
8605	}
8606	newXS("Devel::PPPort::dAXMARK", XS_Devel__PPPort_dAXMARK, file)Perl_newXS( "Devel::PPPort::dAXMARK",XS_Devel__PPPort_dAXMARK ,file);
8607
8608	#if XSubPPtmpAAAA1
8609	#endif
8610	#if XSubPPtmpAAAB1
8611	#endif
8612	#if XSubPPtmpAAAC1
8613	#endif
8614	#if XSubPPtmpAAAD1
8615	#endif
8616	#if XSubPPtmpAAAE1
8617	#endif
8618	#if XSubPPtmpAAAF1
8619	#endif
8620	#if XSubPPtmpAAAG1
8621	#endif
8622	#if XSubPPtmpAAAH1
8623	#endif
8624	#if XSubPPtmpAAAI1
8625	#endif
8626	#if XSubPPtmpAAAJ1
8627	#endif
8628	#if XSubPPtmpAAAK1
8629	#endif
8630	#if XSubPPtmpAAAL1
8631	#endif
8632	#if XSubPPtmpAAAM1
8633	#endif
8634	#if XSubPPtmpAAAN1
8635	#endif
8636	#if XSubPPtmpAAAO1
8637	#endif
8638	#if XSubPPtmpAAAP1
8639	#endif
8640	#if XSubPPtmpAAAQ1
8641	#endif
8642	#if XSubPPtmpAAAR1
8643	#endif
8644	#if XSubPPtmpAAAS1
8645	#endif
8646	#if XSubPPtmpAAAT1
8647	#endif
8648	#if XSubPPtmpAAAU1
8649	#endif
8650	#if XSubPPtmpAAAV1
8651	#endif
8652	#line 8653 "RealPPPort.c"
8653
8654	/* End of Initialisation Section */
8655
8656	#if PERL_VERSION_LE(5, 21, 5)((51000000 + 321000 + 1) <= (51000000 + 211000 + 5))
8657	# if PERL_VERSION_GE(5, 9, 0)((51000000 + 321000 + 1) >= (51000000 + 91000 + 0))
8658	if (PL_unitcheckav)
8659	call_list(PL_scopestack_ix, PL_unitcheckav)Perl_call_list( PL_scopestack_ix,PL_unitcheckav);
8660	# endif
8661	XSRETURN_YESdo { (PL_stack_base[ax + (0)] = &(PL_sv_immortals[0]) ); do { const IV tmpXSoff = (1); ((void)0); PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); return; } while (0); } while (0);
8662	#else
8663	Perl_xs_boot_epilog(aTHX_ ax);
8664	#endif
8665	}
8666