File: | obj/gnu/usr.bin/perl/dist/Devel-PPPort/RealPPPort.c |
Warning: | line 4962, column 6 Value stored to 'offset' during its initialization is never read |
Press '?' to see keyboard shortcuts
Keyboard shortcuts:
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)(r*1000000 + v*1000 + s) (r*1000000 + v*1000 + s) |
346 | #endif |
347 | #ifndef PERL_DECIMAL_VERSION(5*1000000 + 32*1000 + 1) |
348 | # define PERL_DECIMAL_VERSION(5*1000000 + 32*1000 + 1) \ |
349 | PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)(5*1000000 + 32*1000 + 1) |
350 | #endif |
351 | #ifndef PERL_VERSION_GE |
352 | # define PERL_VERSION_GE(r,v,s)((5*1000000 + 32*1000 + 1) >= (r*1000000 + v*1000 + s)) \ |
353 | (PERL_DECIMAL_VERSION(5*1000000 + 32*1000 + 1) >= PERL_VERSION_DECIMAL(r,v,s)(r*1000000 + v*1000 + s)) |
354 | #endif |
355 | #ifndef PERL_VERSION_LE |
356 | # define PERL_VERSION_LE(r,v,s)((5*1000000 + 32*1000 + 1) <= (r*1000000 + v*1000 + s)) \ |
357 | (PERL_DECIMAL_VERSION(5*1000000 + 32*1000 + 1) <= PERL_VERSION_DECIMAL(r,v,s)(r*1000000 + v*1000 + 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)((5*1000000 + 32*1000 + 1) >= (5*1000000 + 10*1000 + 0)) && PERL_VERSION_LE(5, 15, 1)((5*1000000 + 32*1000 + 1) <= (5*1000000 + 15*1000 + 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)((5*1000000 + 32*1000 + 1) <= (5*1000000 + 21*1000 + 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)) |
Value stored to 'offset' during its initialization is never read | |
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)) |
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)((5*1000000 + 32*1000 + 1) <= (5*1000000 + 21*1000 + 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)((5*1000000 + 32*1000 + 1) <= (5*1000000 + 21*1000 + 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)((5*1000000 + 32*1000 + 1) <= (5*1000000 + 21*1000 + 5)) |
8657 | # if PERL_VERSION_GE(5, 9, 0)((5*1000000 + 32*1000 + 1) >= (5*1000000 + 9*1000 + 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 |