Commit | Line | Data |
---|---|---|
1c846c1f | 1 | /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! |
51371543 GS |
2 | This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h, |
3 | perlvars.h and thrdvar.h. Any changes made here will be lost! | |
4 | */ | |
5 | ||
6 | #include "EXTERN.h" | |
7 | #include "perl.h" | |
8 | #include "perlapi.h" | |
9 | ||
6f4183fe | 10 | #if defined(PERL_OBJECT) || defined (MULTIPLICITY) |
51371543 GS |
11 | |
12 | /* accessor functions for Perl variables (provides binary compatibility) */ | |
13 | START_EXTERN_C | |
14 | ||
15 | #undef PERLVAR | |
16 | #undef PERLVARA | |
17 | #undef PERLVARI | |
18 | #undef PERLVARIC | |
6f4183fe GS |
19 | |
20 | #if defined(PERL_OBJECT) | |
c5be433b | 21 | #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHXo) \ |
1d7c1841 | 22 | { return &(aTHXo->interp.v); } |
c5be433b | 23 | #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \ |
1d7c1841 | 24 | { return &(aTHXo->interp.v); } |
6f4183fe GS |
25 | #else /* MULTIPLICITY */ |
26 | #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHX) \ | |
27 | { return &(aTHX->v); } | |
28 | #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHX) \ | |
29 | { return &(aTHX->v); } | |
30 | #endif | |
31 | ||
51371543 | 32 | #define PERLVARI(v,t,i) PERLVAR(v,t) |
c5be433b | 33 | #define PERLVARIC(v,t,i) PERLVAR(v, const t) |
51371543 GS |
34 | |
35 | #include "thrdvar.h" | |
36 | #include "intrpvar.h" | |
c5be433b GS |
37 | |
38 | #undef PERLVAR | |
39 | #undef PERLVARA | |
40 | #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHXo) \ | |
41 | { return &(PL_##v); } | |
42 | #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \ | |
43 | { return &(PL_##v); } | |
34f7a5fe DS |
44 | #undef PERLVARIC |
45 | #define PERLVARIC(v,t,i) const t* Perl_##v##_ptr(pTHXo) \ | |
46 | { return (const t *)&(PL_##v); } | |
51371543 GS |
47 | #include "perlvars.h" |
48 | ||
49 | #undef PERLVAR | |
50 | #undef PERLVARA | |
51 | #undef PERLVARI | |
52 | #undef PERLVARIC | |
53 | ||
6f4183fe GS |
54 | #if defined(PERL_OBJECT) |
55 | ||
56 | /* C-API layer for PERL_OBJECT */ | |
57 | ||
1d7c1841 | 58 | #if defined(PERL_IMPLICIT_SYS) |
1d7c1841 GS |
59 | #endif |
60 | #if defined(USE_ITHREADS) | |
61 | # if defined(PERL_IMPLICIT_SYS) | |
62 | # endif | |
63 | #endif | |
64 | #if defined(MYMALLOC) | |
65 | #endif | |
66 | #if defined(PERL_OBJECT) | |
12a98ad5 GS |
67 | #ifndef __BORLANDC__ |
68 | #endif | |
1d7c1841 | 69 | #endif |
51371543 | 70 | #if defined(PERL_OBJECT) |
1d7c1841 | 71 | #else |
51371543 GS |
72 | #endif |
73 | ||
74 | #undef Perl_amagic_call | |
75 | SV* | |
c5be433b | 76 | Perl_amagic_call(pTHXo_ SV* left, SV* right, int method, int dir) |
51371543 GS |
77 | { |
78 | return ((CPerlObj*)pPerl)->Perl_amagic_call(left, right, method, dir); | |
79 | } | |
80 | ||
81 | #undef Perl_Gv_AMupdate | |
82 | bool | |
c5be433b | 83 | Perl_Gv_AMupdate(pTHXo_ HV* stash) |
51371543 GS |
84 | { |
85 | return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash); | |
86 | } | |
87 | ||
7ea3cd40 NIS |
88 | #undef Perl_gv_handler |
89 | CV* | |
90 | Perl_gv_handler(pTHXo_ HV* stash, I32 id) | |
91 | { | |
92 | return ((CPerlObj*)pPerl)->Perl_gv_handler(stash, id); | |
93 | } | |
94 | ||
be3174d2 GS |
95 | #undef Perl_apply_attrs_string |
96 | void | |
97 | Perl_apply_attrs_string(pTHXo_ char *stashpv, CV *cv, char *attrstr, STRLEN len) | |
98 | { | |
99 | ((CPerlObj*)pPerl)->Perl_apply_attrs_string(stashpv, cv, attrstr, len); | |
100 | } | |
101 | ||
01020589 GS |
102 | #undef Perl_avhv_delete_ent |
103 | SV* | |
104 | Perl_avhv_delete_ent(pTHXo_ AV *ar, SV* keysv, I32 flags, U32 hash) | |
105 | { | |
106 | return ((CPerlObj*)pPerl)->Perl_avhv_delete_ent(ar, keysv, flags, hash); | |
107 | } | |
108 | ||
51371543 GS |
109 | #undef Perl_avhv_exists_ent |
110 | bool | |
c5be433b | 111 | Perl_avhv_exists_ent(pTHXo_ AV *ar, SV* keysv, U32 hash) |
51371543 GS |
112 | { |
113 | return ((CPerlObj*)pPerl)->Perl_avhv_exists_ent(ar, keysv, hash); | |
114 | } | |
115 | ||
116 | #undef Perl_avhv_fetch_ent | |
117 | SV** | |
c5be433b | 118 | Perl_avhv_fetch_ent(pTHXo_ AV *ar, SV* keysv, I32 lval, U32 hash) |
51371543 GS |
119 | { |
120 | return ((CPerlObj*)pPerl)->Perl_avhv_fetch_ent(ar, keysv, lval, hash); | |
121 | } | |
122 | ||
10c8fecd GS |
123 | #undef Perl_avhv_store_ent |
124 | SV** | |
125 | Perl_avhv_store_ent(pTHXo_ AV *ar, SV* keysv, SV* val, U32 hash) | |
126 | { | |
127 | return ((CPerlObj*)pPerl)->Perl_avhv_store_ent(ar, keysv, val, hash); | |
128 | } | |
129 | ||
51371543 GS |
130 | #undef Perl_avhv_iternext |
131 | HE* | |
c5be433b | 132 | Perl_avhv_iternext(pTHXo_ AV *ar) |
51371543 GS |
133 | { |
134 | return ((CPerlObj*)pPerl)->Perl_avhv_iternext(ar); | |
135 | } | |
136 | ||
137 | #undef Perl_avhv_iterval | |
138 | SV* | |
c5be433b | 139 | Perl_avhv_iterval(pTHXo_ AV *ar, HE* entry) |
51371543 GS |
140 | { |
141 | return ((CPerlObj*)pPerl)->Perl_avhv_iterval(ar, entry); | |
142 | } | |
143 | ||
144 | #undef Perl_avhv_keys | |
145 | HV* | |
c5be433b | 146 | Perl_avhv_keys(pTHXo_ AV *ar) |
51371543 GS |
147 | { |
148 | return ((CPerlObj*)pPerl)->Perl_avhv_keys(ar); | |
149 | } | |
150 | ||
151 | #undef Perl_av_clear | |
152 | void | |
c5be433b | 153 | Perl_av_clear(pTHXo_ AV* ar) |
51371543 GS |
154 | { |
155 | ((CPerlObj*)pPerl)->Perl_av_clear(ar); | |
156 | } | |
157 | ||
01020589 GS |
158 | #undef Perl_av_delete |
159 | SV* | |
160 | Perl_av_delete(pTHXo_ AV* ar, I32 key, I32 flags) | |
161 | { | |
162 | return ((CPerlObj*)pPerl)->Perl_av_delete(ar, key, flags); | |
163 | } | |
164 | ||
165 | #undef Perl_av_exists | |
166 | bool | |
167 | Perl_av_exists(pTHXo_ AV* ar, I32 key) | |
168 | { | |
169 | return ((CPerlObj*)pPerl)->Perl_av_exists(ar, key); | |
170 | } | |
171 | ||
51371543 GS |
172 | #undef Perl_av_extend |
173 | void | |
c5be433b | 174 | Perl_av_extend(pTHXo_ AV* ar, I32 key) |
51371543 GS |
175 | { |
176 | ((CPerlObj*)pPerl)->Perl_av_extend(ar, key); | |
177 | } | |
178 | ||
51371543 GS |
179 | #undef Perl_av_fetch |
180 | SV** | |
c5be433b | 181 | Perl_av_fetch(pTHXo_ AV* ar, I32 key, I32 lval) |
51371543 GS |
182 | { |
183 | return ((CPerlObj*)pPerl)->Perl_av_fetch(ar, key, lval); | |
184 | } | |
185 | ||
186 | #undef Perl_av_fill | |
187 | void | |
c5be433b | 188 | Perl_av_fill(pTHXo_ AV* ar, I32 fill) |
51371543 GS |
189 | { |
190 | ((CPerlObj*)pPerl)->Perl_av_fill(ar, fill); | |
191 | } | |
192 | ||
193 | #undef Perl_av_len | |
194 | I32 | |
c5be433b | 195 | Perl_av_len(pTHXo_ AV* ar) |
51371543 GS |
196 | { |
197 | return ((CPerlObj*)pPerl)->Perl_av_len(ar); | |
198 | } | |
199 | ||
200 | #undef Perl_av_make | |
201 | AV* | |
c5be433b | 202 | Perl_av_make(pTHXo_ I32 size, SV** svp) |
51371543 GS |
203 | { |
204 | return ((CPerlObj*)pPerl)->Perl_av_make(size, svp); | |
205 | } | |
206 | ||
207 | #undef Perl_av_pop | |
208 | SV* | |
c5be433b | 209 | Perl_av_pop(pTHXo_ AV* ar) |
51371543 GS |
210 | { |
211 | return ((CPerlObj*)pPerl)->Perl_av_pop(ar); | |
212 | } | |
213 | ||
214 | #undef Perl_av_push | |
215 | void | |
c5be433b | 216 | Perl_av_push(pTHXo_ AV* ar, SV* val) |
51371543 GS |
217 | { |
218 | ((CPerlObj*)pPerl)->Perl_av_push(ar, val); | |
219 | } | |
220 | ||
51371543 GS |
221 | #undef Perl_av_shift |
222 | SV* | |
c5be433b | 223 | Perl_av_shift(pTHXo_ AV* ar) |
51371543 GS |
224 | { |
225 | return ((CPerlObj*)pPerl)->Perl_av_shift(ar); | |
226 | } | |
227 | ||
228 | #undef Perl_av_store | |
229 | SV** | |
c5be433b | 230 | Perl_av_store(pTHXo_ AV* ar, I32 key, SV* val) |
51371543 GS |
231 | { |
232 | return ((CPerlObj*)pPerl)->Perl_av_store(ar, key, val); | |
233 | } | |
234 | ||
235 | #undef Perl_av_undef | |
236 | void | |
c5be433b | 237 | Perl_av_undef(pTHXo_ AV* ar) |
51371543 GS |
238 | { |
239 | ((CPerlObj*)pPerl)->Perl_av_undef(ar); | |
240 | } | |
241 | ||
242 | #undef Perl_av_unshift | |
243 | void | |
c5be433b | 244 | Perl_av_unshift(pTHXo_ AV* ar, I32 num) |
51371543 GS |
245 | { |
246 | ((CPerlObj*)pPerl)->Perl_av_unshift(ar, num); | |
247 | } | |
248 | ||
51371543 GS |
249 | #undef Perl_block_gimme |
250 | I32 | |
c5be433b | 251 | Perl_block_gimme(pTHXo) |
51371543 GS |
252 | { |
253 | return ((CPerlObj*)pPerl)->Perl_block_gimme(); | |
254 | } | |
255 | ||
1be9d9c6 GS |
256 | #undef Perl_call_list |
257 | void | |
258 | Perl_call_list(pTHXo_ I32 oldscope, AV* av_list) | |
259 | { | |
260 | ((CPerlObj*)pPerl)->Perl_call_list(oldscope, av_list); | |
261 | } | |
262 | ||
51371543 GS |
263 | #undef Perl_cast_ulong |
264 | U32 | |
c5be433b | 265 | Perl_cast_ulong(pTHXo_ NV f) |
51371543 GS |
266 | { |
267 | return ((CPerlObj*)pPerl)->Perl_cast_ulong(f); | |
268 | } | |
269 | ||
270 | #undef Perl_cast_i32 | |
271 | I32 | |
c5be433b | 272 | Perl_cast_i32(pTHXo_ NV f) |
51371543 GS |
273 | { |
274 | return ((CPerlObj*)pPerl)->Perl_cast_i32(f); | |
275 | } | |
276 | ||
277 | #undef Perl_cast_iv | |
278 | IV | |
c5be433b | 279 | Perl_cast_iv(pTHXo_ NV f) |
51371543 GS |
280 | { |
281 | return ((CPerlObj*)pPerl)->Perl_cast_iv(f); | |
282 | } | |
283 | ||
284 | #undef Perl_cast_uv | |
285 | UV | |
c5be433b | 286 | Perl_cast_uv(pTHXo_ NV f) |
51371543 GS |
287 | { |
288 | return ((CPerlObj*)pPerl)->Perl_cast_uv(f); | |
289 | } | |
290 | #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP) | |
291 | ||
292 | #undef Perl_my_chsize | |
293 | I32 | |
c5be433b | 294 | Perl_my_chsize(pTHXo_ int fd, Off_t length) |
51371543 GS |
295 | { |
296 | return ((CPerlObj*)pPerl)->Perl_my_chsize(fd, length); | |
297 | } | |
298 | #endif | |
299 | #if defined(USE_THREADS) | |
1be9d9c6 GS |
300 | |
301 | #undef Perl_condpair_magic | |
302 | MAGIC* | |
303 | Perl_condpair_magic(pTHXo_ SV *sv) | |
304 | { | |
305 | return ((CPerlObj*)pPerl)->Perl_condpair_magic(sv); | |
306 | } | |
51371543 GS |
307 | #endif |
308 | ||
c5be433b GS |
309 | #undef Perl_croak |
310 | void | |
5a844595 | 311 | Perl_croak(pTHXo_ const char* pat, ...) |
c5be433b GS |
312 | { |
313 | va_list args; | |
314 | va_start(args, pat); | |
315 | ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args); | |
316 | va_end(args); | |
317 | } | |
318 | ||
319 | #undef Perl_vcroak | |
320 | void | |
321 | Perl_vcroak(pTHXo_ const char* pat, va_list* args) | |
322 | { | |
323 | ((CPerlObj*)pPerl)->Perl_vcroak(pat, args); | |
324 | } | |
51371543 | 325 | #if defined(PERL_IMPLICIT_CONTEXT) |
c5be433b GS |
326 | |
327 | #undef Perl_croak_nocontext | |
328 | void | |
5a844595 | 329 | Perl_croak_nocontext(const char* pat, ...) |
c5be433b GS |
330 | { |
331 | dTHXo; | |
332 | va_list args; | |
333 | va_start(args, pat); | |
334 | ((CPerlObj*)pPerl)->Perl_vcroak(pat, &args); | |
335 | va_end(args); | |
336 | } | |
337 | ||
338 | #undef Perl_die_nocontext | |
339 | OP* | |
5a844595 | 340 | Perl_die_nocontext(const char* pat, ...) |
c5be433b GS |
341 | { |
342 | dTHXo; | |
343 | OP* retval; | |
344 | va_list args; | |
345 | va_start(args, pat); | |
346 | retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args); | |
347 | va_end(args); | |
348 | return retval; | |
349 | ||
350 | } | |
351 | ||
352 | #undef Perl_deb_nocontext | |
353 | void | |
5a844595 | 354 | Perl_deb_nocontext(const char* pat, ...) |
c5be433b GS |
355 | { |
356 | dTHXo; | |
357 | va_list args; | |
358 | va_start(args, pat); | |
359 | ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args); | |
360 | va_end(args); | |
361 | } | |
362 | ||
363 | #undef Perl_form_nocontext | |
364 | char* | |
5a844595 | 365 | Perl_form_nocontext(const char* pat, ...) |
c5be433b GS |
366 | { |
367 | dTHXo; | |
368 | char* retval; | |
369 | va_list args; | |
370 | va_start(args, pat); | |
371 | retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args); | |
372 | va_end(args); | |
373 | return retval; | |
374 | ||
375 | } | |
376 | ||
e4783991 GS |
377 | #undef Perl_load_module_nocontext |
378 | void | |
379 | Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...) | |
380 | { | |
381 | dTHXo; | |
382 | va_list args; | |
383 | va_start(args, ver); | |
384 | ((CPerlObj*)pPerl)->Perl_vload_module(flags, name, ver, &args); | |
385 | va_end(args); | |
386 | } | |
387 | ||
5a844595 GS |
388 | #undef Perl_mess_nocontext |
389 | SV* | |
390 | Perl_mess_nocontext(const char* pat, ...) | |
391 | { | |
392 | dTHXo; | |
393 | SV* retval; | |
394 | va_list args; | |
395 | va_start(args, pat); | |
396 | retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args); | |
397 | va_end(args); | |
398 | return retval; | |
399 | ||
400 | } | |
401 | ||
c5be433b GS |
402 | #undef Perl_warn_nocontext |
403 | void | |
5a844595 | 404 | Perl_warn_nocontext(const char* pat, ...) |
c5be433b GS |
405 | { |
406 | dTHXo; | |
407 | va_list args; | |
408 | va_start(args, pat); | |
409 | ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args); | |
410 | va_end(args); | |
411 | } | |
412 | ||
413 | #undef Perl_warner_nocontext | |
414 | void | |
5a844595 | 415 | Perl_warner_nocontext(U32 err, const char* pat, ...) |
c5be433b GS |
416 | { |
417 | dTHXo; | |
418 | va_list args; | |
419 | va_start(args, pat); | |
420 | ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args); | |
421 | va_end(args); | |
422 | } | |
423 | ||
424 | #undef Perl_newSVpvf_nocontext | |
425 | SV* | |
5a844595 | 426 | Perl_newSVpvf_nocontext(const char* pat, ...) |
c5be433b GS |
427 | { |
428 | dTHXo; | |
429 | SV* retval; | |
430 | va_list args; | |
431 | va_start(args, pat); | |
432 | retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args); | |
433 | va_end(args); | |
434 | return retval; | |
435 | ||
436 | } | |
437 | ||
438 | #undef Perl_sv_catpvf_nocontext | |
439 | void | |
5a844595 | 440 | Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...) |
c5be433b GS |
441 | { |
442 | dTHXo; | |
443 | va_list args; | |
444 | va_start(args, pat); | |
445 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args); | |
446 | va_end(args); | |
447 | } | |
448 | ||
449 | #undef Perl_sv_setpvf_nocontext | |
450 | void | |
5a844595 | 451 | Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...) |
c5be433b GS |
452 | { |
453 | dTHXo; | |
454 | va_list args; | |
455 | va_start(args, pat); | |
456 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args); | |
457 | va_end(args); | |
458 | } | |
459 | ||
460 | #undef Perl_sv_catpvf_mg_nocontext | |
461 | void | |
5a844595 | 462 | Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...) |
c5be433b GS |
463 | { |
464 | dTHXo; | |
465 | va_list args; | |
466 | va_start(args, pat); | |
467 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args); | |
468 | va_end(args); | |
469 | } | |
470 | ||
471 | #undef Perl_sv_setpvf_mg_nocontext | |
472 | void | |
5a844595 | 473 | Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...) |
c5be433b GS |
474 | { |
475 | dTHXo; | |
476 | va_list args; | |
477 | va_start(args, pat); | |
478 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args); | |
479 | va_end(args); | |
480 | } | |
481 | ||
482 | #undef Perl_fprintf_nocontext | |
b0316773 JH |
483 | |
484 | #undef Perl_printf_nocontext | |
51371543 GS |
485 | #endif |
486 | ||
d0674b55 GS |
487 | #undef Perl_cv_const_sv |
488 | SV* | |
489 | Perl_cv_const_sv(pTHXo_ CV* cv) | |
490 | { | |
491 | return ((CPerlObj*)pPerl)->Perl_cv_const_sv(cv); | |
492 | } | |
493 | ||
494 | #undef Perl_cv_undef | |
495 | void | |
496 | Perl_cv_undef(pTHXo_ CV* cv) | |
497 | { | |
498 | ((CPerlObj*)pPerl)->Perl_cv_undef(cv); | |
499 | } | |
500 | ||
51371543 GS |
501 | #undef Perl_cx_dump |
502 | void | |
c5be433b | 503 | Perl_cx_dump(pTHXo_ PERL_CONTEXT* cs) |
51371543 GS |
504 | { |
505 | ((CPerlObj*)pPerl)->Perl_cx_dump(cs); | |
506 | } | |
507 | ||
508 | #undef Perl_filter_add | |
509 | SV* | |
c5be433b | 510 | Perl_filter_add(pTHXo_ filter_t funcp, SV* datasv) |
51371543 GS |
511 | { |
512 | return ((CPerlObj*)pPerl)->Perl_filter_add(funcp, datasv); | |
513 | } | |
514 | ||
515 | #undef Perl_filter_del | |
516 | void | |
c5be433b | 517 | Perl_filter_del(pTHXo_ filter_t funcp) |
51371543 GS |
518 | { |
519 | ((CPerlObj*)pPerl)->Perl_filter_del(funcp); | |
520 | } | |
521 | ||
522 | #undef Perl_filter_read | |
523 | I32 | |
c5be433b | 524 | Perl_filter_read(pTHXo_ int idx, SV* buffer, int maxlen) |
51371543 GS |
525 | { |
526 | return ((CPerlObj*)pPerl)->Perl_filter_read(idx, buffer, maxlen); | |
527 | } | |
528 | ||
529 | #undef Perl_get_op_descs | |
530 | char** | |
c5be433b | 531 | Perl_get_op_descs(pTHXo) |
51371543 GS |
532 | { |
533 | return ((CPerlObj*)pPerl)->Perl_get_op_descs(); | |
534 | } | |
535 | ||
536 | #undef Perl_get_op_names | |
537 | char** | |
c5be433b | 538 | Perl_get_op_names(pTHXo) |
51371543 GS |
539 | { |
540 | return ((CPerlObj*)pPerl)->Perl_get_op_names(); | |
541 | } | |
542 | ||
51371543 GS |
543 | #undef Perl_get_ppaddr |
544 | PPADDR_t* | |
c5be433b | 545 | Perl_get_ppaddr(pTHXo) |
51371543 GS |
546 | { |
547 | return ((CPerlObj*)pPerl)->Perl_get_ppaddr(); | |
548 | } | |
549 | ||
c5be433b GS |
550 | #undef Perl_deb |
551 | void | |
5a844595 | 552 | Perl_deb(pTHXo_ const char* pat, ...) |
c5be433b GS |
553 | { |
554 | va_list args; | |
555 | va_start(args, pat); | |
556 | ((CPerlObj*)pPerl)->Perl_vdeb(pat, &args); | |
557 | va_end(args); | |
558 | } | |
559 | ||
560 | #undef Perl_vdeb | |
561 | void | |
562 | Perl_vdeb(pTHXo_ const char* pat, va_list* args) | |
563 | { | |
564 | ((CPerlObj*)pPerl)->Perl_vdeb(pat, args); | |
565 | } | |
566 | ||
51371543 GS |
567 | #undef Perl_debprofdump |
568 | void | |
c5be433b | 569 | Perl_debprofdump(pTHXo) |
51371543 GS |
570 | { |
571 | ((CPerlObj*)pPerl)->Perl_debprofdump(); | |
572 | } | |
573 | ||
574 | #undef Perl_debop | |
575 | I32 | |
c5be433b | 576 | Perl_debop(pTHXo_ OP* o) |
51371543 GS |
577 | { |
578 | return ((CPerlObj*)pPerl)->Perl_debop(o); | |
579 | } | |
580 | ||
581 | #undef Perl_debstack | |
582 | I32 | |
c5be433b | 583 | Perl_debstack(pTHXo) |
51371543 GS |
584 | { |
585 | return ((CPerlObj*)pPerl)->Perl_debstack(); | |
586 | } | |
587 | ||
588 | #undef Perl_debstackptrs | |
589 | I32 | |
c5be433b | 590 | Perl_debstackptrs(pTHXo) |
51371543 GS |
591 | { |
592 | return ((CPerlObj*)pPerl)->Perl_debstackptrs(); | |
593 | } | |
594 | ||
595 | #undef Perl_delimcpy | |
596 | char* | |
c5be433b | 597 | Perl_delimcpy(pTHXo_ char* to, char* toend, char* from, char* fromend, int delim, I32* retlen) |
51371543 GS |
598 | { |
599 | return ((CPerlObj*)pPerl)->Perl_delimcpy(to, toend, from, fromend, delim, retlen); | |
600 | } | |
601 | ||
1be9d9c6 GS |
602 | #undef Perl_die |
603 | OP* | |
604 | Perl_die(pTHXo_ const char* pat, ...) | |
605 | { | |
606 | OP* retval; | |
607 | va_list args; | |
608 | va_start(args, pat); | |
609 | retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args); | |
610 | va_end(args); | |
611 | return retval; | |
612 | ||
613 | } | |
614 | ||
615 | #undef Perl_dounwind | |
616 | void | |
617 | Perl_dounwind(pTHXo_ I32 cxix) | |
618 | { | |
619 | ((CPerlObj*)pPerl)->Perl_dounwind(cxix); | |
620 | } | |
621 | ||
51371543 GS |
622 | #undef Perl_do_binmode |
623 | int | |
412d7f2a | 624 | Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int mode) |
51371543 | 625 | { |
412d7f2a | 626 | return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, mode); |
51371543 | 627 | } |
1c0ca838 GS |
628 | |
629 | #undef Perl_do_close | |
630 | bool | |
631 | Perl_do_close(pTHXo_ GV* gv, bool not_implicit) | |
632 | { | |
633 | return ((CPerlObj*)pPerl)->Perl_do_close(gv, not_implicit); | |
634 | } | |
51371543 | 635 | #if !defined(WIN32) |
51371543 | 636 | #endif |
51371543 | 637 | #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) |
51371543 GS |
638 | #endif |
639 | ||
412d7f2a GS |
640 | #undef Perl_do_join |
641 | void | |
642 | Perl_do_join(pTHXo_ SV* sv, SV* del, SV** mark, SV** sp) | |
643 | { | |
644 | ((CPerlObj*)pPerl)->Perl_do_join(sv, del, mark, sp); | |
645 | } | |
646 | ||
51371543 GS |
647 | #undef Perl_do_open |
648 | bool | |
c5be433b | 649 | Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp) |
51371543 GS |
650 | { |
651 | return ((CPerlObj*)pPerl)->Perl_do_open(gv, name, len, as_raw, rawmode, rawperm, supplied_fp); | |
652 | } | |
653 | ||
6170680b IZ |
654 | #undef Perl_do_open9 |
655 | bool | |
656 | Perl_do_open9(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num) | |
657 | { | |
658 | return ((CPerlObj*)pPerl)->Perl_do_open9(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svs, num); | |
659 | } | |
660 | ||
a567e93b NIS |
661 | #undef Perl_do_openn |
662 | bool | |
663 | Perl_do_openn(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp, I32 num) | |
664 | { | |
665 | return ((CPerlObj*)pPerl)->Perl_do_openn(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svp, num); | |
666 | } | |
667 | ||
51371543 GS |
668 | #undef Perl_dowantarray |
669 | I32 | |
c5be433b | 670 | Perl_dowantarray(pTHXo) |
51371543 GS |
671 | { |
672 | return ((CPerlObj*)pPerl)->Perl_dowantarray(); | |
673 | } | |
674 | ||
675 | #undef Perl_dump_all | |
676 | void | |
c5be433b | 677 | Perl_dump_all(pTHXo) |
51371543 GS |
678 | { |
679 | ((CPerlObj*)pPerl)->Perl_dump_all(); | |
680 | } | |
681 | ||
682 | #undef Perl_dump_eval | |
683 | void | |
c5be433b | 684 | Perl_dump_eval(pTHXo) |
51371543 GS |
685 | { |
686 | ((CPerlObj*)pPerl)->Perl_dump_eval(); | |
687 | } | |
688 | #if defined(DUMP_FDS) | |
689 | ||
690 | #undef Perl_dump_fds | |
691 | void | |
c5be433b | 692 | Perl_dump_fds(pTHXo_ char* s) |
51371543 GS |
693 | { |
694 | ((CPerlObj*)pPerl)->Perl_dump_fds(s); | |
695 | } | |
696 | #endif | |
697 | ||
698 | #undef Perl_dump_form | |
699 | void | |
c5be433b | 700 | Perl_dump_form(pTHXo_ GV* gv) |
51371543 GS |
701 | { |
702 | ((CPerlObj*)pPerl)->Perl_dump_form(gv); | |
703 | } | |
704 | ||
705 | #undef Perl_gv_dump | |
706 | void | |
c5be433b | 707 | Perl_gv_dump(pTHXo_ GV* gv) |
51371543 GS |
708 | { |
709 | ((CPerlObj*)pPerl)->Perl_gv_dump(gv); | |
710 | } | |
711 | ||
712 | #undef Perl_op_dump | |
713 | void | |
c5be433b | 714 | Perl_op_dump(pTHXo_ OP* arg) |
51371543 GS |
715 | { |
716 | ((CPerlObj*)pPerl)->Perl_op_dump(arg); | |
717 | } | |
718 | ||
719 | #undef Perl_pmop_dump | |
720 | void | |
c5be433b | 721 | Perl_pmop_dump(pTHXo_ PMOP* pm) |
51371543 GS |
722 | { |
723 | ((CPerlObj*)pPerl)->Perl_pmop_dump(pm); | |
724 | } | |
725 | ||
726 | #undef Perl_dump_packsubs | |
727 | void | |
c5be433b | 728 | Perl_dump_packsubs(pTHXo_ HV* stash) |
51371543 GS |
729 | { |
730 | ((CPerlObj*)pPerl)->Perl_dump_packsubs(stash); | |
731 | } | |
732 | ||
733 | #undef Perl_dump_sub | |
734 | void | |
c5be433b | 735 | Perl_dump_sub(pTHXo_ GV* gv) |
51371543 GS |
736 | { |
737 | ((CPerlObj*)pPerl)->Perl_dump_sub(gv); | |
738 | } | |
739 | ||
740 | #undef Perl_fbm_compile | |
741 | void | |
c5be433b | 742 | Perl_fbm_compile(pTHXo_ SV* sv, U32 flags) |
51371543 GS |
743 | { |
744 | ((CPerlObj*)pPerl)->Perl_fbm_compile(sv, flags); | |
745 | } | |
746 | ||
747 | #undef Perl_fbm_instr | |
748 | char* | |
c5be433b | 749 | Perl_fbm_instr(pTHXo_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags) |
51371543 GS |
750 | { |
751 | return ((CPerlObj*)pPerl)->Perl_fbm_instr(big, bigend, littlesv, flags); | |
752 | } | |
51371543 | 753 | #if defined(USE_THREADS) |
51371543 GS |
754 | #endif |
755 | ||
c5be433b GS |
756 | #undef Perl_form |
757 | char* | |
5a844595 | 758 | Perl_form(pTHXo_ const char* pat, ...) |
c5be433b GS |
759 | { |
760 | char* retval; | |
761 | va_list args; | |
762 | va_start(args, pat); | |
763 | retval = ((CPerlObj*)pPerl)->Perl_vform(pat, &args); | |
764 | va_end(args); | |
765 | return retval; | |
766 | ||
767 | } | |
768 | ||
769 | #undef Perl_vform | |
770 | char* | |
771 | Perl_vform(pTHXo_ const char* pat, va_list* args) | |
772 | { | |
773 | return ((CPerlObj*)pPerl)->Perl_vform(pat, args); | |
774 | } | |
775 | ||
51371543 GS |
776 | #undef Perl_free_tmps |
777 | void | |
c5be433b | 778 | Perl_free_tmps(pTHXo) |
51371543 GS |
779 | { |
780 | ((CPerlObj*)pPerl)->Perl_free_tmps(); | |
781 | } | |
51371543 | 782 | #if !defined(HAS_GETENV_LEN) |
51371543 GS |
783 | #endif |
784 | ||
785 | #undef Perl_gp_free | |
786 | void | |
c5be433b | 787 | Perl_gp_free(pTHXo_ GV* gv) |
51371543 GS |
788 | { |
789 | ((CPerlObj*)pPerl)->Perl_gp_free(gv); | |
790 | } | |
791 | ||
792 | #undef Perl_gp_ref | |
793 | GP* | |
c5be433b | 794 | Perl_gp_ref(pTHXo_ GP* gp) |
51371543 GS |
795 | { |
796 | return ((CPerlObj*)pPerl)->Perl_gp_ref(gp); | |
797 | } | |
798 | ||
799 | #undef Perl_gv_AVadd | |
800 | GV* | |
c5be433b | 801 | Perl_gv_AVadd(pTHXo_ GV* gv) |
51371543 GS |
802 | { |
803 | return ((CPerlObj*)pPerl)->Perl_gv_AVadd(gv); | |
804 | } | |
805 | ||
806 | #undef Perl_gv_HVadd | |
807 | GV* | |
c5be433b | 808 | Perl_gv_HVadd(pTHXo_ GV* gv) |
51371543 GS |
809 | { |
810 | return ((CPerlObj*)pPerl)->Perl_gv_HVadd(gv); | |
811 | } | |
812 | ||
813 | #undef Perl_gv_IOadd | |
814 | GV* | |
c5be433b | 815 | Perl_gv_IOadd(pTHXo_ GV* gv) |
51371543 GS |
816 | { |
817 | return ((CPerlObj*)pPerl)->Perl_gv_IOadd(gv); | |
818 | } | |
819 | ||
820 | #undef Perl_gv_autoload4 | |
821 | GV* | |
c5be433b | 822 | Perl_gv_autoload4(pTHXo_ HV* stash, const char* name, STRLEN len, I32 method) |
51371543 GS |
823 | { |
824 | return ((CPerlObj*)pPerl)->Perl_gv_autoload4(stash, name, len, method); | |
825 | } | |
826 | ||
827 | #undef Perl_gv_check | |
828 | void | |
c5be433b | 829 | Perl_gv_check(pTHXo_ HV* stash) |
51371543 GS |
830 | { |
831 | ((CPerlObj*)pPerl)->Perl_gv_check(stash); | |
832 | } | |
833 | ||
834 | #undef Perl_gv_efullname | |
835 | void | |
c5be433b | 836 | Perl_gv_efullname(pTHXo_ SV* sv, GV* gv) |
51371543 GS |
837 | { |
838 | ((CPerlObj*)pPerl)->Perl_gv_efullname(sv, gv); | |
839 | } | |
840 | ||
841 | #undef Perl_gv_efullname3 | |
842 | void | |
c5be433b | 843 | Perl_gv_efullname3(pTHXo_ SV* sv, GV* gv, const char* prefix) |
51371543 GS |
844 | { |
845 | ((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix); | |
846 | } | |
847 | ||
91e74348 JH |
848 | #undef Perl_gv_efullname4 |
849 | void | |
850 | Perl_gv_efullname4(pTHXo_ SV* sv, GV* gv, const char* prefix, bool keepmain) | |
851 | { | |
852 | ((CPerlObj*)pPerl)->Perl_gv_efullname4(sv, gv, prefix, keepmain); | |
853 | } | |
854 | ||
51371543 GS |
855 | #undef Perl_gv_fetchfile |
856 | GV* | |
c5be433b | 857 | Perl_gv_fetchfile(pTHXo_ const char* name) |
51371543 GS |
858 | { |
859 | return ((CPerlObj*)pPerl)->Perl_gv_fetchfile(name); | |
860 | } | |
861 | ||
862 | #undef Perl_gv_fetchmeth | |
863 | GV* | |
c5be433b | 864 | Perl_gv_fetchmeth(pTHXo_ HV* stash, const char* name, STRLEN len, I32 level) |
51371543 GS |
865 | { |
866 | return ((CPerlObj*)pPerl)->Perl_gv_fetchmeth(stash, name, len, level); | |
867 | } | |
868 | ||
869 | #undef Perl_gv_fetchmethod | |
870 | GV* | |
c5be433b | 871 | Perl_gv_fetchmethod(pTHXo_ HV* stash, const char* name) |
51371543 GS |
872 | { |
873 | return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod(stash, name); | |
874 | } | |
875 | ||
876 | #undef Perl_gv_fetchmethod_autoload | |
877 | GV* | |
c5be433b | 878 | Perl_gv_fetchmethod_autoload(pTHXo_ HV* stash, const char* name, I32 autoload) |
51371543 GS |
879 | { |
880 | return ((CPerlObj*)pPerl)->Perl_gv_fetchmethod_autoload(stash, name, autoload); | |
881 | } | |
882 | ||
883 | #undef Perl_gv_fetchpv | |
884 | GV* | |
c5be433b | 885 | Perl_gv_fetchpv(pTHXo_ const char* name, I32 add, I32 sv_type) |
51371543 GS |
886 | { |
887 | return ((CPerlObj*)pPerl)->Perl_gv_fetchpv(name, add, sv_type); | |
888 | } | |
889 | ||
890 | #undef Perl_gv_fullname | |
891 | void | |
c5be433b | 892 | Perl_gv_fullname(pTHXo_ SV* sv, GV* gv) |
51371543 GS |
893 | { |
894 | ((CPerlObj*)pPerl)->Perl_gv_fullname(sv, gv); | |
895 | } | |
896 | ||
897 | #undef Perl_gv_fullname3 | |
898 | void | |
c5be433b | 899 | Perl_gv_fullname3(pTHXo_ SV* sv, GV* gv, const char* prefix) |
51371543 GS |
900 | { |
901 | ((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix); | |
902 | } | |
903 | ||
91e74348 JH |
904 | #undef Perl_gv_fullname4 |
905 | void | |
906 | Perl_gv_fullname4(pTHXo_ SV* sv, GV* gv, const char* prefix, bool keepmain) | |
907 | { | |
908 | ((CPerlObj*)pPerl)->Perl_gv_fullname4(sv, gv, prefix, keepmain); | |
909 | } | |
910 | ||
51371543 GS |
911 | #undef Perl_gv_init |
912 | void | |
c5be433b | 913 | Perl_gv_init(pTHXo_ GV* gv, HV* stash, const char* name, STRLEN len, int multi) |
51371543 GS |
914 | { |
915 | ((CPerlObj*)pPerl)->Perl_gv_init(gv, stash, name, len, multi); | |
916 | } | |
917 | ||
918 | #undef Perl_gv_stashpv | |
919 | HV* | |
c5be433b | 920 | Perl_gv_stashpv(pTHXo_ const char* name, I32 create) |
51371543 GS |
921 | { |
922 | return ((CPerlObj*)pPerl)->Perl_gv_stashpv(name, create); | |
923 | } | |
924 | ||
925 | #undef Perl_gv_stashpvn | |
926 | HV* | |
c5be433b | 927 | Perl_gv_stashpvn(pTHXo_ const char* name, U32 namelen, I32 create) |
51371543 GS |
928 | { |
929 | return ((CPerlObj*)pPerl)->Perl_gv_stashpvn(name, namelen, create); | |
930 | } | |
931 | ||
932 | #undef Perl_gv_stashsv | |
933 | HV* | |
c5be433b | 934 | Perl_gv_stashsv(pTHXo_ SV* sv, I32 create) |
51371543 GS |
935 | { |
936 | return ((CPerlObj*)pPerl)->Perl_gv_stashsv(sv, create); | |
937 | } | |
938 | ||
939 | #undef Perl_hv_clear | |
940 | void | |
c5be433b | 941 | Perl_hv_clear(pTHXo_ HV* tb) |
51371543 GS |
942 | { |
943 | ((CPerlObj*)pPerl)->Perl_hv_clear(tb); | |
944 | } | |
945 | ||
946 | #undef Perl_hv_delayfree_ent | |
947 | void | |
c5be433b | 948 | Perl_hv_delayfree_ent(pTHXo_ HV* hv, HE* entry) |
51371543 GS |
949 | { |
950 | ((CPerlObj*)pPerl)->Perl_hv_delayfree_ent(hv, entry); | |
951 | } | |
952 | ||
953 | #undef Perl_hv_delete | |
954 | SV* | |
411caa50 | 955 | Perl_hv_delete(pTHXo_ HV* tb, const char* key, I32 klen, I32 flags) |
51371543 GS |
956 | { |
957 | return ((CPerlObj*)pPerl)->Perl_hv_delete(tb, key, klen, flags); | |
958 | } | |
959 | ||
960 | #undef Perl_hv_delete_ent | |
961 | SV* | |
c5be433b | 962 | Perl_hv_delete_ent(pTHXo_ HV* tb, SV* key, I32 flags, U32 hash) |
51371543 GS |
963 | { |
964 | return ((CPerlObj*)pPerl)->Perl_hv_delete_ent(tb, key, flags, hash); | |
965 | } | |
966 | ||
967 | #undef Perl_hv_exists | |
968 | bool | |
411caa50 | 969 | Perl_hv_exists(pTHXo_ HV* tb, const char* key, I32 klen) |
51371543 GS |
970 | { |
971 | return ((CPerlObj*)pPerl)->Perl_hv_exists(tb, key, klen); | |
972 | } | |
973 | ||
974 | #undef Perl_hv_exists_ent | |
975 | bool | |
c5be433b | 976 | Perl_hv_exists_ent(pTHXo_ HV* tb, SV* key, U32 hash) |
51371543 GS |
977 | { |
978 | return ((CPerlObj*)pPerl)->Perl_hv_exists_ent(tb, key, hash); | |
979 | } | |
980 | ||
981 | #undef Perl_hv_fetch | |
982 | SV** | |
411caa50 | 983 | Perl_hv_fetch(pTHXo_ HV* tb, const char* key, I32 klen, I32 lval) |
51371543 GS |
984 | { |
985 | return ((CPerlObj*)pPerl)->Perl_hv_fetch(tb, key, klen, lval); | |
986 | } | |
987 | ||
988 | #undef Perl_hv_fetch_ent | |
989 | HE* | |
c5be433b | 990 | Perl_hv_fetch_ent(pTHXo_ HV* tb, SV* key, I32 lval, U32 hash) |
51371543 GS |
991 | { |
992 | return ((CPerlObj*)pPerl)->Perl_hv_fetch_ent(tb, key, lval, hash); | |
993 | } | |
994 | ||
995 | #undef Perl_hv_free_ent | |
996 | void | |
c5be433b | 997 | Perl_hv_free_ent(pTHXo_ HV* hv, HE* entry) |
51371543 GS |
998 | { |
999 | ((CPerlObj*)pPerl)->Perl_hv_free_ent(hv, entry); | |
1000 | } | |
1001 | ||
1002 | #undef Perl_hv_iterinit | |
1003 | I32 | |
c5be433b | 1004 | Perl_hv_iterinit(pTHXo_ HV* tb) |
51371543 GS |
1005 | { |
1006 | return ((CPerlObj*)pPerl)->Perl_hv_iterinit(tb); | |
1007 | } | |
1008 | ||
1009 | #undef Perl_hv_iterkey | |
1010 | char* | |
c5be433b | 1011 | Perl_hv_iterkey(pTHXo_ HE* entry, I32* retlen) |
51371543 GS |
1012 | { |
1013 | return ((CPerlObj*)pPerl)->Perl_hv_iterkey(entry, retlen); | |
1014 | } | |
1015 | ||
1016 | #undef Perl_hv_iterkeysv | |
1017 | SV* | |
c5be433b | 1018 | Perl_hv_iterkeysv(pTHXo_ HE* entry) |
51371543 GS |
1019 | { |
1020 | return ((CPerlObj*)pPerl)->Perl_hv_iterkeysv(entry); | |
1021 | } | |
1022 | ||
1023 | #undef Perl_hv_iternext | |
1024 | HE* | |
c5be433b | 1025 | Perl_hv_iternext(pTHXo_ HV* tb) |
51371543 GS |
1026 | { |
1027 | return ((CPerlObj*)pPerl)->Perl_hv_iternext(tb); | |
1028 | } | |
1029 | ||
1030 | #undef Perl_hv_iternextsv | |
1031 | SV* | |
c5be433b | 1032 | Perl_hv_iternextsv(pTHXo_ HV* hv, char** key, I32* retlen) |
51371543 GS |
1033 | { |
1034 | return ((CPerlObj*)pPerl)->Perl_hv_iternextsv(hv, key, retlen); | |
1035 | } | |
1036 | ||
1037 | #undef Perl_hv_iterval | |
1038 | SV* | |
c5be433b | 1039 | Perl_hv_iterval(pTHXo_ HV* tb, HE* entry) |
51371543 GS |
1040 | { |
1041 | return ((CPerlObj*)pPerl)->Perl_hv_iterval(tb, entry); | |
1042 | } | |
1043 | ||
1044 | #undef Perl_hv_ksplit | |
1045 | void | |
c5be433b | 1046 | Perl_hv_ksplit(pTHXo_ HV* hv, IV newmax) |
51371543 GS |
1047 | { |
1048 | ((CPerlObj*)pPerl)->Perl_hv_ksplit(hv, newmax); | |
1049 | } | |
1050 | ||
1051 | #undef Perl_hv_magic | |
1052 | void | |
c5be433b | 1053 | Perl_hv_magic(pTHXo_ HV* hv, GV* gv, int how) |
51371543 GS |
1054 | { |
1055 | ((CPerlObj*)pPerl)->Perl_hv_magic(hv, gv, how); | |
1056 | } | |
1057 | ||
1058 | #undef Perl_hv_store | |
1059 | SV** | |
411caa50 | 1060 | Perl_hv_store(pTHXo_ HV* tb, const char* key, I32 klen, SV* val, U32 hash) |
51371543 GS |
1061 | { |
1062 | return ((CPerlObj*)pPerl)->Perl_hv_store(tb, key, klen, val, hash); | |
1063 | } | |
1064 | ||
1065 | #undef Perl_hv_store_ent | |
1066 | HE* | |
c5be433b | 1067 | Perl_hv_store_ent(pTHXo_ HV* tb, SV* key, SV* val, U32 hash) |
51371543 GS |
1068 | { |
1069 | return ((CPerlObj*)pPerl)->Perl_hv_store_ent(tb, key, val, hash); | |
1070 | } | |
1071 | ||
1072 | #undef Perl_hv_undef | |
1073 | void | |
c5be433b | 1074 | Perl_hv_undef(pTHXo_ HV* tb) |
51371543 GS |
1075 | { |
1076 | ((CPerlObj*)pPerl)->Perl_hv_undef(tb); | |
1077 | } | |
1078 | ||
1079 | #undef Perl_ibcmp | |
1080 | I32 | |
c5be433b | 1081 | Perl_ibcmp(pTHXo_ const char* a, const char* b, I32 len) |
51371543 GS |
1082 | { |
1083 | return ((CPerlObj*)pPerl)->Perl_ibcmp(a, b, len); | |
1084 | } | |
1085 | ||
1086 | #undef Perl_ibcmp_locale | |
1087 | I32 | |
c5be433b | 1088 | Perl_ibcmp_locale(pTHXo_ const char* a, const char* b, I32 len) |
51371543 GS |
1089 | { |
1090 | return ((CPerlObj*)pPerl)->Perl_ibcmp_locale(a, b, len); | |
1091 | } | |
1092 | ||
1be9d9c6 GS |
1093 | #undef Perl_init_stacks |
1094 | void | |
1095 | Perl_init_stacks(pTHXo) | |
1096 | { | |
1097 | ((CPerlObj*)pPerl)->Perl_init_stacks(); | |
1098 | } | |
1099 | ||
a453c169 JH |
1100 | #undef Perl_init_tm |
1101 | void | |
1102 | Perl_init_tm(pTHXo_ struct tm *ptm) | |
1103 | { | |
1104 | ((CPerlObj*)pPerl)->Perl_init_tm(ptm); | |
1105 | } | |
1106 | ||
954c1994 GS |
1107 | #undef Perl_instr |
1108 | char* | |
1109 | Perl_instr(pTHXo_ const char* big, const char* little) | |
51371543 | 1110 | { |
954c1994 | 1111 | return ((CPerlObj*)pPerl)->Perl_instr(big, little); |
51371543 GS |
1112 | } |
1113 | ||
954c1994 GS |
1114 | #undef Perl_is_uni_alnum |
1115 | bool | |
1116 | Perl_is_uni_alnum(pTHXo_ U32 c) | |
1ee4443e | 1117 | { |
954c1994 | 1118 | return ((CPerlObj*)pPerl)->Perl_is_uni_alnum(c); |
1ee4443e IZ |
1119 | } |
1120 | ||
954c1994 GS |
1121 | #undef Perl_is_uni_alnumc |
1122 | bool | |
1123 | Perl_is_uni_alnumc(pTHXo_ U32 c) | |
51371543 | 1124 | { |
954c1994 | 1125 | return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc(c); |
51371543 GS |
1126 | } |
1127 | ||
1128 | #undef Perl_is_uni_idfirst | |
1129 | bool | |
c5be433b | 1130 | Perl_is_uni_idfirst(pTHXo_ U32 c) |
51371543 GS |
1131 | { |
1132 | return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst(c); | |
1133 | } | |
1134 | ||
1135 | #undef Perl_is_uni_alpha | |
1136 | bool | |
c5be433b | 1137 | Perl_is_uni_alpha(pTHXo_ U32 c) |
51371543 GS |
1138 | { |
1139 | return ((CPerlObj*)pPerl)->Perl_is_uni_alpha(c); | |
1140 | } | |
1141 | ||
1142 | #undef Perl_is_uni_ascii | |
1143 | bool | |
c5be433b | 1144 | Perl_is_uni_ascii(pTHXo_ U32 c) |
51371543 GS |
1145 | { |
1146 | return ((CPerlObj*)pPerl)->Perl_is_uni_ascii(c); | |
1147 | } | |
1148 | ||
1149 | #undef Perl_is_uni_space | |
1150 | bool | |
c5be433b | 1151 | Perl_is_uni_space(pTHXo_ U32 c) |
51371543 GS |
1152 | { |
1153 | return ((CPerlObj*)pPerl)->Perl_is_uni_space(c); | |
1154 | } | |
1155 | ||
1156 | #undef Perl_is_uni_cntrl | |
1157 | bool | |
c5be433b | 1158 | Perl_is_uni_cntrl(pTHXo_ U32 c) |
51371543 GS |
1159 | { |
1160 | return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl(c); | |
1161 | } | |
1162 | ||
1163 | #undef Perl_is_uni_graph | |
1164 | bool | |
c5be433b | 1165 | Perl_is_uni_graph(pTHXo_ U32 c) |
51371543 GS |
1166 | { |
1167 | return ((CPerlObj*)pPerl)->Perl_is_uni_graph(c); | |
1168 | } | |
1169 | ||
1170 | #undef Perl_is_uni_digit | |
1171 | bool | |
c5be433b | 1172 | Perl_is_uni_digit(pTHXo_ U32 c) |
51371543 GS |
1173 | { |
1174 | return ((CPerlObj*)pPerl)->Perl_is_uni_digit(c); | |
1175 | } | |
1176 | ||
1177 | #undef Perl_is_uni_upper | |
1178 | bool | |
c5be433b | 1179 | Perl_is_uni_upper(pTHXo_ U32 c) |
51371543 GS |
1180 | { |
1181 | return ((CPerlObj*)pPerl)->Perl_is_uni_upper(c); | |
1182 | } | |
1183 | ||
1184 | #undef Perl_is_uni_lower | |
1185 | bool | |
c5be433b | 1186 | Perl_is_uni_lower(pTHXo_ U32 c) |
51371543 GS |
1187 | { |
1188 | return ((CPerlObj*)pPerl)->Perl_is_uni_lower(c); | |
1189 | } | |
1190 | ||
1191 | #undef Perl_is_uni_print | |
1192 | bool | |
c5be433b | 1193 | Perl_is_uni_print(pTHXo_ U32 c) |
51371543 GS |
1194 | { |
1195 | return ((CPerlObj*)pPerl)->Perl_is_uni_print(c); | |
1196 | } | |
1197 | ||
1198 | #undef Perl_is_uni_punct | |
1199 | bool | |
c5be433b | 1200 | Perl_is_uni_punct(pTHXo_ U32 c) |
51371543 GS |
1201 | { |
1202 | return ((CPerlObj*)pPerl)->Perl_is_uni_punct(c); | |
1203 | } | |
1204 | ||
1205 | #undef Perl_is_uni_xdigit | |
1206 | bool | |
c5be433b | 1207 | Perl_is_uni_xdigit(pTHXo_ U32 c) |
51371543 GS |
1208 | { |
1209 | return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit(c); | |
1210 | } | |
1211 | ||
1212 | #undef Perl_to_uni_upper | |
1213 | U32 | |
c5be433b | 1214 | Perl_to_uni_upper(pTHXo_ U32 c) |
51371543 GS |
1215 | { |
1216 | return ((CPerlObj*)pPerl)->Perl_to_uni_upper(c); | |
1217 | } | |
1218 | ||
1219 | #undef Perl_to_uni_title | |
1220 | U32 | |
c5be433b | 1221 | Perl_to_uni_title(pTHXo_ U32 c) |
51371543 GS |
1222 | { |
1223 | return ((CPerlObj*)pPerl)->Perl_to_uni_title(c); | |
1224 | } | |
1225 | ||
1226 | #undef Perl_to_uni_lower | |
1227 | U32 | |
c5be433b | 1228 | Perl_to_uni_lower(pTHXo_ U32 c) |
51371543 GS |
1229 | { |
1230 | return ((CPerlObj*)pPerl)->Perl_to_uni_lower(c); | |
1231 | } | |
1232 | ||
1233 | #undef Perl_is_uni_alnum_lc | |
1234 | bool | |
c5be433b | 1235 | Perl_is_uni_alnum_lc(pTHXo_ U32 c) |
51371543 GS |
1236 | { |
1237 | return ((CPerlObj*)pPerl)->Perl_is_uni_alnum_lc(c); | |
1238 | } | |
1239 | ||
1240 | #undef Perl_is_uni_alnumc_lc | |
1241 | bool | |
c5be433b | 1242 | Perl_is_uni_alnumc_lc(pTHXo_ U32 c) |
51371543 GS |
1243 | { |
1244 | return ((CPerlObj*)pPerl)->Perl_is_uni_alnumc_lc(c); | |
1245 | } | |
1246 | ||
1247 | #undef Perl_is_uni_idfirst_lc | |
1248 | bool | |
c5be433b | 1249 | Perl_is_uni_idfirst_lc(pTHXo_ U32 c) |
51371543 GS |
1250 | { |
1251 | return ((CPerlObj*)pPerl)->Perl_is_uni_idfirst_lc(c); | |
1252 | } | |
1253 | ||
1254 | #undef Perl_is_uni_alpha_lc | |
1255 | bool | |
c5be433b | 1256 | Perl_is_uni_alpha_lc(pTHXo_ U32 c) |
51371543 GS |
1257 | { |
1258 | return ((CPerlObj*)pPerl)->Perl_is_uni_alpha_lc(c); | |
1259 | } | |
1260 | ||
1261 | #undef Perl_is_uni_ascii_lc | |
1262 | bool | |
c5be433b | 1263 | Perl_is_uni_ascii_lc(pTHXo_ U32 c) |
51371543 GS |
1264 | { |
1265 | return ((CPerlObj*)pPerl)->Perl_is_uni_ascii_lc(c); | |
1266 | } | |
1267 | ||
1268 | #undef Perl_is_uni_space_lc | |
1269 | bool | |
c5be433b | 1270 | Perl_is_uni_space_lc(pTHXo_ U32 c) |
51371543 GS |
1271 | { |
1272 | return ((CPerlObj*)pPerl)->Perl_is_uni_space_lc(c); | |
1273 | } | |
1274 | ||
1275 | #undef Perl_is_uni_cntrl_lc | |
1276 | bool | |
c5be433b | 1277 | Perl_is_uni_cntrl_lc(pTHXo_ U32 c) |
51371543 GS |
1278 | { |
1279 | return ((CPerlObj*)pPerl)->Perl_is_uni_cntrl_lc(c); | |
1280 | } | |
1281 | ||
1282 | #undef Perl_is_uni_graph_lc | |
1283 | bool | |
c5be433b | 1284 | Perl_is_uni_graph_lc(pTHXo_ U32 c) |
51371543 GS |
1285 | { |
1286 | return ((CPerlObj*)pPerl)->Perl_is_uni_graph_lc(c); | |
1287 | } | |
1288 | ||
1289 | #undef Perl_is_uni_digit_lc | |
1290 | bool | |
c5be433b | 1291 | Perl_is_uni_digit_lc(pTHXo_ U32 c) |
51371543 GS |
1292 | { |
1293 | return ((CPerlObj*)pPerl)->Perl_is_uni_digit_lc(c); | |
1294 | } | |
1295 | ||
1296 | #undef Perl_is_uni_upper_lc | |
1297 | bool | |
c5be433b | 1298 | Perl_is_uni_upper_lc(pTHXo_ U32 c) |
51371543 GS |
1299 | { |
1300 | return ((CPerlObj*)pPerl)->Perl_is_uni_upper_lc(c); | |
1301 | } | |
1302 | ||
1303 | #undef Perl_is_uni_lower_lc | |
1304 | bool | |
c5be433b | 1305 | Perl_is_uni_lower_lc(pTHXo_ U32 c) |
51371543 GS |
1306 | { |
1307 | return ((CPerlObj*)pPerl)->Perl_is_uni_lower_lc(c); | |
1308 | } | |
1309 | ||
1310 | #undef Perl_is_uni_print_lc | |
1311 | bool | |
c5be433b | 1312 | Perl_is_uni_print_lc(pTHXo_ U32 c) |
51371543 GS |
1313 | { |
1314 | return ((CPerlObj*)pPerl)->Perl_is_uni_print_lc(c); | |
1315 | } | |
1316 | ||
1317 | #undef Perl_is_uni_punct_lc | |
1318 | bool | |
c5be433b | 1319 | Perl_is_uni_punct_lc(pTHXo_ U32 c) |
51371543 GS |
1320 | { |
1321 | return ((CPerlObj*)pPerl)->Perl_is_uni_punct_lc(c); | |
1322 | } | |
1323 | ||
1324 | #undef Perl_is_uni_xdigit_lc | |
1325 | bool | |
c5be433b | 1326 | Perl_is_uni_xdigit_lc(pTHXo_ U32 c) |
51371543 GS |
1327 | { |
1328 | return ((CPerlObj*)pPerl)->Perl_is_uni_xdigit_lc(c); | |
1329 | } | |
1330 | ||
1331 | #undef Perl_to_uni_upper_lc | |
1332 | U32 | |
c5be433b | 1333 | Perl_to_uni_upper_lc(pTHXo_ U32 c) |
51371543 GS |
1334 | { |
1335 | return ((CPerlObj*)pPerl)->Perl_to_uni_upper_lc(c); | |
1336 | } | |
1337 | ||
1338 | #undef Perl_to_uni_title_lc | |
1339 | U32 | |
c5be433b | 1340 | Perl_to_uni_title_lc(pTHXo_ U32 c) |
51371543 GS |
1341 | { |
1342 | return ((CPerlObj*)pPerl)->Perl_to_uni_title_lc(c); | |
1343 | } | |
1344 | ||
1345 | #undef Perl_to_uni_lower_lc | |
1346 | U32 | |
c5be433b | 1347 | Perl_to_uni_lower_lc(pTHXo_ U32 c) |
51371543 GS |
1348 | { |
1349 | return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c); | |
1350 | } | |
1351 | ||
386d01d6 | 1352 | #undef Perl_is_utf8_char |
dcad2880 | 1353 | STRLEN |
386d01d6 GS |
1354 | Perl_is_utf8_char(pTHXo_ U8 *p) |
1355 | { | |
1356 | return ((CPerlObj*)pPerl)->Perl_is_utf8_char(p); | |
1357 | } | |
1358 | ||
6662521e GS |
1359 | #undef Perl_is_utf8_string |
1360 | bool | |
1361 | Perl_is_utf8_string(pTHXo_ U8 *s, STRLEN len) | |
1362 | { | |
1363 | return ((CPerlObj*)pPerl)->Perl_is_utf8_string(s, len); | |
1364 | } | |
1365 | ||
51371543 GS |
1366 | #undef Perl_is_utf8_alnum |
1367 | bool | |
c5be433b | 1368 | Perl_is_utf8_alnum(pTHXo_ U8 *p) |
51371543 GS |
1369 | { |
1370 | return ((CPerlObj*)pPerl)->Perl_is_utf8_alnum(p); | |
1371 | } | |
1372 | ||
1373 | #undef Perl_is_utf8_alnumc | |
1374 | bool | |
c5be433b | 1375 | Perl_is_utf8_alnumc(pTHXo_ U8 *p) |
51371543 GS |
1376 | { |
1377 | return ((CPerlObj*)pPerl)->Perl_is_utf8_alnumc(p); | |
1378 | } | |
1379 | ||
1380 | #undef Perl_is_utf8_idfirst | |
1381 | bool | |
c5be433b | 1382 | Perl_is_utf8_idfirst(pTHXo_ U8 *p) |
51371543 GS |
1383 | { |
1384 | return ((CPerlObj*)pPerl)->Perl_is_utf8_idfirst(p); | |
1385 | } | |
1386 | ||
1387 | #undef Perl_is_utf8_alpha | |
1388 | bool | |
c5be433b | 1389 | Perl_is_utf8_alpha(pTHXo_ U8 *p) |
51371543 GS |
1390 | { |
1391 | return ((CPerlObj*)pPerl)->Perl_is_utf8_alpha(p); | |
1392 | } | |
1393 | ||
1394 | #undef Perl_is_utf8_ascii | |
1395 | bool | |
c5be433b | 1396 | Perl_is_utf8_ascii(pTHXo_ U8 *p) |
51371543 GS |
1397 | { |
1398 | return ((CPerlObj*)pPerl)->Perl_is_utf8_ascii(p); | |
1399 | } | |
1400 | ||
1401 | #undef Perl_is_utf8_space | |
1402 | bool | |
c5be433b | 1403 | Perl_is_utf8_space(pTHXo_ U8 *p) |
51371543 GS |
1404 | { |
1405 | return ((CPerlObj*)pPerl)->Perl_is_utf8_space(p); | |
1406 | } | |
1407 | ||
1408 | #undef Perl_is_utf8_cntrl | |
1409 | bool | |
c5be433b | 1410 | Perl_is_utf8_cntrl(pTHXo_ U8 *p) |
51371543 GS |
1411 | { |
1412 | return ((CPerlObj*)pPerl)->Perl_is_utf8_cntrl(p); | |
1413 | } | |
1414 | ||
1415 | #undef Perl_is_utf8_digit | |
1416 | bool | |
c5be433b | 1417 | Perl_is_utf8_digit(pTHXo_ U8 *p) |
51371543 GS |
1418 | { |
1419 | return ((CPerlObj*)pPerl)->Perl_is_utf8_digit(p); | |
1420 | } | |
1421 | ||
1422 | #undef Perl_is_utf8_graph | |
1423 | bool | |
c5be433b | 1424 | Perl_is_utf8_graph(pTHXo_ U8 *p) |
51371543 GS |
1425 | { |
1426 | return ((CPerlObj*)pPerl)->Perl_is_utf8_graph(p); | |
1427 | } | |
1428 | ||
1429 | #undef Perl_is_utf8_upper | |
1430 | bool | |
c5be433b | 1431 | Perl_is_utf8_upper(pTHXo_ U8 *p) |
51371543 GS |
1432 | { |
1433 | return ((CPerlObj*)pPerl)->Perl_is_utf8_upper(p); | |
1434 | } | |
1435 | ||
1436 | #undef Perl_is_utf8_lower | |
1437 | bool | |
c5be433b | 1438 | Perl_is_utf8_lower(pTHXo_ U8 *p) |
51371543 GS |
1439 | { |
1440 | return ((CPerlObj*)pPerl)->Perl_is_utf8_lower(p); | |
1441 | } | |
1442 | ||
1443 | #undef Perl_is_utf8_print | |
1444 | bool | |
c5be433b | 1445 | Perl_is_utf8_print(pTHXo_ U8 *p) |
51371543 GS |
1446 | { |
1447 | return ((CPerlObj*)pPerl)->Perl_is_utf8_print(p); | |
1448 | } | |
1449 | ||
1450 | #undef Perl_is_utf8_punct | |
1451 | bool | |
c5be433b | 1452 | Perl_is_utf8_punct(pTHXo_ U8 *p) |
51371543 GS |
1453 | { |
1454 | return ((CPerlObj*)pPerl)->Perl_is_utf8_punct(p); | |
1455 | } | |
1456 | ||
1457 | #undef Perl_is_utf8_xdigit | |
1458 | bool | |
c5be433b | 1459 | Perl_is_utf8_xdigit(pTHXo_ U8 *p) |
51371543 GS |
1460 | { |
1461 | return ((CPerlObj*)pPerl)->Perl_is_utf8_xdigit(p); | |
1462 | } | |
1463 | ||
1464 | #undef Perl_is_utf8_mark | |
1465 | bool | |
c5be433b | 1466 | Perl_is_utf8_mark(pTHXo_ U8 *p) |
51371543 GS |
1467 | { |
1468 | return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p); | |
1469 | } | |
1470 | ||
1be9d9c6 GS |
1471 | #undef Perl_leave_scope |
1472 | void | |
1473 | Perl_leave_scope(pTHXo_ I32 base) | |
1474 | { | |
1475 | ((CPerlObj*)pPerl)->Perl_leave_scope(base); | |
1476 | } | |
1477 | ||
1cadc447 SC |
1478 | #undef Perl_op_null |
1479 | void | |
1480 | Perl_op_null(pTHXo_ OP* o) | |
1481 | { | |
1482 | ((CPerlObj*)pPerl)->Perl_op_null(o); | |
1483 | } | |
1484 | ||
e4783991 GS |
1485 | #undef Perl_load_module |
1486 | void | |
1487 | Perl_load_module(pTHXo_ U32 flags, SV* name, SV* ver, ...) | |
1488 | { | |
1489 | va_list args; | |
1490 | va_start(args, ver); | |
1491 | ((CPerlObj*)pPerl)->Perl_vload_module(flags, name, ver, &args); | |
1492 | va_end(args); | |
1493 | } | |
1494 | ||
1495 | #undef Perl_vload_module | |
1496 | void | |
1497 | Perl_vload_module(pTHXo_ U32 flags, SV* name, SV* ver, va_list* args) | |
1498 | { | |
1499 | ((CPerlObj*)pPerl)->Perl_vload_module(flags, name, ver, args); | |
1500 | } | |
1501 | ||
954c1994 | 1502 | #undef Perl_looks_like_number |
51371543 | 1503 | I32 |
954c1994 | 1504 | Perl_looks_like_number(pTHXo_ SV* sv) |
51371543 | 1505 | { |
954c1994 | 1506 | return ((CPerlObj*)pPerl)->Perl_looks_like_number(sv); |
51371543 | 1507 | } |
dd5dc04f JH |
1508 | |
1509 | #undef Perl_grok_number | |
1510 | int | |
1511 | Perl_grok_number(pTHXo_ const char *pv, STRLEN len, UV *valuep) | |
1512 | { | |
1513 | return ((CPerlObj*)pPerl)->Perl_grok_number(pv, len, valuep); | |
1514 | } | |
1515 | ||
1516 | #undef Perl_grok_numeric_radix | |
1517 | bool | |
1518 | Perl_grok_numeric_radix(pTHXo_ const char **sp, const char *send) | |
1519 | { | |
1520 | return ((CPerlObj*)pPerl)->Perl_grok_numeric_radix(sp, send); | |
1521 | } | |
954c1994 GS |
1522 | #if defined(USE_THREADS) |
1523 | #endif | |
1524 | #if defined(USE_LOCALE_COLLATE) | |
1525 | #endif | |
51371543 | 1526 | |
954c1994 | 1527 | #undef Perl_markstack_grow |
51371543 | 1528 | void |
954c1994 | 1529 | Perl_markstack_grow(pTHXo) |
51371543 | 1530 | { |
954c1994 | 1531 | ((CPerlObj*)pPerl)->Perl_markstack_grow(); |
51371543 | 1532 | } |
954c1994 GS |
1533 | #if defined(USE_LOCALE_COLLATE) |
1534 | #endif | |
51371543 | 1535 | |
954c1994 GS |
1536 | #undef Perl_mess |
1537 | SV* | |
1538 | Perl_mess(pTHXo_ const char* pat, ...) | |
51371543 | 1539 | { |
954c1994 GS |
1540 | SV* retval; |
1541 | va_list args; | |
1542 | va_start(args, pat); | |
1543 | retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args); | |
1544 | va_end(args); | |
1545 | return retval; | |
51371543 | 1546 | |
51371543 GS |
1547 | } |
1548 | ||
954c1994 GS |
1549 | #undef Perl_vmess |
1550 | SV* | |
1551 | Perl_vmess(pTHXo_ const char* pat, va_list* args) | |
51371543 | 1552 | { |
954c1994 | 1553 | return ((CPerlObj*)pPerl)->Perl_vmess(pat, args); |
51371543 GS |
1554 | } |
1555 | ||
954c1994 GS |
1556 | #undef Perl_mg_clear |
1557 | int | |
1558 | Perl_mg_clear(pTHXo_ SV* sv) | |
51371543 | 1559 | { |
954c1994 | 1560 | return ((CPerlObj*)pPerl)->Perl_mg_clear(sv); |
51371543 GS |
1561 | } |
1562 | ||
954c1994 GS |
1563 | #undef Perl_mg_copy |
1564 | int | |
1565 | Perl_mg_copy(pTHXo_ SV* sv, SV* nsv, const char* key, I32 klen) | |
51371543 | 1566 | { |
954c1994 | 1567 | return ((CPerlObj*)pPerl)->Perl_mg_copy(sv, nsv, key, klen); |
51371543 GS |
1568 | } |
1569 | ||
954c1994 GS |
1570 | #undef Perl_mg_find |
1571 | MAGIC* | |
1572 | Perl_mg_find(pTHXo_ SV* sv, int type) | |
51371543 | 1573 | { |
954c1994 | 1574 | return ((CPerlObj*)pPerl)->Perl_mg_find(sv, type); |
51371543 GS |
1575 | } |
1576 | ||
954c1994 | 1577 | #undef Perl_mg_free |
51371543 | 1578 | int |
954c1994 | 1579 | Perl_mg_free(pTHXo_ SV* sv) |
51371543 | 1580 | { |
954c1994 | 1581 | return ((CPerlObj*)pPerl)->Perl_mg_free(sv); |
51371543 GS |
1582 | } |
1583 | ||
954c1994 | 1584 | #undef Perl_mg_get |
51371543 | 1585 | int |
954c1994 | 1586 | Perl_mg_get(pTHXo_ SV* sv) |
51371543 | 1587 | { |
954c1994 | 1588 | return ((CPerlObj*)pPerl)->Perl_mg_get(sv); |
51371543 GS |
1589 | } |
1590 | ||
954c1994 GS |
1591 | #undef Perl_mg_length |
1592 | U32 | |
1593 | Perl_mg_length(pTHXo_ SV* sv) | |
51371543 | 1594 | { |
954c1994 | 1595 | return ((CPerlObj*)pPerl)->Perl_mg_length(sv); |
51371543 GS |
1596 | } |
1597 | ||
954c1994 GS |
1598 | #undef Perl_mg_magical |
1599 | void | |
1600 | Perl_mg_magical(pTHXo_ SV* sv) | |
51371543 | 1601 | { |
954c1994 | 1602 | ((CPerlObj*)pPerl)->Perl_mg_magical(sv); |
51371543 GS |
1603 | } |
1604 | ||
954c1994 | 1605 | #undef Perl_mg_set |
51371543 | 1606 | int |
954c1994 | 1607 | Perl_mg_set(pTHXo_ SV* sv) |
51371543 | 1608 | { |
954c1994 | 1609 | return ((CPerlObj*)pPerl)->Perl_mg_set(sv); |
51371543 GS |
1610 | } |
1611 | ||
954c1994 | 1612 | #undef Perl_mg_size |
8fb26106 | 1613 | I32 |
954c1994 | 1614 | Perl_mg_size(pTHXo_ SV* sv) |
51371543 | 1615 | { |
954c1994 | 1616 | return ((CPerlObj*)pPerl)->Perl_mg_size(sv); |
51371543 GS |
1617 | } |
1618 | ||
a453c169 JH |
1619 | #undef Perl_mini_mktime |
1620 | void | |
1621 | Perl_mini_mktime(pTHXo_ struct tm *pm) | |
1622 | { | |
1623 | ((CPerlObj*)pPerl)->Perl_mini_mktime(pm); | |
1624 | } | |
1625 | ||
1be9d9c6 GS |
1626 | #undef Perl_moreswitches |
1627 | char* | |
1628 | Perl_moreswitches(pTHXo_ char* s) | |
1629 | { | |
1630 | return ((CPerlObj*)pPerl)->Perl_moreswitches(s); | |
1631 | } | |
1632 | ||
954c1994 GS |
1633 | #undef Perl_my_atof |
1634 | NV | |
1635 | Perl_my_atof(pTHXo_ const char *s) | |
51371543 | 1636 | { |
954c1994 | 1637 | return ((CPerlObj*)pPerl)->Perl_my_atof(s); |
51371543 | 1638 | } |
2253333f | 1639 | #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY)) |
51371543 | 1640 | |
954c1994 GS |
1641 | #undef Perl_my_bcopy |
1642 | char* | |
1643 | Perl_my_bcopy(const char* from, char* to, I32 len) | |
51371543 | 1644 | { |
954c1994 GS |
1645 | dTHXo; |
1646 | return ((CPerlObj*)pPerl)->Perl_my_bcopy(from, to, len); | |
51371543 | 1647 | } |
954c1994 GS |
1648 | #endif |
1649 | #if !defined(HAS_BZERO) && !defined(HAS_MEMSET) | |
51371543 | 1650 | |
954c1994 GS |
1651 | #undef Perl_my_bzero |
1652 | char* | |
1653 | Perl_my_bzero(char* loc, I32 len) | |
51371543 | 1654 | { |
954c1994 GS |
1655 | dTHXo; |
1656 | return ((CPerlObj*)pPerl)->Perl_my_bzero(loc, len); | |
51371543 | 1657 | } |
954c1994 | 1658 | #endif |
51371543 | 1659 | |
954c1994 GS |
1660 | #undef Perl_my_exit |
1661 | void | |
1662 | Perl_my_exit(pTHXo_ U32 status) | |
51371543 | 1663 | { |
954c1994 | 1664 | ((CPerlObj*)pPerl)->Perl_my_exit(status); |
51371543 GS |
1665 | } |
1666 | ||
954c1994 GS |
1667 | #undef Perl_my_failure_exit |
1668 | void | |
1669 | Perl_my_failure_exit(pTHXo) | |
51371543 | 1670 | { |
954c1994 | 1671 | ((CPerlObj*)pPerl)->Perl_my_failure_exit(); |
51371543 GS |
1672 | } |
1673 | ||
954c1994 GS |
1674 | #undef Perl_my_fflush_all |
1675 | I32 | |
1676 | Perl_my_fflush_all(pTHXo) | |
51371543 | 1677 | { |
954c1994 | 1678 | return ((CPerlObj*)pPerl)->Perl_my_fflush_all(); |
51371543 GS |
1679 | } |
1680 | ||
52e18b1f GS |
1681 | #undef Perl_my_fork |
1682 | Pid_t | |
1683 | Perl_my_fork() | |
1684 | { | |
1685 | dTHXo; | |
1686 | return ((CPerlObj*)pPerl)->Perl_my_fork(); | |
1687 | } | |
1688 | ||
1689 | #undef Perl_atfork_lock | |
1690 | void | |
1691 | Perl_atfork_lock() | |
1692 | { | |
1693 | dTHXo; | |
1694 | ((CPerlObj*)pPerl)->Perl_atfork_lock(); | |
1695 | } | |
1696 | ||
1697 | #undef Perl_atfork_unlock | |
1698 | void | |
1699 | Perl_atfork_unlock() | |
1700 | { | |
1701 | dTHXo; | |
1702 | ((CPerlObj*)pPerl)->Perl_atfork_unlock(); | |
1703 | } | |
1704 | ||
954c1994 GS |
1705 | #undef Perl_my_lstat |
1706 | I32 | |
1707 | Perl_my_lstat(pTHXo) | |
51371543 | 1708 | { |
954c1994 | 1709 | return ((CPerlObj*)pPerl)->Perl_my_lstat(); |
51371543 | 1710 | } |
954c1994 | 1711 | #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP) |
51371543 | 1712 | |
954c1994 GS |
1713 | #undef Perl_my_memcmp |
1714 | I32 | |
1715 | Perl_my_memcmp(const char* s1, const char* s2, I32 len) | |
51371543 | 1716 | { |
954c1994 GS |
1717 | dTHXo; |
1718 | return ((CPerlObj*)pPerl)->Perl_my_memcmp(s1, s2, len); | |
51371543 | 1719 | } |
954c1994 GS |
1720 | #endif |
1721 | #if !defined(HAS_MEMSET) | |
51371543 | 1722 | |
954c1994 GS |
1723 | #undef Perl_my_memset |
1724 | void* | |
1725 | Perl_my_memset(char* loc, I32 ch, I32 len) | |
51371543 | 1726 | { |
954c1994 GS |
1727 | dTHXo; |
1728 | return ((CPerlObj*)pPerl)->Perl_my_memset(loc, ch, len); | |
51371543 | 1729 | } |
954c1994 GS |
1730 | #endif |
1731 | #if !defined(PERL_OBJECT) | |
51371543 | 1732 | |
954c1994 GS |
1733 | #undef Perl_my_pclose |
1734 | I32 | |
1735 | Perl_my_pclose(pTHXo_ PerlIO* ptr) | |
51371543 | 1736 | { |
954c1994 | 1737 | return ((CPerlObj*)pPerl)->Perl_my_pclose(ptr); |
51371543 GS |
1738 | } |
1739 | ||
954c1994 GS |
1740 | #undef Perl_my_popen |
1741 | PerlIO* | |
1742 | Perl_my_popen(pTHXo_ char* cmd, char* mode) | |
51371543 | 1743 | { |
954c1994 | 1744 | return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode); |
51371543 | 1745 | } |
c60e0e09 NIS |
1746 | |
1747 | #undef Perl_my_popen_list | |
1748 | PerlIO* | |
1749 | Perl_my_popen_list(pTHXo_ char* mode, int n, SV ** args) | |
1750 | { | |
1751 | return ((CPerlObj*)pPerl)->Perl_my_popen_list(mode, n, args); | |
1752 | } | |
954c1994 | 1753 | #endif |
51371543 | 1754 | |
954c1994 GS |
1755 | #undef Perl_my_setenv |
1756 | void | |
1757 | Perl_my_setenv(pTHXo_ char* nam, char* val) | |
51371543 | 1758 | { |
954c1994 | 1759 | ((CPerlObj*)pPerl)->Perl_my_setenv(nam, val); |
51371543 GS |
1760 | } |
1761 | ||
954c1994 GS |
1762 | #undef Perl_my_stat |
1763 | I32 | |
1764 | Perl_my_stat(pTHXo) | |
51371543 | 1765 | { |
954c1994 | 1766 | return ((CPerlObj*)pPerl)->Perl_my_stat(); |
51371543 | 1767 | } |
a453c169 JH |
1768 | |
1769 | #undef Perl_my_strftime | |
1770 | char * | |
1771 | Perl_my_strftime(pTHXo_ char *fmt, int sec, int min, int hour, int mday, int mon, int year, int wday, int yday, int isdst) | |
1772 | { | |
1773 | return ((CPerlObj*)pPerl)->Perl_my_strftime(fmt, sec, min, hour, mday, mon, year, wday, yday, isdst); | |
1774 | } | |
954c1994 | 1775 | #if defined(MYSWAP) |
51371543 | 1776 | |
954c1994 GS |
1777 | #undef Perl_my_swap |
1778 | short | |
1779 | Perl_my_swap(pTHXo_ short s) | |
51371543 | 1780 | { |
954c1994 | 1781 | return ((CPerlObj*)pPerl)->Perl_my_swap(s); |
51371543 | 1782 | } |
51371543 | 1783 | |
954c1994 GS |
1784 | #undef Perl_my_htonl |
1785 | long | |
1786 | Perl_my_htonl(pTHXo_ long l) | |
51371543 | 1787 | { |
954c1994 | 1788 | return ((CPerlObj*)pPerl)->Perl_my_htonl(l); |
51371543 GS |
1789 | } |
1790 | ||
954c1994 GS |
1791 | #undef Perl_my_ntohl |
1792 | long | |
1793 | Perl_my_ntohl(pTHXo_ long l) | |
51371543 | 1794 | { |
954c1994 | 1795 | return ((CPerlObj*)pPerl)->Perl_my_ntohl(l); |
51371543 | 1796 | } |
954c1994 | 1797 | #endif |
51371543 | 1798 | |
954c1994 GS |
1799 | #undef Perl_newANONLIST |
1800 | OP* | |
1801 | Perl_newANONLIST(pTHXo_ OP* o) | |
51371543 | 1802 | { |
954c1994 | 1803 | return ((CPerlObj*)pPerl)->Perl_newANONLIST(o); |
51371543 GS |
1804 | } |
1805 | ||
954c1994 GS |
1806 | #undef Perl_newANONHASH |
1807 | OP* | |
1808 | Perl_newANONHASH(pTHXo_ OP* o) | |
51371543 | 1809 | { |
954c1994 | 1810 | return ((CPerlObj*)pPerl)->Perl_newANONHASH(o); |
51371543 GS |
1811 | } |
1812 | ||
954c1994 GS |
1813 | #undef Perl_newANONSUB |
1814 | OP* | |
1815 | Perl_newANONSUB(pTHXo_ I32 floor, OP* proto, OP* block) | |
51371543 | 1816 | { |
954c1994 | 1817 | return ((CPerlObj*)pPerl)->Perl_newANONSUB(floor, proto, block); |
51371543 GS |
1818 | } |
1819 | ||
954c1994 GS |
1820 | #undef Perl_newASSIGNOP |
1821 | OP* | |
1822 | Perl_newASSIGNOP(pTHXo_ I32 flags, OP* left, I32 optype, OP* right) | |
51371543 | 1823 | { |
954c1994 | 1824 | return ((CPerlObj*)pPerl)->Perl_newASSIGNOP(flags, left, optype, right); |
51371543 GS |
1825 | } |
1826 | ||
954c1994 GS |
1827 | #undef Perl_newCONDOP |
1828 | OP* | |
1829 | Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop) | |
51371543 | 1830 | { |
954c1994 | 1831 | return ((CPerlObj*)pPerl)->Perl_newCONDOP(flags, expr, trueop, falseop); |
51371543 GS |
1832 | } |
1833 | ||
954c1994 | 1834 | #undef Perl_newCONSTSUB |
beab0874 | 1835 | CV* |
954c1994 | 1836 | Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv) |
51371543 | 1837 | { |
beab0874 | 1838 | return ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv); |
51371543 | 1839 | } |
51371543 | 1840 | |
954c1994 GS |
1841 | #undef Perl_newFORM |
1842 | void | |
1843 | Perl_newFORM(pTHXo_ I32 floor, OP* o, OP* block) | |
51371543 | 1844 | { |
954c1994 | 1845 | ((CPerlObj*)pPerl)->Perl_newFORM(floor, o, block); |
51371543 | 1846 | } |
51371543 | 1847 | |
954c1994 GS |
1848 | #undef Perl_newFOROP |
1849 | OP* | |
1850 | Perl_newFOROP(pTHXo_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont) | |
51371543 | 1851 | { |
954c1994 | 1852 | return ((CPerlObj*)pPerl)->Perl_newFOROP(flags, label, forline, sclr, expr, block, cont); |
51371543 GS |
1853 | } |
1854 | ||
954c1994 GS |
1855 | #undef Perl_newLOGOP |
1856 | OP* | |
1857 | Perl_newLOGOP(pTHXo_ I32 optype, I32 flags, OP* left, OP* right) | |
51371543 | 1858 | { |
954c1994 | 1859 | return ((CPerlObj*)pPerl)->Perl_newLOGOP(optype, flags, left, right); |
51371543 GS |
1860 | } |
1861 | ||
954c1994 GS |
1862 | #undef Perl_newLOOPEX |
1863 | OP* | |
1864 | Perl_newLOOPEX(pTHXo_ I32 type, OP* label) | |
51371543 | 1865 | { |
954c1994 | 1866 | return ((CPerlObj*)pPerl)->Perl_newLOOPEX(type, label); |
51371543 GS |
1867 | } |
1868 | ||
954c1994 GS |
1869 | #undef Perl_newLOOPOP |
1870 | OP* | |
1871 | Perl_newLOOPOP(pTHXo_ I32 flags, I32 debuggable, OP* expr, OP* block) | |
51371543 | 1872 | { |
954c1994 | 1873 | return ((CPerlObj*)pPerl)->Perl_newLOOPOP(flags, debuggable, expr, block); |
51371543 GS |
1874 | } |
1875 | ||
954c1994 GS |
1876 | #undef Perl_newNULLLIST |
1877 | OP* | |
1878 | Perl_newNULLLIST(pTHXo) | |
51371543 | 1879 | { |
954c1994 | 1880 | return ((CPerlObj*)pPerl)->Perl_newNULLLIST(); |
51371543 GS |
1881 | } |
1882 | ||
954c1994 GS |
1883 | #undef Perl_newOP |
1884 | OP* | |
1885 | Perl_newOP(pTHXo_ I32 optype, I32 flags) | |
51371543 | 1886 | { |
954c1994 | 1887 | return ((CPerlObj*)pPerl)->Perl_newOP(optype, flags); |
51371543 GS |
1888 | } |
1889 | ||
954c1994 GS |
1890 | #undef Perl_newPROG |
1891 | void | |
1892 | Perl_newPROG(pTHXo_ OP* o) | |
51371543 | 1893 | { |
954c1994 | 1894 | ((CPerlObj*)pPerl)->Perl_newPROG(o); |
51371543 GS |
1895 | } |
1896 | ||
954c1994 GS |
1897 | #undef Perl_newRANGE |
1898 | OP* | |
1899 | Perl_newRANGE(pTHXo_ I32 flags, OP* left, OP* right) | |
51371543 | 1900 | { |
954c1994 | 1901 | return ((CPerlObj*)pPerl)->Perl_newRANGE(flags, left, right); |
51371543 GS |
1902 | } |
1903 | ||
954c1994 GS |
1904 | #undef Perl_newSLICEOP |
1905 | OP* | |
1906 | Perl_newSLICEOP(pTHXo_ I32 flags, OP* subscript, OP* listop) | |
51371543 | 1907 | { |
954c1994 | 1908 | return ((CPerlObj*)pPerl)->Perl_newSLICEOP(flags, subscript, listop); |
51371543 GS |
1909 | } |
1910 | ||
954c1994 GS |
1911 | #undef Perl_newSTATEOP |
1912 | OP* | |
1913 | Perl_newSTATEOP(pTHXo_ I32 flags, char* label, OP* o) | |
51371543 | 1914 | { |
954c1994 | 1915 | return ((CPerlObj*)pPerl)->Perl_newSTATEOP(flags, label, o); |
51371543 GS |
1916 | } |
1917 | ||
954c1994 GS |
1918 | #undef Perl_newSUB |
1919 | CV* | |
1920 | Perl_newSUB(pTHXo_ I32 floor, OP* o, OP* proto, OP* block) | |
51371543 | 1921 | { |
954c1994 | 1922 | return ((CPerlObj*)pPerl)->Perl_newSUB(floor, o, proto, block); |
51371543 GS |
1923 | } |
1924 | ||
954c1994 GS |
1925 | #undef Perl_newXS |
1926 | CV* | |
1927 | Perl_newXS(pTHXo_ char* name, XSUBADDR_t f, char* filename) | |
51371543 | 1928 | { |
954c1994 | 1929 | return ((CPerlObj*)pPerl)->Perl_newXS(name, f, filename); |
51371543 GS |
1930 | } |
1931 | ||
954c1994 GS |
1932 | #undef Perl_newAV |
1933 | AV* | |
1934 | Perl_newAV(pTHXo) | |
51371543 | 1935 | { |
954c1994 | 1936 | return ((CPerlObj*)pPerl)->Perl_newAV(); |
51371543 GS |
1937 | } |
1938 | ||
954c1994 GS |
1939 | #undef Perl_newAVREF |
1940 | OP* | |
1941 | Perl_newAVREF(pTHXo_ OP* o) | |
51371543 | 1942 | { |
954c1994 | 1943 | return ((CPerlObj*)pPerl)->Perl_newAVREF(o); |
51371543 GS |
1944 | } |
1945 | ||
954c1994 GS |
1946 | #undef Perl_newBINOP |
1947 | OP* | |
1948 | Perl_newBINOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last) | |
51371543 | 1949 | { |
954c1994 | 1950 | return ((CPerlObj*)pPerl)->Perl_newBINOP(type, flags, first, last); |
51371543 GS |
1951 | } |
1952 | ||
954c1994 GS |
1953 | #undef Perl_newCVREF |
1954 | OP* | |
1955 | Perl_newCVREF(pTHXo_ I32 flags, OP* o) | |
51371543 | 1956 | { |
954c1994 | 1957 | return ((CPerlObj*)pPerl)->Perl_newCVREF(flags, o); |
51371543 GS |
1958 | } |
1959 | ||
954c1994 GS |
1960 | #undef Perl_newGVOP |
1961 | OP* | |
1962 | Perl_newGVOP(pTHXo_ I32 type, I32 flags, GV* gv) | |
51371543 | 1963 | { |
954c1994 | 1964 | return ((CPerlObj*)pPerl)->Perl_newGVOP(type, flags, gv); |
51371543 GS |
1965 | } |
1966 | ||
954c1994 GS |
1967 | #undef Perl_newGVgen |
1968 | GV* | |
1969 | Perl_newGVgen(pTHXo_ char* pack) | |
51371543 | 1970 | { |
954c1994 | 1971 | return ((CPerlObj*)pPerl)->Perl_newGVgen(pack); |
51371543 GS |
1972 | } |
1973 | ||
954c1994 GS |
1974 | #undef Perl_newGVREF |
1975 | OP* | |
1976 | Perl_newGVREF(pTHXo_ I32 type, OP* o) | |
51371543 | 1977 | { |
954c1994 | 1978 | return ((CPerlObj*)pPerl)->Perl_newGVREF(type, o); |
51371543 GS |
1979 | } |
1980 | ||
954c1994 GS |
1981 | #undef Perl_newHVREF |
1982 | OP* | |
1983 | Perl_newHVREF(pTHXo_ OP* o) | |
51371543 | 1984 | { |
954c1994 | 1985 | return ((CPerlObj*)pPerl)->Perl_newHVREF(o); |
51371543 GS |
1986 | } |
1987 | ||
954c1994 GS |
1988 | #undef Perl_newHV |
1989 | HV* | |
1990 | Perl_newHV(pTHXo) | |
51371543 | 1991 | { |
954c1994 | 1992 | return ((CPerlObj*)pPerl)->Perl_newHV(); |
51371543 GS |
1993 | } |
1994 | ||
954c1994 GS |
1995 | #undef Perl_newHVhv |
1996 | HV* | |
1997 | Perl_newHVhv(pTHXo_ HV* hv) | |
51371543 | 1998 | { |
954c1994 | 1999 | return ((CPerlObj*)pPerl)->Perl_newHVhv(hv); |
51371543 GS |
2000 | } |
2001 | ||
954c1994 GS |
2002 | #undef Perl_newIO |
2003 | IO* | |
2004 | Perl_newIO(pTHXo) | |
51371543 | 2005 | { |
954c1994 | 2006 | return ((CPerlObj*)pPerl)->Perl_newIO(); |
51371543 GS |
2007 | } |
2008 | ||
954c1994 GS |
2009 | #undef Perl_newLISTOP |
2010 | OP* | |
2011 | Perl_newLISTOP(pTHXo_ I32 type, I32 flags, OP* first, OP* last) | |
51371543 | 2012 | { |
954c1994 | 2013 | return ((CPerlObj*)pPerl)->Perl_newLISTOP(type, flags, first, last); |
51371543 GS |
2014 | } |
2015 | ||
954c1994 GS |
2016 | #undef Perl_newPADOP |
2017 | OP* | |
2018 | Perl_newPADOP(pTHXo_ I32 type, I32 flags, SV* sv) | |
51371543 | 2019 | { |
954c1994 | 2020 | return ((CPerlObj*)pPerl)->Perl_newPADOP(type, flags, sv); |
51371543 GS |
2021 | } |
2022 | ||
954c1994 GS |
2023 | #undef Perl_newPMOP |
2024 | OP* | |
2025 | Perl_newPMOP(pTHXo_ I32 type, I32 flags) | |
51371543 | 2026 | { |
954c1994 | 2027 | return ((CPerlObj*)pPerl)->Perl_newPMOP(type, flags); |
51371543 GS |
2028 | } |
2029 | ||
954c1994 GS |
2030 | #undef Perl_newPVOP |
2031 | OP* | |
2032 | Perl_newPVOP(pTHXo_ I32 type, I32 flags, char* pv) | |
51371543 | 2033 | { |
954c1994 | 2034 | return ((CPerlObj*)pPerl)->Perl_newPVOP(type, flags, pv); |
51371543 GS |
2035 | } |
2036 | ||
954c1994 GS |
2037 | #undef Perl_newRV |
2038 | SV* | |
2039 | Perl_newRV(pTHXo_ SV* pref) | |
51371543 | 2040 | { |
954c1994 | 2041 | return ((CPerlObj*)pPerl)->Perl_newRV(pref); |
51371543 GS |
2042 | } |
2043 | ||
954c1994 GS |
2044 | #undef Perl_newRV_noinc |
2045 | SV* | |
2046 | Perl_newRV_noinc(pTHXo_ SV *sv) | |
51371543 | 2047 | { |
954c1994 | 2048 | return ((CPerlObj*)pPerl)->Perl_newRV_noinc(sv); |
51371543 GS |
2049 | } |
2050 | ||
954c1994 GS |
2051 | #undef Perl_newSV |
2052 | SV* | |
2053 | Perl_newSV(pTHXo_ STRLEN len) | |
51371543 | 2054 | { |
954c1994 | 2055 | return ((CPerlObj*)pPerl)->Perl_newSV(len); |
51371543 GS |
2056 | } |
2057 | ||
954c1994 GS |
2058 | #undef Perl_newSVREF |
2059 | OP* | |
2060 | Perl_newSVREF(pTHXo_ OP* o) | |
51371543 | 2061 | { |
954c1994 | 2062 | return ((CPerlObj*)pPerl)->Perl_newSVREF(o); |
51371543 GS |
2063 | } |
2064 | ||
954c1994 GS |
2065 | #undef Perl_newSVOP |
2066 | OP* | |
2067 | Perl_newSVOP(pTHXo_ I32 type, I32 flags, SV* sv) | |
51371543 | 2068 | { |
954c1994 | 2069 | return ((CPerlObj*)pPerl)->Perl_newSVOP(type, flags, sv); |
51371543 GS |
2070 | } |
2071 | ||
954c1994 GS |
2072 | #undef Perl_newSViv |
2073 | SV* | |
2074 | Perl_newSViv(pTHXo_ IV i) | |
51371543 | 2075 | { |
954c1994 | 2076 | return ((CPerlObj*)pPerl)->Perl_newSViv(i); |
51371543 GS |
2077 | } |
2078 | ||
1a3327fb JH |
2079 | #undef Perl_newSVuv |
2080 | SV* | |
2081 | Perl_newSVuv(pTHXo_ UV u) | |
2082 | { | |
2083 | return ((CPerlObj*)pPerl)->Perl_newSVuv(u); | |
2084 | } | |
2085 | ||
954c1994 GS |
2086 | #undef Perl_newSVnv |
2087 | SV* | |
2088 | Perl_newSVnv(pTHXo_ NV n) | |
51371543 | 2089 | { |
954c1994 | 2090 | return ((CPerlObj*)pPerl)->Perl_newSVnv(n); |
51371543 GS |
2091 | } |
2092 | ||
954c1994 GS |
2093 | #undef Perl_newSVpv |
2094 | SV* | |
2095 | Perl_newSVpv(pTHXo_ const char* s, STRLEN len) | |
51371543 | 2096 | { |
954c1994 | 2097 | return ((CPerlObj*)pPerl)->Perl_newSVpv(s, len); |
51371543 GS |
2098 | } |
2099 | ||
954c1994 GS |
2100 | #undef Perl_newSVpvn |
2101 | SV* | |
2102 | Perl_newSVpvn(pTHXo_ const char* s, STRLEN len) | |
51371543 | 2103 | { |
954c1994 | 2104 | return ((CPerlObj*)pPerl)->Perl_newSVpvn(s, len); |
51371543 GS |
2105 | } |
2106 | ||
1c846c1f NIS |
2107 | #undef Perl_newSVpvn_share |
2108 | SV* | |
ae154d6d | 2109 | Perl_newSVpvn_share(pTHXo_ const char* s, I32 len, U32 hash) |
1c846c1f NIS |
2110 | { |
2111 | return ((CPerlObj*)pPerl)->Perl_newSVpvn_share(s, len, hash); | |
2112 | } | |
2113 | ||
954c1994 GS |
2114 | #undef Perl_newSVpvf |
2115 | SV* | |
2116 | Perl_newSVpvf(pTHXo_ const char* pat, ...) | |
51371543 | 2117 | { |
954c1994 GS |
2118 | SV* retval; |
2119 | va_list args; | |
2120 | va_start(args, pat); | |
2121 | retval = ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, &args); | |
2122 | va_end(args); | |
2123 | return retval; | |
51371543 | 2124 | |
51371543 GS |
2125 | } |
2126 | ||
954c1994 GS |
2127 | #undef Perl_vnewSVpvf |
2128 | SV* | |
2129 | Perl_vnewSVpvf(pTHXo_ const char* pat, va_list* args) | |
51371543 | 2130 | { |
954c1994 | 2131 | return ((CPerlObj*)pPerl)->Perl_vnewSVpvf(pat, args); |
51371543 GS |
2132 | } |
2133 | ||
954c1994 GS |
2134 | #undef Perl_newSVrv |
2135 | SV* | |
2136 | Perl_newSVrv(pTHXo_ SV* rv, const char* classname) | |
51371543 | 2137 | { |
954c1994 | 2138 | return ((CPerlObj*)pPerl)->Perl_newSVrv(rv, classname); |
51371543 GS |
2139 | } |
2140 | ||
954c1994 GS |
2141 | #undef Perl_newSVsv |
2142 | SV* | |
2143 | Perl_newSVsv(pTHXo_ SV* old) | |
51371543 | 2144 | { |
954c1994 | 2145 | return ((CPerlObj*)pPerl)->Perl_newSVsv(old); |
51371543 GS |
2146 | } |
2147 | ||
954c1994 GS |
2148 | #undef Perl_newUNOP |
2149 | OP* | |
2150 | Perl_newUNOP(pTHXo_ I32 type, I32 flags, OP* first) | |
51371543 | 2151 | { |
954c1994 | 2152 | return ((CPerlObj*)pPerl)->Perl_newUNOP(type, flags, first); |
51371543 GS |
2153 | } |
2154 | ||
954c1994 GS |
2155 | #undef Perl_newWHILEOP |
2156 | OP* | |
2157 | Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont) | |
51371543 | 2158 | { |
954c1994 | 2159 | return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont); |
51371543 GS |
2160 | } |
2161 | ||
1be9d9c6 GS |
2162 | #undef Perl_new_stackinfo |
2163 | PERL_SI* | |
2164 | Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems) | |
2165 | { | |
2166 | return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems); | |
2167 | } | |
2168 | ||
954c1994 GS |
2169 | #undef Perl_ninstr |
2170 | char* | |
2171 | Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend) | |
51371543 | 2172 | { |
954c1994 | 2173 | return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend); |
51371543 | 2174 | } |
1be9d9c6 GS |
2175 | |
2176 | #undef Perl_op_free | |
2177 | void | |
2178 | Perl_op_free(pTHXo_ OP* arg) | |
2179 | { | |
2180 | ((CPerlObj*)pPerl)->Perl_op_free(arg); | |
2181 | } | |
2182 | ||
2183 | #undef Perl_pad_sv | |
2184 | SV* | |
2185 | Perl_pad_sv(pTHXo_ PADOFFSET po) | |
2186 | { | |
2187 | return ((CPerlObj*)pPerl)->Perl_pad_sv(po); | |
2188 | } | |
954c1994 | 2189 | #if defined(PERL_OBJECT) |
51371543 | 2190 | |
954c1994 GS |
2191 | #undef Perl_construct |
2192 | void | |
2193 | Perl_construct(pTHXo) | |
51371543 | 2194 | { |
954c1994 | 2195 | ((CPerlObj*)pPerl)->Perl_construct(); |
51371543 GS |
2196 | } |
2197 | ||
954c1994 GS |
2198 | #undef Perl_destruct |
2199 | void | |
2200 | Perl_destruct(pTHXo) | |
51371543 | 2201 | { |
954c1994 | 2202 | ((CPerlObj*)pPerl)->Perl_destruct(); |
51371543 GS |
2203 | } |
2204 | ||
954c1994 GS |
2205 | #undef Perl_free |
2206 | void | |
2207 | Perl_free(pTHXo) | |
51371543 | 2208 | { |
954c1994 | 2209 | ((CPerlObj*)pPerl)->Perl_free(); |
51371543 GS |
2210 | } |
2211 | ||
954c1994 GS |
2212 | #undef Perl_run |
2213 | int | |
2214 | Perl_run(pTHXo) | |
51371543 | 2215 | { |
954c1994 | 2216 | return ((CPerlObj*)pPerl)->Perl_run(); |
51371543 GS |
2217 | } |
2218 | ||
954c1994 GS |
2219 | #undef Perl_parse |
2220 | int | |
2221 | Perl_parse(pTHXo_ XSINIT_t xsinit, int argc, char** argv, char** env) | |
51371543 | 2222 | { |
954c1994 | 2223 | return ((CPerlObj*)pPerl)->Perl_parse(xsinit, argc, argv, env); |
51371543 | 2224 | } |
954c1994 GS |
2225 | #endif |
2226 | #if defined(USE_THREADS) | |
51371543 | 2227 | |
954c1994 GS |
2228 | #undef Perl_new_struct_thread |
2229 | struct perl_thread* | |
2230 | Perl_new_struct_thread(pTHXo_ struct perl_thread *t) | |
51371543 | 2231 | { |
954c1994 | 2232 | return ((CPerlObj*)pPerl)->Perl_new_struct_thread(t); |
51371543 | 2233 | } |
954c1994 | 2234 | #endif |
51371543 | 2235 | |
954c1994 GS |
2236 | #undef Perl_call_atexit |
2237 | void | |
2238 | Perl_call_atexit(pTHXo_ ATEXIT_t fn, void *ptr) | |
51371543 | 2239 | { |
954c1994 | 2240 | ((CPerlObj*)pPerl)->Perl_call_atexit(fn, ptr); |
51371543 GS |
2241 | } |
2242 | ||
954c1994 GS |
2243 | #undef Perl_call_argv |
2244 | I32 | |
2245 | Perl_call_argv(pTHXo_ const char* sub_name, I32 flags, char** argv) | |
51371543 | 2246 | { |
954c1994 | 2247 | return ((CPerlObj*)pPerl)->Perl_call_argv(sub_name, flags, argv); |
51371543 GS |
2248 | } |
2249 | ||
954c1994 GS |
2250 | #undef Perl_call_method |
2251 | I32 | |
2252 | Perl_call_method(pTHXo_ const char* methname, I32 flags) | |
51371543 | 2253 | { |
954c1994 | 2254 | return ((CPerlObj*)pPerl)->Perl_call_method(methname, flags); |
51371543 GS |
2255 | } |
2256 | ||
954c1994 GS |
2257 | #undef Perl_call_pv |
2258 | I32 | |
2259 | Perl_call_pv(pTHXo_ const char* sub_name, I32 flags) | |
51371543 | 2260 | { |
954c1994 | 2261 | return ((CPerlObj*)pPerl)->Perl_call_pv(sub_name, flags); |
51371543 GS |
2262 | } |
2263 | ||
954c1994 GS |
2264 | #undef Perl_call_sv |
2265 | I32 | |
2266 | Perl_call_sv(pTHXo_ SV* sv, I32 flags) | |
51371543 | 2267 | { |
954c1994 | 2268 | return ((CPerlObj*)pPerl)->Perl_call_sv(sv, flags); |
51371543 GS |
2269 | } |
2270 | ||
954c1994 GS |
2271 | #undef Perl_eval_pv |
2272 | SV* | |
2273 | Perl_eval_pv(pTHXo_ const char* p, I32 croak_on_error) | |
51371543 | 2274 | { |
954c1994 | 2275 | return ((CPerlObj*)pPerl)->Perl_eval_pv(p, croak_on_error); |
51371543 GS |
2276 | } |
2277 | ||
954c1994 GS |
2278 | #undef Perl_eval_sv |
2279 | I32 | |
2280 | Perl_eval_sv(pTHXo_ SV* sv, I32 flags) | |
51371543 | 2281 | { |
954c1994 | 2282 | return ((CPerlObj*)pPerl)->Perl_eval_sv(sv, flags); |
51371543 GS |
2283 | } |
2284 | ||
954c1994 GS |
2285 | #undef Perl_get_sv |
2286 | SV* | |
2287 | Perl_get_sv(pTHXo_ const char* name, I32 create) | |
51371543 | 2288 | { |
954c1994 | 2289 | return ((CPerlObj*)pPerl)->Perl_get_sv(name, create); |
51371543 GS |
2290 | } |
2291 | ||
954c1994 GS |
2292 | #undef Perl_get_av |
2293 | AV* | |
2294 | Perl_get_av(pTHXo_ const char* name, I32 create) | |
51371543 | 2295 | { |
954c1994 | 2296 | return ((CPerlObj*)pPerl)->Perl_get_av(name, create); |
51371543 GS |
2297 | } |
2298 | ||
954c1994 GS |
2299 | #undef Perl_get_hv |
2300 | HV* | |
2301 | Perl_get_hv(pTHXo_ const char* name, I32 create) | |
51371543 | 2302 | { |
954c1994 | 2303 | return ((CPerlObj*)pPerl)->Perl_get_hv(name, create); |
51371543 GS |
2304 | } |
2305 | ||
954c1994 GS |
2306 | #undef Perl_get_cv |
2307 | CV* | |
2308 | Perl_get_cv(pTHXo_ const char* name, I32 create) | |
51371543 | 2309 | { |
954c1994 | 2310 | return ((CPerlObj*)pPerl)->Perl_get_cv(name, create); |
51371543 GS |
2311 | } |
2312 | ||
1be9d9c6 GS |
2313 | #undef Perl_init_i18nl10n |
2314 | int | |
2315 | Perl_init_i18nl10n(pTHXo_ int printwarn) | |
2316 | { | |
2317 | return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn); | |
2318 | } | |
2319 | ||
2320 | #undef Perl_init_i18nl14n | |
2321 | int | |
2322 | Perl_init_i18nl14n(pTHXo_ int printwarn) | |
2323 | { | |
2324 | return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn); | |
2325 | } | |
2326 | ||
954c1994 GS |
2327 | #undef Perl_new_collate |
2328 | void | |
6ac94dd7 | 2329 | Perl_new_collate(pTHXo_ char* newcoll) |
51371543 | 2330 | { |
954c1994 | 2331 | ((CPerlObj*)pPerl)->Perl_new_collate(newcoll); |
51371543 GS |
2332 | } |
2333 | ||
954c1994 GS |
2334 | #undef Perl_new_ctype |
2335 | void | |
6ac94dd7 | 2336 | Perl_new_ctype(pTHXo_ char* newctype) |
51371543 | 2337 | { |
954c1994 | 2338 | ((CPerlObj*)pPerl)->Perl_new_ctype(newctype); |
51371543 GS |
2339 | } |
2340 | ||
954c1994 GS |
2341 | #undef Perl_new_numeric |
2342 | void | |
6ac94dd7 | 2343 | Perl_new_numeric(pTHXo_ char* newcoll) |
51371543 | 2344 | { |
954c1994 | 2345 | ((CPerlObj*)pPerl)->Perl_new_numeric(newcoll); |
51371543 GS |
2346 | } |
2347 | ||
954c1994 GS |
2348 | #undef Perl_set_numeric_local |
2349 | void | |
2350 | Perl_set_numeric_local(pTHXo) | |
51371543 | 2351 | { |
954c1994 | 2352 | ((CPerlObj*)pPerl)->Perl_set_numeric_local(); |
51371543 GS |
2353 | } |
2354 | ||
954c1994 GS |
2355 | #undef Perl_set_numeric_radix |
2356 | void | |
2357 | Perl_set_numeric_radix(pTHXo) | |
51371543 | 2358 | { |
954c1994 | 2359 | ((CPerlObj*)pPerl)->Perl_set_numeric_radix(); |
51371543 GS |
2360 | } |
2361 | ||
954c1994 GS |
2362 | #undef Perl_set_numeric_standard |
2363 | void | |
2364 | Perl_set_numeric_standard(pTHXo) | |
51371543 | 2365 | { |
954c1994 | 2366 | ((CPerlObj*)pPerl)->Perl_set_numeric_standard(); |
51371543 GS |
2367 | } |
2368 | ||
954c1994 GS |
2369 | #undef Perl_require_pv |
2370 | void | |
2371 | Perl_require_pv(pTHXo_ const char* pv) | |
51371543 | 2372 | { |
954c1994 | 2373 | ((CPerlObj*)pPerl)->Perl_require_pv(pv); |
51371543 GS |
2374 | } |
2375 | ||
1be9d9c6 GS |
2376 | #undef Perl_pmflag |
2377 | void | |
2378 | Perl_pmflag(pTHXo_ U16* pmfl, int ch) | |
2379 | { | |
2380 | ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch); | |
2381 | } | |
2382 | ||
954c1994 GS |
2383 | #undef Perl_pop_scope |
2384 | void | |
2385 | Perl_pop_scope(pTHXo) | |
51371543 | 2386 | { |
954c1994 | 2387 | ((CPerlObj*)pPerl)->Perl_pop_scope(); |
51371543 GS |
2388 | } |
2389 | ||
954c1994 GS |
2390 | #undef Perl_push_scope |
2391 | void | |
2392 | Perl_push_scope(pTHXo) | |
51371543 | 2393 | { |
954c1994 | 2394 | ((CPerlObj*)pPerl)->Perl_push_scope(); |
51371543 GS |
2395 | } |
2396 | ||
954c1994 GS |
2397 | #undef Perl_regdump |
2398 | void | |
2399 | Perl_regdump(pTHXo_ regexp* r) | |
51371543 | 2400 | { |
954c1994 | 2401 | ((CPerlObj*)pPerl)->Perl_regdump(r); |
51371543 GS |
2402 | } |
2403 | ||
7ea3cd40 NIS |
2404 | #undef Perl_regclass_swash |
2405 | SV* | |
2406 | Perl_regclass_swash(pTHXo_ struct regnode *n, bool doinit, SV **initsvp) | |
2407 | { | |
2408 | return ((CPerlObj*)pPerl)->Perl_regclass_swash(n, doinit, initsvp); | |
2409 | } | |
2410 | ||
a86f0dc9 GS |
2411 | #undef Perl_pregexec |
2412 | I32 | |
2413 | Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave) | |
2414 | { | |
2415 | return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave); | |
2416 | } | |
2417 | ||
1be9d9c6 GS |
2418 | #undef Perl_pregfree |
2419 | void | |
2420 | Perl_pregfree(pTHXo_ struct regexp* r) | |
2421 | { | |
2422 | ((CPerlObj*)pPerl)->Perl_pregfree(r); | |
2423 | } | |
2424 | ||
2425 | #undef Perl_pregcomp | |
2426 | regexp* | |
2427 | Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm) | |
2428 | { | |
2429 | return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm); | |
2430 | } | |
2431 | ||
2432 | #undef Perl_re_intuit_start | |
2433 | char* | |
2434 | Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data) | |
2435 | { | |
2436 | return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data); | |
2437 | } | |
2438 | ||
2439 | #undef Perl_re_intuit_string | |
2440 | SV* | |
2441 | Perl_re_intuit_string(pTHXo_ regexp* prog) | |
2442 | { | |
2443 | return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog); | |
2444 | } | |
2445 | ||
2446 | #undef Perl_regexec_flags | |
2447 | I32 | |
2448 | Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags) | |
2449 | { | |
2450 | return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags); | |
2451 | } | |
2452 | ||
2453 | #undef Perl_regnext | |
2454 | regnode* | |
2455 | Perl_regnext(pTHXo_ regnode* p) | |
2456 | { | |
2457 | return ((CPerlObj*)pPerl)->Perl_regnext(p); | |
2458 | } | |
2459 | ||
2460 | #undef Perl_repeatcpy | |
2461 | void | |
2462 | Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count) | |
2463 | { | |
2464 | ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count); | |
2465 | } | |
2466 | ||
954c1994 GS |
2467 | #undef Perl_rninstr |
2468 | char* | |
2469 | Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend) | |
51371543 | 2470 | { |
954c1994 | 2471 | return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend); |
51371543 | 2472 | } |
412d7f2a GS |
2473 | |
2474 | #undef Perl_rsignal | |
2475 | Sighandler_t | |
2476 | Perl_rsignal(pTHXo_ int i, Sighandler_t t) | |
2477 | { | |
2478 | return ((CPerlObj*)pPerl)->Perl_rsignal(i, t); | |
2479 | } | |
c9242e48 JH |
2480 | |
2481 | #undef Perl_rsignal_state | |
2482 | Sighandler_t | |
2483 | Perl_rsignal_state(pTHXo_ int i) | |
2484 | { | |
2485 | return ((CPerlObj*)pPerl)->Perl_rsignal_state(i); | |
2486 | } | |
954c1994 GS |
2487 | #if !defined(HAS_RENAME) |
2488 | #endif | |
51371543 | 2489 | |
954c1994 GS |
2490 | #undef Perl_savepv |
2491 | char* | |
2492 | Perl_savepv(pTHXo_ const char* sv) | |
51371543 | 2493 | { |
954c1994 | 2494 | return ((CPerlObj*)pPerl)->Perl_savepv(sv); |
51371543 GS |
2495 | } |
2496 | ||
954c1994 GS |
2497 | #undef Perl_savepvn |
2498 | char* | |
2499 | Perl_savepvn(pTHXo_ const char* sv, I32 len) | |
51371543 | 2500 | { |
954c1994 | 2501 | return ((CPerlObj*)pPerl)->Perl_savepvn(sv, len); |
51371543 GS |
2502 | } |
2503 | ||
954c1994 GS |
2504 | #undef Perl_savestack_grow |
2505 | void | |
2506 | Perl_savestack_grow(pTHXo) | |
51371543 | 2507 | { |
954c1994 | 2508 | ((CPerlObj*)pPerl)->Perl_savestack_grow(); |
51371543 GS |
2509 | } |
2510 | ||
954c1994 GS |
2511 | #undef Perl_save_aelem |
2512 | void | |
2513 | Perl_save_aelem(pTHXo_ AV* av, I32 idx, SV **sptr) | |
51371543 | 2514 | { |
954c1994 | 2515 | ((CPerlObj*)pPerl)->Perl_save_aelem(av, idx, sptr); |
51371543 GS |
2516 | } |
2517 | ||
954c1994 GS |
2518 | #undef Perl_save_alloc |
2519 | I32 | |
2520 | Perl_save_alloc(pTHXo_ I32 size, I32 pad) | |
51371543 | 2521 | { |
954c1994 | 2522 | return ((CPerlObj*)pPerl)->Perl_save_alloc(size, pad); |
51371543 GS |
2523 | } |
2524 | ||
954c1994 GS |
2525 | #undef Perl_save_aptr |
2526 | void | |
2527 | Perl_save_aptr(pTHXo_ AV** aptr) | |
51371543 | 2528 | { |
954c1994 | 2529 | ((CPerlObj*)pPerl)->Perl_save_aptr(aptr); |
51371543 GS |
2530 | } |
2531 | ||
954c1994 GS |
2532 | #undef Perl_save_ary |
2533 | AV* | |
2534 | Perl_save_ary(pTHXo_ GV* gv) | |
51371543 | 2535 | { |
954c1994 | 2536 | return ((CPerlObj*)pPerl)->Perl_save_ary(gv); |
51371543 GS |
2537 | } |
2538 | ||
954c1994 GS |
2539 | #undef Perl_save_clearsv |
2540 | void | |
2541 | Perl_save_clearsv(pTHXo_ SV** svp) | |
51371543 | 2542 | { |
954c1994 | 2543 | ((CPerlObj*)pPerl)->Perl_save_clearsv(svp); |
51371543 GS |
2544 | } |
2545 | ||
954c1994 GS |
2546 | #undef Perl_save_delete |
2547 | void | |
2548 | Perl_save_delete(pTHXo_ HV* hv, char* key, I32 klen) | |
51371543 | 2549 | { |
954c1994 | 2550 | ((CPerlObj*)pPerl)->Perl_save_delete(hv, key, klen); |
51371543 GS |
2551 | } |
2552 | ||
954c1994 GS |
2553 | #undef Perl_save_destructor |
2554 | void | |
2555 | Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p) | |
51371543 | 2556 | { |
954c1994 | 2557 | ((CPerlObj*)pPerl)->Perl_save_destructor(f, p); |
51371543 GS |
2558 | } |
2559 | ||
954c1994 GS |
2560 | #undef Perl_save_destructor_x |
2561 | void | |
2562 | Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p) | |
51371543 | 2563 | { |
954c1994 | 2564 | ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p); |
51371543 GS |
2565 | } |
2566 | ||
954c1994 GS |
2567 | #undef Perl_save_freesv |
2568 | void | |
2569 | Perl_save_freesv(pTHXo_ SV* sv) | |
51371543 | 2570 | { |
954c1994 | 2571 | ((CPerlObj*)pPerl)->Perl_save_freesv(sv); |
51371543 GS |
2572 | } |
2573 | ||
954c1994 GS |
2574 | #undef Perl_save_freepv |
2575 | void | |
2576 | Perl_save_freepv(pTHXo_ char* pv) | |
51371543 | 2577 | { |
954c1994 | 2578 | ((CPerlObj*)pPerl)->Perl_save_freepv(pv); |
51371543 GS |
2579 | } |
2580 | ||
954c1994 GS |
2581 | #undef Perl_save_generic_svref |
2582 | void | |
2583 | Perl_save_generic_svref(pTHXo_ SV** sptr) | |
51371543 | 2584 | { |
954c1994 | 2585 | ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr); |
51371543 GS |
2586 | } |
2587 | ||
f4dd75d9 GS |
2588 | #undef Perl_save_generic_pvref |
2589 | void | |
2590 | Perl_save_generic_pvref(pTHXo_ char** str) | |
2591 | { | |
2592 | ((CPerlObj*)pPerl)->Perl_save_generic_pvref(str); | |
2593 | } | |
2594 | ||
954c1994 GS |
2595 | #undef Perl_save_gp |
2596 | void | |
2597 | Perl_save_gp(pTHXo_ GV* gv, I32 empty) | |
51371543 | 2598 | { |
954c1994 | 2599 | ((CPerlObj*)pPerl)->Perl_save_gp(gv, empty); |
51371543 GS |
2600 | } |
2601 | ||
954c1994 GS |
2602 | #undef Perl_save_hash |
2603 | HV* | |
2604 | Perl_save_hash(pTHXo_ GV* gv) | |
51371543 | 2605 | { |
954c1994 | 2606 | return ((CPerlObj*)pPerl)->Perl_save_hash(gv); |
51371543 GS |
2607 | } |
2608 | ||
954c1994 GS |
2609 | #undef Perl_save_helem |
2610 | void | |
2611 | Perl_save_helem(pTHXo_ HV* hv, SV *key, SV **sptr) | |
51371543 | 2612 | { |
954c1994 | 2613 | ((CPerlObj*)pPerl)->Perl_save_helem(hv, key, sptr); |
51371543 GS |
2614 | } |
2615 | ||
954c1994 GS |
2616 | #undef Perl_save_hints |
2617 | void | |
2618 | Perl_save_hints(pTHXo) | |
51371543 | 2619 | { |
954c1994 | 2620 | ((CPerlObj*)pPerl)->Perl_save_hints(); |
51371543 GS |
2621 | } |
2622 | ||
954c1994 GS |
2623 | #undef Perl_save_hptr |
2624 | void | |
2625 | Perl_save_hptr(pTHXo_ HV** hptr) | |
51371543 | 2626 | { |
954c1994 | 2627 | ((CPerlObj*)pPerl)->Perl_save_hptr(hptr); |
51371543 GS |
2628 | } |
2629 | ||
954c1994 GS |
2630 | #undef Perl_save_I16 |
2631 | void | |
2632 | Perl_save_I16(pTHXo_ I16* intp) | |
51371543 | 2633 | { |
954c1994 | 2634 | ((CPerlObj*)pPerl)->Perl_save_I16(intp); |
51371543 GS |
2635 | } |
2636 | ||
954c1994 GS |
2637 | #undef Perl_save_I32 |
2638 | void | |
2639 | Perl_save_I32(pTHXo_ I32* intp) | |
51371543 | 2640 | { |
954c1994 | 2641 | ((CPerlObj*)pPerl)->Perl_save_I32(intp); |
51371543 GS |
2642 | } |
2643 | ||
954c1994 GS |
2644 | #undef Perl_save_I8 |
2645 | void | |
2646 | Perl_save_I8(pTHXo_ I8* bytep) | |
cd06dffe | 2647 | { |
954c1994 | 2648 | ((CPerlObj*)pPerl)->Perl_save_I8(bytep); |
cd06dffe GS |
2649 | } |
2650 | ||
954c1994 GS |
2651 | #undef Perl_save_int |
2652 | void | |
2653 | Perl_save_int(pTHXo_ int* intp) | |
51371543 | 2654 | { |
954c1994 | 2655 | ((CPerlObj*)pPerl)->Perl_save_int(intp); |
51371543 GS |
2656 | } |
2657 | ||
954c1994 GS |
2658 | #undef Perl_save_item |
2659 | void | |
2660 | Perl_save_item(pTHXo_ SV* item) | |
51371543 | 2661 | { |
954c1994 | 2662 | ((CPerlObj*)pPerl)->Perl_save_item(item); |
51371543 GS |
2663 | } |
2664 | ||
954c1994 GS |
2665 | #undef Perl_save_iv |
2666 | void | |
2667 | Perl_save_iv(pTHXo_ IV* iv) | |
51371543 | 2668 | { |
954c1994 | 2669 | ((CPerlObj*)pPerl)->Perl_save_iv(iv); |
51371543 GS |
2670 | } |
2671 | ||
954c1994 GS |
2672 | #undef Perl_save_list |
2673 | void | |
2674 | Perl_save_list(pTHXo_ SV** sarg, I32 maxsarg) | |
51371543 | 2675 | { |
954c1994 | 2676 | ((CPerlObj*)pPerl)->Perl_save_list(sarg, maxsarg); |
51371543 GS |
2677 | } |
2678 | ||
954c1994 GS |
2679 | #undef Perl_save_long |
2680 | void | |
2681 | Perl_save_long(pTHXo_ long* longp) | |
51371543 | 2682 | { |
954c1994 | 2683 | ((CPerlObj*)pPerl)->Perl_save_long(longp); |
51371543 GS |
2684 | } |
2685 | ||
26d9b02f JH |
2686 | #undef Perl_save_mortalizesv |
2687 | void | |
2688 | Perl_save_mortalizesv(pTHXo_ SV* sv) | |
2689 | { | |
2690 | ((CPerlObj*)pPerl)->Perl_save_mortalizesv(sv); | |
2691 | } | |
2692 | ||
954c1994 GS |
2693 | #undef Perl_save_nogv |
2694 | void | |
2695 | Perl_save_nogv(pTHXo_ GV* gv) | |
51371543 | 2696 | { |
954c1994 | 2697 | ((CPerlObj*)pPerl)->Perl_save_nogv(gv); |
51371543 GS |
2698 | } |
2699 | ||
954c1994 GS |
2700 | #undef Perl_save_scalar |
2701 | SV* | |
2702 | Perl_save_scalar(pTHXo_ GV* gv) | |
51371543 | 2703 | { |
954c1994 | 2704 | return ((CPerlObj*)pPerl)->Perl_save_scalar(gv); |
51371543 GS |
2705 | } |
2706 | ||
954c1994 GS |
2707 | #undef Perl_save_pptr |
2708 | void | |
2709 | Perl_save_pptr(pTHXo_ char** pptr) | |
51371543 | 2710 | { |
954c1994 | 2711 | ((CPerlObj*)pPerl)->Perl_save_pptr(pptr); |
51371543 GS |
2712 | } |
2713 | ||
954c1994 GS |
2714 | #undef Perl_save_vptr |
2715 | void | |
2716 | Perl_save_vptr(pTHXo_ void* pptr) | |
51371543 | 2717 | { |
954c1994 | 2718 | ((CPerlObj*)pPerl)->Perl_save_vptr(pptr); |
51371543 GS |
2719 | } |
2720 | ||
954c1994 GS |
2721 | #undef Perl_save_re_context |
2722 | void | |
2723 | Perl_save_re_context(pTHXo) | |
51371543 | 2724 | { |
954c1994 | 2725 | ((CPerlObj*)pPerl)->Perl_save_re_context(); |
51371543 GS |
2726 | } |
2727 | ||
c3564e5c GS |
2728 | #undef Perl_save_padsv |
2729 | void | |
2730 | Perl_save_padsv(pTHXo_ PADOFFSET off) | |
2731 | { | |
2732 | ((CPerlObj*)pPerl)->Perl_save_padsv(off); | |
2733 | } | |
2734 | ||
954c1994 GS |
2735 | #undef Perl_save_sptr |
2736 | void | |
2737 | Perl_save_sptr(pTHXo_ SV** sptr) | |
51371543 | 2738 | { |
954c1994 | 2739 | ((CPerlObj*)pPerl)->Perl_save_sptr(sptr); |
51371543 GS |
2740 | } |
2741 | ||
954c1994 GS |
2742 | #undef Perl_save_svref |
2743 | SV* | |
2744 | Perl_save_svref(pTHXo_ SV** sptr) | |
51371543 | 2745 | { |
954c1994 | 2746 | return ((CPerlObj*)pPerl)->Perl_save_svref(sptr); |
51371543 GS |
2747 | } |
2748 | ||
954c1994 GS |
2749 | #undef Perl_save_threadsv |
2750 | SV** | |
2751 | Perl_save_threadsv(pTHXo_ PADOFFSET i) | |
51371543 | 2752 | { |
954c1994 | 2753 | return ((CPerlObj*)pPerl)->Perl_save_threadsv(i); |
51371543 | 2754 | } |
1be9d9c6 GS |
2755 | |
2756 | #undef Perl_scan_bin | |
2757 | NV | |
ba210ebe | 2758 | Perl_scan_bin(pTHXo_ char* start, STRLEN len, STRLEN* retlen) |
1be9d9c6 GS |
2759 | { |
2760 | return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen); | |
2761 | } | |
2762 | ||
2763 | #undef Perl_scan_hex | |
2764 | NV | |
ba210ebe | 2765 | Perl_scan_hex(pTHXo_ char* start, STRLEN len, STRLEN* retlen) |
1be9d9c6 GS |
2766 | { |
2767 | return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen); | |
2768 | } | |
2769 | ||
2770 | #undef Perl_scan_num | |
2771 | char* | |
b73d6f50 | 2772 | Perl_scan_num(pTHXo_ char* s, YYSTYPE *lvalp) |
1be9d9c6 | 2773 | { |
b73d6f50 | 2774 | return ((CPerlObj*)pPerl)->Perl_scan_num(s, lvalp); |
1be9d9c6 GS |
2775 | } |
2776 | ||
2777 | #undef Perl_scan_oct | |
2778 | NV | |
ba210ebe | 2779 | Perl_scan_oct(pTHXo_ char* start, STRLEN len, STRLEN* retlen) |
1be9d9c6 GS |
2780 | { |
2781 | return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen); | |
2782 | } | |
2783 | ||
2784 | #undef Perl_screaminstr | |
2785 | char* | |
2786 | Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last) | |
2787 | { | |
2788 | return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last); | |
2789 | } | |
954c1994 GS |
2790 | #if !defined(VMS) |
2791 | #endif | |
51371543 | 2792 | |
1be9d9c6 GS |
2793 | #undef Perl_sharepvn |
2794 | char* | |
2795 | Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash) | |
2796 | { | |
2797 | return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash); | |
2798 | } | |
2799 | ||
954c1994 GS |
2800 | #undef Perl_stack_grow |
2801 | SV** | |
2802 | Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n) | |
51371543 | 2803 | { |
954c1994 | 2804 | return ((CPerlObj*)pPerl)->Perl_stack_grow(sp, p, n); |
51371543 GS |
2805 | } |
2806 | ||
954c1994 GS |
2807 | #undef Perl_start_subparse |
2808 | I32 | |
2809 | Perl_start_subparse(pTHXo_ I32 is_format, U32 flags) | |
51371543 | 2810 | { |
954c1994 | 2811 | return ((CPerlObj*)pPerl)->Perl_start_subparse(is_format, flags); |
51371543 GS |
2812 | } |
2813 | ||
954c1994 GS |
2814 | #undef Perl_sv_2bool |
2815 | bool | |
2816 | Perl_sv_2bool(pTHXo_ SV* sv) | |
51371543 | 2817 | { |
954c1994 | 2818 | return ((CPerlObj*)pPerl)->Perl_sv_2bool(sv); |
51371543 GS |
2819 | } |
2820 | ||
954c1994 GS |
2821 | #undef Perl_sv_2cv |
2822 | CV* | |
2823 | Perl_sv_2cv(pTHXo_ SV* sv, HV** st, GV** gvp, I32 lref) | |
51371543 | 2824 | { |
954c1994 | 2825 | return ((CPerlObj*)pPerl)->Perl_sv_2cv(sv, st, gvp, lref); |
51371543 GS |
2826 | } |
2827 | ||
954c1994 GS |
2828 | #undef Perl_sv_2io |
2829 | IO* | |
2830 | Perl_sv_2io(pTHXo_ SV* sv) | |
51371543 | 2831 | { |
954c1994 | 2832 | return ((CPerlObj*)pPerl)->Perl_sv_2io(sv); |
51371543 GS |
2833 | } |
2834 | ||
954c1994 GS |
2835 | #undef Perl_sv_2iv |
2836 | IV | |
2837 | Perl_sv_2iv(pTHXo_ SV* sv) | |
f5d5a27c | 2838 | { |
954c1994 | 2839 | return ((CPerlObj*)pPerl)->Perl_sv_2iv(sv); |
f5d5a27c CS |
2840 | } |
2841 | ||
954c1994 GS |
2842 | #undef Perl_sv_2mortal |
2843 | SV* | |
2844 | Perl_sv_2mortal(pTHXo_ SV* sv) | |
51371543 | 2845 | { |
954c1994 | 2846 | return ((CPerlObj*)pPerl)->Perl_sv_2mortal(sv); |
51371543 GS |
2847 | } |
2848 | ||
954c1994 GS |
2849 | #undef Perl_sv_2nv |
2850 | NV | |
2851 | Perl_sv_2nv(pTHXo_ SV* sv) | |
51371543 | 2852 | { |
954c1994 | 2853 | return ((CPerlObj*)pPerl)->Perl_sv_2nv(sv); |
51371543 GS |
2854 | } |
2855 | ||
954c1994 GS |
2856 | #undef Perl_sv_2pv |
2857 | char* | |
2858 | Perl_sv_2pv(pTHXo_ SV* sv, STRLEN* lp) | |
51371543 | 2859 | { |
954c1994 | 2860 | return ((CPerlObj*)pPerl)->Perl_sv_2pv(sv, lp); |
51371543 GS |
2861 | } |
2862 | ||
954c1994 GS |
2863 | #undef Perl_sv_2pvutf8 |
2864 | char* | |
2865 | Perl_sv_2pvutf8(pTHXo_ SV* sv, STRLEN* lp) | |
51371543 | 2866 | { |
954c1994 | 2867 | return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8(sv, lp); |
51371543 GS |
2868 | } |
2869 | ||
954c1994 GS |
2870 | #undef Perl_sv_2pvbyte |
2871 | char* | |
2872 | Perl_sv_2pvbyte(pTHXo_ SV* sv, STRLEN* lp) | |
51371543 | 2873 | { |
954c1994 | 2874 | return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte(sv, lp); |
51371543 GS |
2875 | } |
2876 | ||
954c1994 GS |
2877 | #undef Perl_sv_2uv |
2878 | UV | |
2879 | Perl_sv_2uv(pTHXo_ SV* sv) | |
51371543 | 2880 | { |
954c1994 | 2881 | return ((CPerlObj*)pPerl)->Perl_sv_2uv(sv); |
51371543 GS |
2882 | } |
2883 | ||
954c1994 GS |
2884 | #undef Perl_sv_iv |
2885 | IV | |
2886 | Perl_sv_iv(pTHXo_ SV* sv) | |
51371543 | 2887 | { |
954c1994 | 2888 | return ((CPerlObj*)pPerl)->Perl_sv_iv(sv); |
51371543 GS |
2889 | } |
2890 | ||
954c1994 GS |
2891 | #undef Perl_sv_uv |
2892 | UV | |
2893 | Perl_sv_uv(pTHXo_ SV* sv) | |
51371543 | 2894 | { |
954c1994 | 2895 | return ((CPerlObj*)pPerl)->Perl_sv_uv(sv); |
51371543 GS |
2896 | } |
2897 | ||
954c1994 GS |
2898 | #undef Perl_sv_nv |
2899 | NV | |
2900 | Perl_sv_nv(pTHXo_ SV* sv) | |
51371543 | 2901 | { |
954c1994 | 2902 | return ((CPerlObj*)pPerl)->Perl_sv_nv(sv); |
51371543 GS |
2903 | } |
2904 | ||
954c1994 GS |
2905 | #undef Perl_sv_pvn |
2906 | char* | |
2907 | Perl_sv_pvn(pTHXo_ SV *sv, STRLEN *len) | |
51371543 | 2908 | { |
954c1994 | 2909 | return ((CPerlObj*)pPerl)->Perl_sv_pvn(sv, len); |
51371543 GS |
2910 | } |
2911 | ||
954c1994 GS |
2912 | #undef Perl_sv_pvutf8n |
2913 | char* | |
2914 | Perl_sv_pvutf8n(pTHXo_ SV *sv, STRLEN *len) | |
51371543 | 2915 | { |
954c1994 | 2916 | return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n(sv, len); |
51371543 GS |
2917 | } |
2918 | ||
954c1994 GS |
2919 | #undef Perl_sv_pvbyten |
2920 | char* | |
2921 | Perl_sv_pvbyten(pTHXo_ SV *sv, STRLEN *len) | |
51371543 | 2922 | { |
954c1994 | 2923 | return ((CPerlObj*)pPerl)->Perl_sv_pvbyten(sv, len); |
51371543 GS |
2924 | } |
2925 | ||
954c1994 GS |
2926 | #undef Perl_sv_true |
2927 | I32 | |
2928 | Perl_sv_true(pTHXo_ SV *sv) | |
51371543 | 2929 | { |
954c1994 | 2930 | return ((CPerlObj*)pPerl)->Perl_sv_true(sv); |
51371543 GS |
2931 | } |
2932 | ||
954c1994 GS |
2933 | #undef Perl_sv_backoff |
2934 | int | |
2935 | Perl_sv_backoff(pTHXo_ SV* sv) | |
51371543 | 2936 | { |
954c1994 | 2937 | return ((CPerlObj*)pPerl)->Perl_sv_backoff(sv); |
51371543 GS |
2938 | } |
2939 | ||
954c1994 GS |
2940 | #undef Perl_sv_bless |
2941 | SV* | |
2942 | Perl_sv_bless(pTHXo_ SV* sv, HV* stash) | |
51371543 | 2943 | { |
954c1994 | 2944 | return ((CPerlObj*)pPerl)->Perl_sv_bless(sv, stash); |
51371543 GS |
2945 | } |
2946 | ||
954c1994 GS |
2947 | #undef Perl_sv_catpvf |
2948 | void | |
2949 | Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat, ...) | |
51371543 | 2950 | { |
954c1994 GS |
2951 | va_list args; |
2952 | va_start(args, pat); | |
2953 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, &args); | |
2954 | va_end(args); | |
51371543 GS |
2955 | } |
2956 | ||
954c1994 GS |
2957 | #undef Perl_sv_vcatpvf |
2958 | void | |
2959 | Perl_sv_vcatpvf(pTHXo_ SV* sv, const char* pat, va_list* args) | |
51371543 | 2960 | { |
954c1994 | 2961 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvf(sv, pat, args); |
51371543 GS |
2962 | } |
2963 | ||
954c1994 GS |
2964 | #undef Perl_sv_catpv |
2965 | void | |
2966 | Perl_sv_catpv(pTHXo_ SV* sv, const char* ptr) | |
51371543 | 2967 | { |
954c1994 | 2968 | ((CPerlObj*)pPerl)->Perl_sv_catpv(sv, ptr); |
51371543 GS |
2969 | } |
2970 | ||
954c1994 GS |
2971 | #undef Perl_sv_catpvn |
2972 | void | |
2973 | Perl_sv_catpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len) | |
51371543 | 2974 | { |
954c1994 | 2975 | ((CPerlObj*)pPerl)->Perl_sv_catpvn(sv, ptr, len); |
51371543 GS |
2976 | } |
2977 | ||
954c1994 GS |
2978 | #undef Perl_sv_catsv |
2979 | void | |
2980 | Perl_sv_catsv(pTHXo_ SV* dsv, SV* ssv) | |
51371543 | 2981 | { |
954c1994 | 2982 | ((CPerlObj*)pPerl)->Perl_sv_catsv(dsv, ssv); |
51371543 GS |
2983 | } |
2984 | ||
954c1994 GS |
2985 | #undef Perl_sv_chop |
2986 | void | |
2987 | Perl_sv_chop(pTHXo_ SV* sv, char* ptr) | |
51371543 | 2988 | { |
954c1994 | 2989 | ((CPerlObj*)pPerl)->Perl_sv_chop(sv, ptr); |
51371543 GS |
2990 | } |
2991 | ||
954c1994 GS |
2992 | #undef Perl_sv_clear |
2993 | void | |
2994 | Perl_sv_clear(pTHXo_ SV* sv) | |
51371543 | 2995 | { |
954c1994 | 2996 | ((CPerlObj*)pPerl)->Perl_sv_clear(sv); |
51371543 GS |
2997 | } |
2998 | ||
954c1994 GS |
2999 | #undef Perl_sv_cmp |
3000 | I32 | |
3001 | Perl_sv_cmp(pTHXo_ SV* sv1, SV* sv2) | |
51371543 | 3002 | { |
954c1994 | 3003 | return ((CPerlObj*)pPerl)->Perl_sv_cmp(sv1, sv2); |
51371543 GS |
3004 | } |
3005 | ||
954c1994 GS |
3006 | #undef Perl_sv_cmp_locale |
3007 | I32 | |
3008 | Perl_sv_cmp_locale(pTHXo_ SV* sv1, SV* sv2) | |
51371543 | 3009 | { |
954c1994 | 3010 | return ((CPerlObj*)pPerl)->Perl_sv_cmp_locale(sv1, sv2); |
51371543 | 3011 | } |
954c1994 | 3012 | #if defined(USE_LOCALE_COLLATE) |
51371543 | 3013 | |
954c1994 GS |
3014 | #undef Perl_sv_collxfrm |
3015 | char* | |
3016 | Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp) | |
51371543 | 3017 | { |
954c1994 | 3018 | return ((CPerlObj*)pPerl)->Perl_sv_collxfrm(sv, nxp); |
51371543 | 3019 | } |
954c1994 | 3020 | #endif |
51371543 | 3021 | |
1be9d9c6 GS |
3022 | #undef Perl_sv_compile_2op |
3023 | OP* | |
3024 | Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp) | |
3025 | { | |
3026 | return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp); | |
3027 | } | |
3028 | ||
89423764 | 3029 | #undef Perl_getcwd_sv |
f22d8e4b | 3030 | int |
89423764 | 3031 | Perl_getcwd_sv(pTHXo_ SV* sv) |
f22d8e4b | 3032 | { |
89423764 | 3033 | return ((CPerlObj*)pPerl)->Perl_getcwd_sv(sv); |
f22d8e4b DM |
3034 | } |
3035 | ||
954c1994 GS |
3036 | #undef Perl_sv_dec |
3037 | void | |
3038 | Perl_sv_dec(pTHXo_ SV* sv) | |
51371543 | 3039 | { |
954c1994 | 3040 | ((CPerlObj*)pPerl)->Perl_sv_dec(sv); |
51371543 GS |
3041 | } |
3042 | ||
954c1994 GS |
3043 | #undef Perl_sv_dump |
3044 | void | |
3045 | Perl_sv_dump(pTHXo_ SV* sv) | |
51371543 | 3046 | { |
954c1994 | 3047 | ((CPerlObj*)pPerl)->Perl_sv_dump(sv); |
51371543 GS |
3048 | } |
3049 | ||
954c1994 GS |
3050 | #undef Perl_sv_derived_from |
3051 | bool | |
3052 | Perl_sv_derived_from(pTHXo_ SV* sv, const char* name) | |
51371543 | 3053 | { |
954c1994 | 3054 | return ((CPerlObj*)pPerl)->Perl_sv_derived_from(sv, name); |
51371543 GS |
3055 | } |
3056 | ||
954c1994 GS |
3057 | #undef Perl_sv_eq |
3058 | I32 | |
3059 | Perl_sv_eq(pTHXo_ SV* sv1, SV* sv2) | |
51371543 | 3060 | { |
954c1994 | 3061 | return ((CPerlObj*)pPerl)->Perl_sv_eq(sv1, sv2); |
51371543 GS |
3062 | } |
3063 | ||
954c1994 GS |
3064 | #undef Perl_sv_free |
3065 | void | |
3066 | Perl_sv_free(pTHXo_ SV* sv) | |
51371543 | 3067 | { |
954c1994 | 3068 | ((CPerlObj*)pPerl)->Perl_sv_free(sv); |
51371543 GS |
3069 | } |
3070 | ||
1be9d9c6 GS |
3071 | #undef Perl_sv_gets |
3072 | char* | |
3073 | Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append) | |
3074 | { | |
3075 | return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append); | |
3076 | } | |
3077 | ||
954c1994 GS |
3078 | #undef Perl_sv_grow |
3079 | char* | |
3080 | Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen) | |
51371543 | 3081 | { |
954c1994 | 3082 | return ((CPerlObj*)pPerl)->Perl_sv_grow(sv, newlen); |
51371543 GS |
3083 | } |
3084 | ||
954c1994 GS |
3085 | #undef Perl_sv_inc |
3086 | void | |
3087 | Perl_sv_inc(pTHXo_ SV* sv) | |
51371543 | 3088 | { |
954c1994 | 3089 | ((CPerlObj*)pPerl)->Perl_sv_inc(sv); |
51371543 GS |
3090 | } |
3091 | ||
954c1994 GS |
3092 | #undef Perl_sv_insert |
3093 | void | |
3094 | Perl_sv_insert(pTHXo_ SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen) | |
51371543 | 3095 | { |
954c1994 | 3096 | ((CPerlObj*)pPerl)->Perl_sv_insert(bigsv, offset, len, little, littlelen); |
51371543 GS |
3097 | } |
3098 | ||
954c1994 GS |
3099 | #undef Perl_sv_isa |
3100 | int | |
3101 | Perl_sv_isa(pTHXo_ SV* sv, const char* name) | |
51371543 | 3102 | { |
954c1994 | 3103 | return ((CPerlObj*)pPerl)->Perl_sv_isa(sv, name); |
51371543 GS |
3104 | } |
3105 | ||
954c1994 GS |
3106 | #undef Perl_sv_isobject |
3107 | int | |
3108 | Perl_sv_isobject(pTHXo_ SV* sv) | |
51371543 | 3109 | { |
954c1994 | 3110 | return ((CPerlObj*)pPerl)->Perl_sv_isobject(sv); |
51371543 GS |
3111 | } |
3112 | ||
954c1994 GS |
3113 | #undef Perl_sv_len |
3114 | STRLEN | |
3115 | Perl_sv_len(pTHXo_ SV* sv) | |
51371543 | 3116 | { |
954c1994 | 3117 | return ((CPerlObj*)pPerl)->Perl_sv_len(sv); |
51371543 GS |
3118 | } |
3119 | ||
954c1994 GS |
3120 | #undef Perl_sv_len_utf8 |
3121 | STRLEN | |
3122 | Perl_sv_len_utf8(pTHXo_ SV* sv) | |
51371543 | 3123 | { |
954c1994 | 3124 | return ((CPerlObj*)pPerl)->Perl_sv_len_utf8(sv); |
51371543 GS |
3125 | } |
3126 | ||
954c1994 GS |
3127 | #undef Perl_sv_magic |
3128 | void | |
3129 | Perl_sv_magic(pTHXo_ SV* sv, SV* obj, int how, const char* name, I32 namlen) | |
51371543 | 3130 | { |
954c1994 | 3131 | ((CPerlObj*)pPerl)->Perl_sv_magic(sv, obj, how, name, namlen); |
51371543 GS |
3132 | } |
3133 | ||
954c1994 GS |
3134 | #undef Perl_sv_mortalcopy |
3135 | SV* | |
3136 | Perl_sv_mortalcopy(pTHXo_ SV* oldsv) | |
51371543 | 3137 | { |
954c1994 | 3138 | return ((CPerlObj*)pPerl)->Perl_sv_mortalcopy(oldsv); |
51371543 GS |
3139 | } |
3140 | ||
954c1994 GS |
3141 | #undef Perl_sv_newmortal |
3142 | SV* | |
3143 | Perl_sv_newmortal(pTHXo) | |
51371543 | 3144 | { |
954c1994 | 3145 | return ((CPerlObj*)pPerl)->Perl_sv_newmortal(); |
51371543 GS |
3146 | } |
3147 | ||
954c1994 GS |
3148 | #undef Perl_sv_newref |
3149 | SV* | |
3150 | Perl_sv_newref(pTHXo_ SV* sv) | |
51371543 | 3151 | { |
954c1994 | 3152 | return ((CPerlObj*)pPerl)->Perl_sv_newref(sv); |
51371543 GS |
3153 | } |
3154 | ||
954c1994 GS |
3155 | #undef Perl_sv_peek |
3156 | char* | |
3157 | Perl_sv_peek(pTHXo_ SV* sv) | |
51371543 | 3158 | { |
954c1994 | 3159 | return ((CPerlObj*)pPerl)->Perl_sv_peek(sv); |
51371543 GS |
3160 | } |
3161 | ||
954c1994 GS |
3162 | #undef Perl_sv_pos_u2b |
3163 | void | |
3164 | Perl_sv_pos_u2b(pTHXo_ SV* sv, I32* offsetp, I32* lenp) | |
51371543 | 3165 | { |
954c1994 | 3166 | ((CPerlObj*)pPerl)->Perl_sv_pos_u2b(sv, offsetp, lenp); |
51371543 GS |
3167 | } |
3168 | ||
954c1994 GS |
3169 | #undef Perl_sv_pos_b2u |
3170 | void | |
3171 | Perl_sv_pos_b2u(pTHXo_ SV* sv, I32* offsetp) | |
51371543 | 3172 | { |
954c1994 | 3173 | ((CPerlObj*)pPerl)->Perl_sv_pos_b2u(sv, offsetp); |
51371543 GS |
3174 | } |
3175 | ||
954c1994 GS |
3176 | #undef Perl_sv_pvn_force |
3177 | char* | |
3178 | Perl_sv_pvn_force(pTHXo_ SV* sv, STRLEN* lp) | |
51371543 | 3179 | { |
954c1994 | 3180 | return ((CPerlObj*)pPerl)->Perl_sv_pvn_force(sv, lp); |
51371543 GS |
3181 | } |
3182 | ||
954c1994 GS |
3183 | #undef Perl_sv_pvutf8n_force |
3184 | char* | |
3185 | Perl_sv_pvutf8n_force(pTHXo_ SV* sv, STRLEN* lp) | |
51371543 | 3186 | { |
954c1994 | 3187 | return ((CPerlObj*)pPerl)->Perl_sv_pvutf8n_force(sv, lp); |
51371543 GS |
3188 | } |
3189 | ||
954c1994 GS |
3190 | #undef Perl_sv_pvbyten_force |
3191 | char* | |
3192 | Perl_sv_pvbyten_force(pTHXo_ SV* sv, STRLEN* lp) | |
51371543 | 3193 | { |
954c1994 | 3194 | return ((CPerlObj*)pPerl)->Perl_sv_pvbyten_force(sv, lp); |
51371543 GS |
3195 | } |
3196 | ||
954c1994 GS |
3197 | #undef Perl_sv_reftype |
3198 | char* | |
3199 | Perl_sv_reftype(pTHXo_ SV* sv, int ob) | |
51371543 | 3200 | { |
954c1994 | 3201 | return ((CPerlObj*)pPerl)->Perl_sv_reftype(sv, ob); |
51371543 GS |
3202 | } |
3203 | ||
954c1994 GS |
3204 | #undef Perl_sv_replace |
3205 | void | |
3206 | Perl_sv_replace(pTHXo_ SV* sv, SV* nsv) | |
51371543 | 3207 | { |
954c1994 | 3208 | ((CPerlObj*)pPerl)->Perl_sv_replace(sv, nsv); |
51371543 GS |
3209 | } |
3210 | ||
954c1994 GS |
3211 | #undef Perl_sv_report_used |
3212 | void | |
3213 | Perl_sv_report_used(pTHXo) | |
51371543 | 3214 | { |
954c1994 | 3215 | ((CPerlObj*)pPerl)->Perl_sv_report_used(); |
51371543 GS |
3216 | } |
3217 | ||
954c1994 GS |
3218 | #undef Perl_sv_reset |
3219 | void | |
3220 | Perl_sv_reset(pTHXo_ char* s, HV* stash) | |
51371543 | 3221 | { |
954c1994 | 3222 | ((CPerlObj*)pPerl)->Perl_sv_reset(s, stash); |
51371543 GS |
3223 | } |
3224 | ||
954c1994 GS |
3225 | #undef Perl_sv_setpvf |
3226 | void | |
3227 | Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat, ...) | |
51371543 | 3228 | { |
954c1994 GS |
3229 | va_list args; |
3230 | va_start(args, pat); | |
3231 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, &args); | |
3232 | va_end(args); | |
51371543 GS |
3233 | } |
3234 | ||
954c1994 GS |
3235 | #undef Perl_sv_vsetpvf |
3236 | void | |
3237 | Perl_sv_vsetpvf(pTHXo_ SV* sv, const char* pat, va_list* args) | |
51371543 | 3238 | { |
954c1994 | 3239 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvf(sv, pat, args); |
51371543 GS |
3240 | } |
3241 | ||
954c1994 GS |
3242 | #undef Perl_sv_setiv |
3243 | void | |
3244 | Perl_sv_setiv(pTHXo_ SV* sv, IV num) | |
51371543 | 3245 | { |
954c1994 | 3246 | ((CPerlObj*)pPerl)->Perl_sv_setiv(sv, num); |
51371543 GS |
3247 | } |
3248 | ||
954c1994 GS |
3249 | #undef Perl_sv_setpviv |
3250 | void | |
3251 | Perl_sv_setpviv(pTHXo_ SV* sv, IV num) | |
51371543 | 3252 | { |
954c1994 | 3253 | ((CPerlObj*)pPerl)->Perl_sv_setpviv(sv, num); |
51371543 GS |
3254 | } |
3255 | ||
954c1994 GS |
3256 | #undef Perl_sv_setuv |
3257 | void | |
3258 | Perl_sv_setuv(pTHXo_ SV* sv, UV num) | |
51371543 | 3259 | { |
954c1994 | 3260 | ((CPerlObj*)pPerl)->Perl_sv_setuv(sv, num); |
51371543 GS |
3261 | } |
3262 | ||
954c1994 GS |
3263 | #undef Perl_sv_setnv |
3264 | void | |
3265 | Perl_sv_setnv(pTHXo_ SV* sv, NV num) | |
51371543 | 3266 | { |
954c1994 | 3267 | ((CPerlObj*)pPerl)->Perl_sv_setnv(sv, num); |
51371543 GS |
3268 | } |
3269 | ||
954c1994 GS |
3270 | #undef Perl_sv_setref_iv |
3271 | SV* | |
3272 | Perl_sv_setref_iv(pTHXo_ SV* rv, const char* classname, IV iv) | |
51371543 | 3273 | { |
954c1994 | 3274 | return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv); |
51371543 GS |
3275 | } |
3276 | ||
e1c57cef JH |
3277 | #undef Perl_sv_setref_uv |
3278 | SV* | |
3279 | Perl_sv_setref_uv(pTHXo_ SV* rv, const char* classname, UV uv) | |
3280 | { | |
3281 | return ((CPerlObj*)pPerl)->Perl_sv_setref_uv(rv, classname, uv); | |
3282 | } | |
3283 | ||
954c1994 GS |
3284 | #undef Perl_sv_setref_nv |
3285 | SV* | |
3286 | Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv) | |
51371543 | 3287 | { |
954c1994 | 3288 | return ((CPerlObj*)pPerl)->Perl_sv_setref_nv(rv, classname, nv); |
51371543 GS |
3289 | } |
3290 | ||
954c1994 GS |
3291 | #undef Perl_sv_setref_pv |
3292 | SV* | |
3293 | Perl_sv_setref_pv(pTHXo_ SV* rv, const char* classname, void* pv) | |
51371543 | 3294 | { |
954c1994 | 3295 | return ((CPerlObj*)pPerl)->Perl_sv_setref_pv(rv, classname, pv); |
51371543 GS |
3296 | } |
3297 | ||
954c1994 GS |
3298 | #undef Perl_sv_setref_pvn |
3299 | SV* | |
3300 | Perl_sv_setref_pvn(pTHXo_ SV* rv, const char* classname, char* pv, STRLEN n) | |
51371543 | 3301 | { |
954c1994 | 3302 | return ((CPerlObj*)pPerl)->Perl_sv_setref_pvn(rv, classname, pv, n); |
51371543 GS |
3303 | } |
3304 | ||
954c1994 GS |
3305 | #undef Perl_sv_setpv |
3306 | void | |
3307 | Perl_sv_setpv(pTHXo_ SV* sv, const char* ptr) | |
51371543 | 3308 | { |
954c1994 | 3309 | ((CPerlObj*)pPerl)->Perl_sv_setpv(sv, ptr); |
51371543 GS |
3310 | } |
3311 | ||
954c1994 GS |
3312 | #undef Perl_sv_setpvn |
3313 | void | |
3314 | Perl_sv_setpvn(pTHXo_ SV* sv, const char* ptr, STRLEN len) | |
51371543 | 3315 | { |
954c1994 | 3316 | ((CPerlObj*)pPerl)->Perl_sv_setpvn(sv, ptr, len); |
51371543 GS |
3317 | } |
3318 | ||
954c1994 GS |
3319 | #undef Perl_sv_setsv |
3320 | void | |
3321 | Perl_sv_setsv(pTHXo_ SV* dsv, SV* ssv) | |
51371543 | 3322 | { |
954c1994 | 3323 | ((CPerlObj*)pPerl)->Perl_sv_setsv(dsv, ssv); |
51371543 GS |
3324 | } |
3325 | ||
954c1994 GS |
3326 | #undef Perl_sv_taint |
3327 | void | |
3328 | Perl_sv_taint(pTHXo_ SV* sv) | |
51371543 | 3329 | { |
954c1994 | 3330 | ((CPerlObj*)pPerl)->Perl_sv_taint(sv); |
51371543 GS |
3331 | } |
3332 | ||
954c1994 GS |
3333 | #undef Perl_sv_tainted |
3334 | bool | |
3335 | Perl_sv_tainted(pTHXo_ SV* sv) | |
51371543 | 3336 | { |
954c1994 | 3337 | return ((CPerlObj*)pPerl)->Perl_sv_tainted(sv); |
51371543 GS |
3338 | } |
3339 | ||
954c1994 GS |
3340 | #undef Perl_sv_unmagic |
3341 | int | |
3342 | Perl_sv_unmagic(pTHXo_ SV* sv, int type) | |
51371543 | 3343 | { |
954c1994 | 3344 | return ((CPerlObj*)pPerl)->Perl_sv_unmagic(sv, type); |
51371543 GS |
3345 | } |
3346 | ||
954c1994 GS |
3347 | #undef Perl_sv_unref |
3348 | void | |
3349 | Perl_sv_unref(pTHXo_ SV* sv) | |
51371543 | 3350 | { |
954c1994 | 3351 | ((CPerlObj*)pPerl)->Perl_sv_unref(sv); |
51371543 GS |
3352 | } |
3353 | ||
766a733e NIS |
3354 | #undef Perl_sv_unref_flags |
3355 | void | |
3356 | Perl_sv_unref_flags(pTHXo_ SV* sv, U32 flags) | |
3357 | { | |
3358 | ((CPerlObj*)pPerl)->Perl_sv_unref_flags(sv, flags); | |
3359 | } | |
3360 | ||
954c1994 GS |
3361 | #undef Perl_sv_untaint |
3362 | void | |
3363 | Perl_sv_untaint(pTHXo_ SV* sv) | |
51371543 | 3364 | { |
954c1994 | 3365 | ((CPerlObj*)pPerl)->Perl_sv_untaint(sv); |
51371543 GS |
3366 | } |
3367 | ||
954c1994 GS |
3368 | #undef Perl_sv_upgrade |
3369 | bool | |
3370 | Perl_sv_upgrade(pTHXo_ SV* sv, U32 mt) | |
51371543 | 3371 | { |
954c1994 | 3372 | return ((CPerlObj*)pPerl)->Perl_sv_upgrade(sv, mt); |
51371543 GS |
3373 | } |
3374 | ||
954c1994 GS |
3375 | #undef Perl_sv_usepvn |
3376 | void | |
3377 | Perl_sv_usepvn(pTHXo_ SV* sv, char* ptr, STRLEN len) | |
51371543 | 3378 | { |
954c1994 | 3379 | ((CPerlObj*)pPerl)->Perl_sv_usepvn(sv, ptr, len); |
51371543 GS |
3380 | } |
3381 | ||
954c1994 GS |
3382 | #undef Perl_sv_vcatpvfn |
3383 | void | |
3384 | Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted) | |
51371543 | 3385 | { |
954c1994 | 3386 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted); |
51371543 GS |
3387 | } |
3388 | ||
954c1994 GS |
3389 | #undef Perl_sv_vsetpvfn |
3390 | void | |
3391 | Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted) | |
51371543 | 3392 | { |
954c1994 | 3393 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted); |
51371543 GS |
3394 | } |
3395 | ||
1571675a GS |
3396 | #undef Perl_str_to_version |
3397 | NV | |
3398 | Perl_str_to_version(pTHXo_ SV *sv) | |
3399 | { | |
3400 | return ((CPerlObj*)pPerl)->Perl_str_to_version(sv); | |
3401 | } | |
3402 | ||
1be9d9c6 GS |
3403 | #undef Perl_swash_init |
3404 | SV* | |
3405 | Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none) | |
3406 | { | |
3407 | return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none); | |
3408 | } | |
3409 | ||
3410 | #undef Perl_swash_fetch | |
3411 | UV | |
a453c169 | 3412 | Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr, bool do_utf8) |
1be9d9c6 | 3413 | { |
a453c169 | 3414 | return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr, do_utf8); |
1be9d9c6 GS |
3415 | } |
3416 | ||
954c1994 GS |
3417 | #undef Perl_taint_env |
3418 | void | |
3419 | Perl_taint_env(pTHXo) | |
51371543 | 3420 | { |
954c1994 | 3421 | ((CPerlObj*)pPerl)->Perl_taint_env(); |
51371543 GS |
3422 | } |
3423 | ||
954c1994 GS |
3424 | #undef Perl_taint_proper |
3425 | void | |
3426 | Perl_taint_proper(pTHXo_ const char* f, const char* s) | |
51371543 | 3427 | { |
954c1994 | 3428 | ((CPerlObj*)pPerl)->Perl_taint_proper(f, s); |
51371543 GS |
3429 | } |
3430 | ||
954c1994 GS |
3431 | #undef Perl_to_utf8_lower |
3432 | UV | |
3433 | Perl_to_utf8_lower(pTHXo_ U8 *p) | |
51371543 | 3434 | { |
954c1994 | 3435 | return ((CPerlObj*)pPerl)->Perl_to_utf8_lower(p); |
51371543 GS |
3436 | } |
3437 | ||
954c1994 GS |
3438 | #undef Perl_to_utf8_upper |
3439 | UV | |
3440 | Perl_to_utf8_upper(pTHXo_ U8 *p) | |
51371543 | 3441 | { |
954c1994 | 3442 | return ((CPerlObj*)pPerl)->Perl_to_utf8_upper(p); |
51371543 GS |
3443 | } |
3444 | ||
954c1994 GS |
3445 | #undef Perl_to_utf8_title |
3446 | UV | |
3447 | Perl_to_utf8_title(pTHXo_ U8 *p) | |
51371543 | 3448 | { |
954c1994 | 3449 | return ((CPerlObj*)pPerl)->Perl_to_utf8_title(p); |
51371543 | 3450 | } |
954c1994 | 3451 | #if defined(UNLINK_ALL_VERSIONS) |
51371543 | 3452 | |
954c1994 GS |
3453 | #undef Perl_unlnk |
3454 | I32 | |
3455 | Perl_unlnk(pTHXo_ char* f) | |
51371543 | 3456 | { |
954c1994 | 3457 | return ((CPerlObj*)pPerl)->Perl_unlnk(f); |
51371543 | 3458 | } |
954c1994 GS |
3459 | #endif |
3460 | #if defined(USE_THREADS) | |
1be9d9c6 GS |
3461 | |
3462 | #undef Perl_unlock_condpair | |
3463 | void | |
3464 | Perl_unlock_condpair(pTHXo_ void* svv) | |
3465 | { | |
3466 | ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv); | |
3467 | } | |
954c1994 | 3468 | #endif |
51371543 | 3469 | |
1be9d9c6 GS |
3470 | #undef Perl_unsharepvn |
3471 | void | |
3472 | Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash) | |
3473 | { | |
3474 | ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash); | |
3475 | } | |
3476 | ||
954c1994 GS |
3477 | #undef Perl_utf16_to_utf8 |
3478 | U8* | |
7029d033 | 3479 | Perl_utf16_to_utf8(pTHXo_ U8* p, U8 *d, I32 bytelen, I32 *newlen) |
51371543 | 3480 | { |
7029d033 | 3481 | return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8(p, d, bytelen, newlen); |
51371543 GS |
3482 | } |
3483 | ||
954c1994 GS |
3484 | #undef Perl_utf16_to_utf8_reversed |
3485 | U8* | |
7029d033 | 3486 | Perl_utf16_to_utf8_reversed(pTHXo_ U8* p, U8 *d, I32 bytelen, I32 *newlen) |
51371543 | 3487 | { |
7029d033 | 3488 | return ((CPerlObj*)pPerl)->Perl_utf16_to_utf8_reversed(p, d, bytelen, newlen); |
51371543 GS |
3489 | } |
3490 | ||
b76347f2 JH |
3491 | #undef Perl_utf8_length |
3492 | STRLEN | |
3493 | Perl_utf8_length(pTHXo_ U8* s, U8 *e) | |
3494 | { | |
3495 | return ((CPerlObj*)pPerl)->Perl_utf8_length(s, e); | |
3496 | } | |
3497 | ||
954c1994 | 3498 | #undef Perl_utf8_distance |
411caa50 | 3499 | IV |
954c1994 | 3500 | Perl_utf8_distance(pTHXo_ U8 *a, U8 *b) |
51371543 | 3501 | { |
954c1994 | 3502 | return ((CPerlObj*)pPerl)->Perl_utf8_distance(a, b); |
51371543 GS |
3503 | } |
3504 | ||
954c1994 GS |
3505 | #undef Perl_utf8_hop |
3506 | U8* | |
3507 | Perl_utf8_hop(pTHXo_ U8 *s, I32 off) | |
51371543 | 3508 | { |
954c1994 | 3509 | return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off); |
51371543 GS |
3510 | } |
3511 | ||
497711e7 GS |
3512 | #undef Perl_utf8_to_bytes |
3513 | U8* | |
246fae53 | 3514 | Perl_utf8_to_bytes(pTHXo_ U8 *s, STRLEN *len) |
497711e7 GS |
3515 | { |
3516 | return ((CPerlObj*)pPerl)->Perl_utf8_to_bytes(s, len); | |
3517 | } | |
3518 | ||
f9a63242 JH |
3519 | #undef Perl_bytes_from_utf8 |
3520 | U8* | |
3521 | Perl_bytes_from_utf8(pTHXo_ U8 *s, STRLEN *len, bool *is_utf8) | |
3522 | { | |
3523 | return ((CPerlObj*)pPerl)->Perl_bytes_from_utf8(s, len, is_utf8); | |
3524 | } | |
3525 | ||
497711e7 GS |
3526 | #undef Perl_bytes_to_utf8 |
3527 | U8* | |
6662521e | 3528 | Perl_bytes_to_utf8(pTHXo_ U8 *s, STRLEN *len) |
497711e7 GS |
3529 | { |
3530 | return ((CPerlObj*)pPerl)->Perl_bytes_to_utf8(s, len); | |
3531 | } | |
3532 | ||
9041c2e3 | 3533 | #undef Perl_utf8_to_uvchr |
954c1994 | 3534 | UV |
9041c2e3 | 3535 | Perl_utf8_to_uvchr(pTHXo_ U8 *s, STRLEN* retlen) |
51371543 | 3536 | { |
9041c2e3 | 3537 | return ((CPerlObj*)pPerl)->Perl_utf8_to_uvchr(s, retlen); |
8e84507e NIS |
3538 | } |
3539 | ||
9041c2e3 | 3540 | #undef Perl_utf8_to_uvuni |
8e84507e | 3541 | UV |
9041c2e3 | 3542 | Perl_utf8_to_uvuni(pTHXo_ U8 *s, STRLEN* retlen) |
8e84507e | 3543 | { |
9041c2e3 | 3544 | return ((CPerlObj*)pPerl)->Perl_utf8_to_uvuni(s, retlen); |
51371543 GS |
3545 | } |
3546 | ||
9041c2e3 NIS |
3547 | #undef Perl_utf8n_to_uvchr |
3548 | UV | |
3549 | Perl_utf8n_to_uvchr(pTHXo_ U8 *s, STRLEN curlen, STRLEN* retlen, U32 flags) | |
3550 | { | |
3551 | return ((CPerlObj*)pPerl)->Perl_utf8n_to_uvchr(s, curlen, retlen, flags); | |
3552 | } | |
3553 | ||
3554 | #undef Perl_utf8n_to_uvuni | |
3555 | UV | |
3556 | Perl_utf8n_to_uvuni(pTHXo_ U8 *s, STRLEN curlen, STRLEN* retlen, U32 flags) | |
3557 | { | |
3558 | return ((CPerlObj*)pPerl)->Perl_utf8n_to_uvuni(s, curlen, retlen, flags); | |
3559 | } | |
3560 | ||
3561 | #undef Perl_uvchr_to_utf8 | |
3562 | U8* | |
3563 | Perl_uvchr_to_utf8(pTHXo_ U8 *d, UV uv) | |
3564 | { | |
3565 | return ((CPerlObj*)pPerl)->Perl_uvchr_to_utf8(d, uv); | |
3566 | } | |
3567 | ||
3568 | #undef Perl_uvuni_to_utf8 | |
954c1994 | 3569 | U8* |
9041c2e3 | 3570 | Perl_uvuni_to_utf8(pTHXo_ U8 *d, UV uv) |
51371543 | 3571 | { |
9041c2e3 | 3572 | return ((CPerlObj*)pPerl)->Perl_uvuni_to_utf8(d, uv); |
51371543 GS |
3573 | } |
3574 | ||
954c1994 GS |
3575 | #undef Perl_warn |
3576 | void | |
3577 | Perl_warn(pTHXo_ const char* pat, ...) | |
51371543 | 3578 | { |
954c1994 GS |
3579 | va_list args; |
3580 | va_start(args, pat); | |
3581 | ((CPerlObj*)pPerl)->Perl_vwarn(pat, &args); | |
3582 | va_end(args); | |
51371543 GS |
3583 | } |
3584 | ||
954c1994 GS |
3585 | #undef Perl_vwarn |
3586 | void | |
3587 | Perl_vwarn(pTHXo_ const char* pat, va_list* args) | |
7399586d | 3588 | { |
954c1994 | 3589 | ((CPerlObj*)pPerl)->Perl_vwarn(pat, args); |
7399586d HS |
3590 | } |
3591 | ||
954c1994 GS |
3592 | #undef Perl_warner |
3593 | void | |
3594 | Perl_warner(pTHXo_ U32 err, const char* pat, ...) | |
51371543 | 3595 | { |
954c1994 GS |
3596 | va_list args; |
3597 | va_start(args, pat); | |
3598 | ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, &args); | |
3599 | va_end(args); | |
51371543 GS |
3600 | } |
3601 | ||
954c1994 GS |
3602 | #undef Perl_vwarner |
3603 | void | |
3604 | Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args) | |
51371543 | 3605 | { |
954c1994 | 3606 | ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args); |
51371543 | 3607 | } |
412d7f2a GS |
3608 | |
3609 | #undef Perl_whichsig | |
3610 | I32 | |
3611 | Perl_whichsig(pTHXo_ char* sig) | |
3612 | { | |
3613 | return ((CPerlObj*)pPerl)->Perl_whichsig(sig); | |
3614 | } | |
e9e021e6 | 3615 | #ifdef USE_PURE_BISON |
954c1994 GS |
3616 | #endif |
3617 | #if defined(MYMALLOC) | |
51371543 | 3618 | |
954c1994 GS |
3619 | #undef Perl_dump_mstats |
3620 | void | |
3621 | Perl_dump_mstats(pTHXo_ char* s) | |
51371543 | 3622 | { |
954c1994 | 3623 | ((CPerlObj*)pPerl)->Perl_dump_mstats(s); |
51371543 | 3624 | } |
827e134a GS |
3625 | |
3626 | #undef Perl_get_mstats | |
3627 | int | |
3628 | Perl_get_mstats(pTHXo_ perl_mstats_t *buf, int buflen, int level) | |
3629 | { | |
3630 | return ((CPerlObj*)pPerl)->Perl_get_mstats(buf, buflen, level); | |
3631 | } | |
954c1994 | 3632 | #endif |
51371543 | 3633 | |
954c1994 GS |
3634 | #undef Perl_safesysmalloc |
3635 | Malloc_t | |
3636 | Perl_safesysmalloc(MEM_SIZE nbytes) | |
51371543 | 3637 | { |
954c1994 GS |
3638 | dTHXo; |
3639 | return ((CPerlObj*)pPerl)->Perl_safesysmalloc(nbytes); | |
51371543 GS |
3640 | } |
3641 | ||
954c1994 GS |
3642 | #undef Perl_safesyscalloc |
3643 | Malloc_t | |
3644 | Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size) | |
51371543 | 3645 | { |
954c1994 GS |
3646 | dTHXo; |
3647 | return ((CPerlObj*)pPerl)->Perl_safesyscalloc(elements, size); | |
51371543 GS |
3648 | } |
3649 | ||
954c1994 GS |
3650 | #undef Perl_safesysrealloc |
3651 | Malloc_t | |
3652 | Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes) | |
51371543 | 3653 | { |
954c1994 GS |
3654 | dTHXo; |
3655 | return ((CPerlObj*)pPerl)->Perl_safesysrealloc(where, nbytes); | |
51371543 GS |
3656 | } |
3657 | ||
954c1994 GS |
3658 | #undef Perl_safesysfree |
3659 | Free_t | |
3660 | Perl_safesysfree(Malloc_t where) | |
51371543 | 3661 | { |
954c1994 GS |
3662 | dTHXo; |
3663 | ((CPerlObj*)pPerl)->Perl_safesysfree(where); | |
51371543 | 3664 | } |
954c1994 | 3665 | #if defined(LEAKTEST) |
51371543 | 3666 | |
954c1994 GS |
3667 | #undef Perl_safexmalloc |
3668 | Malloc_t | |
3669 | Perl_safexmalloc(I32 x, MEM_SIZE size) | |
51371543 | 3670 | { |
954c1994 GS |
3671 | dTHXo; |
3672 | return ((CPerlObj*)pPerl)->Perl_safexmalloc(x, size); | |
51371543 GS |
3673 | } |
3674 | ||
954c1994 GS |
3675 | #undef Perl_safexcalloc |
3676 | Malloc_t | |
3677 | Perl_safexcalloc(I32 x, MEM_SIZE elements, MEM_SIZE size) | |
51371543 | 3678 | { |
954c1994 GS |
3679 | dTHXo; |
3680 | return ((CPerlObj*)pPerl)->Perl_safexcalloc(x, elements, size); | |
51371543 GS |
3681 | } |
3682 | ||
954c1994 GS |
3683 | #undef Perl_safexrealloc |
3684 | Malloc_t | |
3685 | Perl_safexrealloc(Malloc_t where, MEM_SIZE size) | |
51371543 | 3686 | { |
954c1994 GS |
3687 | dTHXo; |
3688 | return ((CPerlObj*)pPerl)->Perl_safexrealloc(where, size); | |
51371543 GS |
3689 | } |
3690 | ||
954c1994 GS |
3691 | #undef Perl_safexfree |
3692 | void | |
3693 | Perl_safexfree(Malloc_t where) | |
51371543 | 3694 | { |
954c1994 GS |
3695 | dTHXo; |
3696 | ((CPerlObj*)pPerl)->Perl_safexfree(where); | |
51371543 | 3697 | } |
954c1994 GS |
3698 | #endif |
3699 | #if defined(PERL_GLOBAL_STRUCT) | |
51371543 | 3700 | |
954c1994 GS |
3701 | #undef Perl_GetVars |
3702 | struct perl_vars * | |
3703 | Perl_GetVars(pTHXo) | |
51371543 | 3704 | { |
954c1994 | 3705 | return ((CPerlObj*)pPerl)->Perl_GetVars(); |
51371543 | 3706 | } |
954c1994 | 3707 | #endif |
51371543 | 3708 | |
954c1994 GS |
3709 | #undef Perl_runops_standard |
3710 | int | |
3711 | Perl_runops_standard(pTHXo) | |
51371543 | 3712 | { |
954c1994 | 3713 | return ((CPerlObj*)pPerl)->Perl_runops_standard(); |
51371543 GS |
3714 | } |
3715 | ||
954c1994 GS |
3716 | #undef Perl_runops_debug |
3717 | int | |
3718 | Perl_runops_debug(pTHXo) | |
51371543 | 3719 | { |
954c1994 | 3720 | return ((CPerlObj*)pPerl)->Perl_runops_debug(); |
51371543 | 3721 | } |
4755096e GS |
3722 | #if defined(USE_THREADS) |
3723 | ||
3724 | #undef Perl_sv_lock | |
3725 | SV* | |
3726 | Perl_sv_lock(pTHXo_ SV *sv) | |
3727 | { | |
3728 | return ((CPerlObj*)pPerl)->Perl_sv_lock(sv); | |
3729 | } | |
3730 | #endif | |
51371543 | 3731 | |
954c1994 GS |
3732 | #undef Perl_sv_catpvf_mg |
3733 | void | |
3734 | Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat, ...) | |
51371543 | 3735 | { |
954c1994 GS |
3736 | va_list args; |
3737 | va_start(args, pat); | |
3738 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, &args); | |
3739 | va_end(args); | |
51371543 GS |
3740 | } |
3741 | ||
954c1994 GS |
3742 | #undef Perl_sv_vcatpvf_mg |
3743 | void | |
3744 | Perl_sv_vcatpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args) | |
51371543 | 3745 | { |
954c1994 | 3746 | ((CPerlObj*)pPerl)->Perl_sv_vcatpvf_mg(sv, pat, args); |
51371543 GS |
3747 | } |
3748 | ||
954c1994 GS |
3749 | #undef Perl_sv_catpv_mg |
3750 | void | |
3751 | Perl_sv_catpv_mg(pTHXo_ SV *sv, const char *ptr) | |
51371543 | 3752 | { |
954c1994 | 3753 | ((CPerlObj*)pPerl)->Perl_sv_catpv_mg(sv, ptr); |
51371543 GS |
3754 | } |
3755 | ||
954c1994 GS |
3756 | #undef Perl_sv_catpvn_mg |
3757 | void | |
3758 | Perl_sv_catpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len) | |
51371543 | 3759 | { |
954c1994 | 3760 | ((CPerlObj*)pPerl)->Perl_sv_catpvn_mg(sv, ptr, len); |
51371543 GS |
3761 | } |
3762 | ||
954c1994 GS |
3763 | #undef Perl_sv_catsv_mg |
3764 | void | |
3765 | Perl_sv_catsv_mg(pTHXo_ SV *dstr, SV *sstr) | |
51371543 | 3766 | { |
954c1994 | 3767 | ((CPerlObj*)pPerl)->Perl_sv_catsv_mg(dstr, sstr); |
51371543 GS |
3768 | } |
3769 | ||
954c1994 GS |
3770 | #undef Perl_sv_setpvf_mg |
3771 | void | |
3772 | Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat, ...) | |
51371543 | 3773 | { |
954c1994 GS |
3774 | va_list args; |
3775 | va_start(args, pat); | |
3776 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, &args); | |
3777 | va_end(args); | |
51371543 GS |
3778 | } |
3779 | ||
954c1994 GS |
3780 | #undef Perl_sv_vsetpvf_mg |
3781 | void | |
3782 | Perl_sv_vsetpvf_mg(pTHXo_ SV* sv, const char* pat, va_list* args) | |
51371543 | 3783 | { |
954c1994 | 3784 | ((CPerlObj*)pPerl)->Perl_sv_vsetpvf_mg(sv, pat, args); |
51371543 GS |
3785 | } |
3786 | ||
954c1994 GS |
3787 | #undef Perl_sv_setiv_mg |
3788 | void | |
3789 | Perl_sv_setiv_mg(pTHXo_ SV *sv, IV i) | |
51371543 | 3790 | { |
954c1994 | 3791 | ((CPerlObj*)pPerl)->Perl_sv_setiv_mg(sv, i); |
51371543 GS |
3792 | } |
3793 | ||
954c1994 GS |
3794 | #undef Perl_sv_setpviv_mg |
3795 | void | |
3796 | Perl_sv_setpviv_mg(pTHXo_ SV *sv, IV iv) | |
51371543 | 3797 | { |
954c1994 | 3798 | ((CPerlObj*)pPerl)->Perl_sv_setpviv_mg(sv, iv); |
51371543 GS |
3799 | } |
3800 | ||
954c1994 GS |
3801 | #undef Perl_sv_setuv_mg |
3802 | void | |
3803 | Perl_sv_setuv_mg(pTHXo_ SV *sv, UV u) | |
51371543 | 3804 | { |
954c1994 | 3805 | ((CPerlObj*)pPerl)->Perl_sv_setuv_mg(sv, u); |
51371543 GS |
3806 | } |
3807 | ||
954c1994 GS |
3808 | #undef Perl_sv_setnv_mg |
3809 | void | |
3810 | Perl_sv_setnv_mg(pTHXo_ SV *sv, NV num) | |
51371543 | 3811 | { |
954c1994 | 3812 | ((CPerlObj*)pPerl)->Perl_sv_setnv_mg(sv, num); |
51371543 GS |
3813 | } |
3814 | ||
954c1994 GS |
3815 | #undef Perl_sv_setpv_mg |
3816 | void | |
3817 | Perl_sv_setpv_mg(pTHXo_ SV *sv, const char *ptr) | |
51371543 | 3818 | { |
954c1994 | 3819 | ((CPerlObj*)pPerl)->Perl_sv_setpv_mg(sv, ptr); |
51371543 GS |
3820 | } |
3821 | ||
954c1994 GS |
3822 | #undef Perl_sv_setpvn_mg |
3823 | void | |
3824 | Perl_sv_setpvn_mg(pTHXo_ SV *sv, const char *ptr, STRLEN len) | |
51371543 | 3825 | { |
954c1994 | 3826 | ((CPerlObj*)pPerl)->Perl_sv_setpvn_mg(sv, ptr, len); |
51371543 GS |
3827 | } |
3828 | ||
954c1994 GS |
3829 | #undef Perl_sv_setsv_mg |
3830 | void | |
3831 | Perl_sv_setsv_mg(pTHXo_ SV *dstr, SV *sstr) | |
51371543 | 3832 | { |
954c1994 | 3833 | ((CPerlObj*)pPerl)->Perl_sv_setsv_mg(dstr, sstr); |
51371543 GS |
3834 | } |
3835 | ||
954c1994 GS |
3836 | #undef Perl_sv_usepvn_mg |
3837 | void | |
3838 | Perl_sv_usepvn_mg(pTHXo_ SV *sv, char *ptr, STRLEN len) | |
51371543 | 3839 | { |
954c1994 | 3840 | ((CPerlObj*)pPerl)->Perl_sv_usepvn_mg(sv, ptr, len); |
51371543 GS |
3841 | } |
3842 | ||
954c1994 GS |
3843 | #undef Perl_get_vtbl |
3844 | MGVTBL* | |
3845 | Perl_get_vtbl(pTHXo_ int vtbl_id) | |
51371543 | 3846 | { |
954c1994 | 3847 | return ((CPerlObj*)pPerl)->Perl_get_vtbl(vtbl_id); |
51371543 GS |
3848 | } |
3849 | ||
954c1994 GS |
3850 | #undef Perl_dump_indent |
3851 | void | |
3852 | Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat, ...) | |
51371543 | 3853 | { |
954c1994 GS |
3854 | va_list args; |
3855 | va_start(args, pat); | |
3856 | ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, &args); | |
3857 | va_end(args); | |
51371543 GS |
3858 | } |
3859 | ||
954c1994 GS |
3860 | #undef Perl_dump_vindent |
3861 | void | |
3862 | Perl_dump_vindent(pTHXo_ I32 level, PerlIO *file, const char* pat, va_list *args) | |
51371543 | 3863 | { |
954c1994 | 3864 | ((CPerlObj*)pPerl)->Perl_dump_vindent(level, file, pat, args); |
51371543 GS |
3865 | } |
3866 | ||
954c1994 GS |
3867 | #undef Perl_do_gv_dump |
3868 | void | |
3869 | Perl_do_gv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv) | |
51371543 | 3870 | { |
954c1994 | 3871 | ((CPerlObj*)pPerl)->Perl_do_gv_dump(level, file, name, sv); |
51371543 GS |
3872 | } |
3873 | ||
954c1994 GS |
3874 | #undef Perl_do_gvgv_dump |
3875 | void | |
3876 | Perl_do_gvgv_dump(pTHXo_ I32 level, PerlIO *file, char *name, GV *sv) | |
51371543 | 3877 | { |
954c1994 | 3878 | ((CPerlObj*)pPerl)->Perl_do_gvgv_dump(level, file, name, sv); |
51371543 GS |
3879 | } |
3880 | ||
954c1994 GS |
3881 | #undef Perl_do_hv_dump |
3882 | void | |
3883 | Perl_do_hv_dump(pTHXo_ I32 level, PerlIO *file, char *name, HV *sv) | |
51371543 | 3884 | { |
954c1994 | 3885 | ((CPerlObj*)pPerl)->Perl_do_hv_dump(level, file, name, sv); |
51371543 GS |
3886 | } |
3887 | ||
954c1994 GS |
3888 | #undef Perl_do_magic_dump |
3889 | void | |
3890 | Perl_do_magic_dump(pTHXo_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim) | |
51371543 | 3891 | { |
954c1994 | 3892 | ((CPerlObj*)pPerl)->Perl_do_magic_dump(level, file, mg, nest, maxnest, dumpops, pvlim); |
51371543 GS |
3893 | } |
3894 | ||
954c1994 GS |
3895 | #undef Perl_do_op_dump |
3896 | void | |
3897 | Perl_do_op_dump(pTHXo_ I32 level, PerlIO *file, OP *o) | |
51371543 | 3898 | { |
954c1994 | 3899 | ((CPerlObj*)pPerl)->Perl_do_op_dump(level, file, o); |
51371543 GS |
3900 | } |
3901 | ||
954c1994 GS |
3902 | #undef Perl_do_pmop_dump |
3903 | void | |
3904 | Perl_do_pmop_dump(pTHXo_ I32 level, PerlIO *file, PMOP *pm) | |
51371543 | 3905 | { |
954c1994 | 3906 | ((CPerlObj*)pPerl)->Perl_do_pmop_dump(level, file, pm); |
51371543 GS |
3907 | } |
3908 | ||
954c1994 GS |
3909 | #undef Perl_do_sv_dump |
3910 | void | |
3911 | Perl_do_sv_dump(pTHXo_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim) | |
51371543 | 3912 | { |
954c1994 | 3913 | ((CPerlObj*)pPerl)->Perl_do_sv_dump(level, file, sv, nest, maxnest, dumpops, pvlim); |
51371543 GS |
3914 | } |
3915 | ||
954c1994 GS |
3916 | #undef Perl_magic_dump |
3917 | void | |
3918 | Perl_magic_dump(pTHXo_ MAGIC *mg) | |
51371543 | 3919 | { |
954c1994 | 3920 | ((CPerlObj*)pPerl)->Perl_magic_dump(mg); |
51371543 | 3921 | } |
14dd3ad8 | 3922 | #if defined(PERL_FLEXIBLE_EXCEPTIONS) |
51371543 | 3923 | |
954c1994 GS |
3924 | #undef Perl_default_protect |
3925 | void* | |
3926 | Perl_default_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, ...) | |
51371543 | 3927 | { |
954c1994 GS |
3928 | void* retval; |
3929 | va_list args; | |
3930 | va_start(args, body); | |
3931 | retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, &args); | |
3932 | va_end(args); | |
3933 | return retval; | |
3934 | ||
51371543 GS |
3935 | } |
3936 | ||
954c1994 GS |
3937 | #undef Perl_vdefault_protect |
3938 | void* | |
3939 | Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args) | |
51371543 | 3940 | { |
954c1994 | 3941 | return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args); |
51371543 | 3942 | } |
14dd3ad8 | 3943 | #endif |
51371543 | 3944 | |
954c1994 GS |
3945 | #undef Perl_reginitcolors |
3946 | void | |
3947 | Perl_reginitcolors(pTHXo) | |
51371543 | 3948 | { |
954c1994 | 3949 | ((CPerlObj*)pPerl)->Perl_reginitcolors(); |
51371543 GS |
3950 | } |
3951 | ||
954c1994 GS |
3952 | #undef Perl_sv_2pv_nolen |
3953 | char* | |
3954 | Perl_sv_2pv_nolen(pTHXo_ SV* sv) | |
51371543 | 3955 | { |
954c1994 | 3956 | return ((CPerlObj*)pPerl)->Perl_sv_2pv_nolen(sv); |
51371543 GS |
3957 | } |
3958 | ||
954c1994 GS |
3959 | #undef Perl_sv_2pvutf8_nolen |
3960 | char* | |
3961 | Perl_sv_2pvutf8_nolen(pTHXo_ SV* sv) | |
51371543 | 3962 | { |
954c1994 | 3963 | return ((CPerlObj*)pPerl)->Perl_sv_2pvutf8_nolen(sv); |
51371543 GS |
3964 | } |
3965 | ||
954c1994 GS |
3966 | #undef Perl_sv_2pvbyte_nolen |
3967 | char* | |
3968 | Perl_sv_2pvbyte_nolen(pTHXo_ SV* sv) | |
51371543 | 3969 | { |
954c1994 | 3970 | return ((CPerlObj*)pPerl)->Perl_sv_2pvbyte_nolen(sv); |
51371543 GS |
3971 | } |
3972 | ||
954c1994 GS |
3973 | #undef Perl_sv_pv |
3974 | char* | |
3975 | Perl_sv_pv(pTHXo_ SV *sv) | |
51371543 | 3976 | { |
954c1994 | 3977 | return ((CPerlObj*)pPerl)->Perl_sv_pv(sv); |
51371543 GS |
3978 | } |
3979 | ||
954c1994 GS |
3980 | #undef Perl_sv_pvutf8 |
3981 | char* | |
3982 | Perl_sv_pvutf8(pTHXo_ SV *sv) | |
51371543 | 3983 | { |
954c1994 | 3984 | return ((CPerlObj*)pPerl)->Perl_sv_pvutf8(sv); |
51371543 GS |
3985 | } |
3986 | ||
954c1994 GS |
3987 | #undef Perl_sv_pvbyte |
3988 | char* | |
3989 | Perl_sv_pvbyte(pTHXo_ SV *sv) | |
51371543 | 3990 | { |
954c1994 | 3991 | return ((CPerlObj*)pPerl)->Perl_sv_pvbyte(sv); |
51371543 GS |
3992 | } |
3993 | ||
560a288e | 3994 | #undef Perl_sv_utf8_upgrade |
4411f3b6 | 3995 | STRLEN |
560a288e GS |
3996 | Perl_sv_utf8_upgrade(pTHXo_ SV *sv) |
3997 | { | |
4411f3b6 | 3998 | return ((CPerlObj*)pPerl)->Perl_sv_utf8_upgrade(sv); |
560a288e GS |
3999 | } |
4000 | ||
4001 | #undef Perl_sv_utf8_downgrade | |
4002 | bool | |
4003 | Perl_sv_utf8_downgrade(pTHXo_ SV *sv, bool fail_ok) | |
4004 | { | |
4005 | return ((CPerlObj*)pPerl)->Perl_sv_utf8_downgrade(sv, fail_ok); | |
4006 | } | |
4007 | ||
4008 | #undef Perl_sv_utf8_encode | |
4009 | void | |
4010 | Perl_sv_utf8_encode(pTHXo_ SV *sv) | |
4011 | { | |
4012 | ((CPerlObj*)pPerl)->Perl_sv_utf8_encode(sv); | |
4013 | } | |
4014 | ||
4015 | #undef Perl_sv_utf8_decode | |
4016 | bool | |
4017 | Perl_sv_utf8_decode(pTHXo_ SV *sv) | |
4018 | { | |
4019 | return ((CPerlObj*)pPerl)->Perl_sv_utf8_decode(sv); | |
4020 | } | |
4021 | ||
954c1994 GS |
4022 | #undef Perl_sv_force_normal |
4023 | void | |
4024 | Perl_sv_force_normal(pTHXo_ SV *sv) | |
51371543 | 4025 | { |
954c1994 | 4026 | ((CPerlObj*)pPerl)->Perl_sv_force_normal(sv); |
51371543 GS |
4027 | } |
4028 | ||
766a733e NIS |
4029 | #undef Perl_sv_force_normal_flags |
4030 | void | |
4031 | Perl_sv_force_normal_flags(pTHXo_ SV *sv, U32 flags) | |
4032 | { | |
4033 | ((CPerlObj*)pPerl)->Perl_sv_force_normal_flags(sv, flags); | |
4034 | } | |
4035 | ||
954c1994 GS |
4036 | #undef Perl_tmps_grow |
4037 | void | |
4038 | Perl_tmps_grow(pTHXo_ I32 n) | |
51371543 | 4039 | { |
954c1994 | 4040 | ((CPerlObj*)pPerl)->Perl_tmps_grow(n); |
51371543 GS |
4041 | } |
4042 | ||
954c1994 GS |
4043 | #undef Perl_sv_rvweaken |
4044 | SV* | |
4045 | Perl_sv_rvweaken(pTHXo_ SV *sv) | |
51371543 | 4046 | { |
954c1994 | 4047 | return ((CPerlObj*)pPerl)->Perl_sv_rvweaken(sv); |
51371543 GS |
4048 | } |
4049 | ||
954c1994 GS |
4050 | #undef Perl_newANONATTRSUB |
4051 | OP* | |
4052 | Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block) | |
51371543 | 4053 | { |
954c1994 | 4054 | return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block); |
51371543 GS |
4055 | } |
4056 | ||
954c1994 GS |
4057 | #undef Perl_newATTRSUB |
4058 | CV* | |
4059 | Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) | |
51371543 | 4060 | { |
954c1994 | 4061 | return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block); |
51371543 GS |
4062 | } |
4063 | ||
954c1994 GS |
4064 | #undef Perl_newMYSUB |
4065 | void | |
4066 | Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) | |
51371543 | 4067 | { |
954c1994 | 4068 | ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block); |
51371543 | 4069 | } |
954c1994 | 4070 | #if defined(USE_ITHREADS) |
51371543 | 4071 | |
954c1994 GS |
4072 | #undef Perl_cx_dup |
4073 | PERL_CONTEXT* | |
8f68c6c6 | 4074 | Perl_cx_dup(pTHXo_ PERL_CONTEXT* cx, I32 ix, I32 max, clone_params* param) |
51371543 | 4075 | { |
8f68c6c6 | 4076 | return ((CPerlObj*)pPerl)->Perl_cx_dup(cx, ix, max, param); |
51371543 GS |
4077 | } |
4078 | ||
954c1994 GS |
4079 | #undef Perl_si_dup |
4080 | PERL_SI* | |
8f68c6c6 | 4081 | Perl_si_dup(pTHXo_ PERL_SI* si, clone_params* param) |
51371543 | 4082 | { |
8f68c6c6 | 4083 | return ((CPerlObj*)pPerl)->Perl_si_dup(si, param); |
51371543 GS |
4084 | } |
4085 | ||
954c1994 GS |
4086 | #undef Perl_ss_dup |
4087 | ANY* | |
8f68c6c6 | 4088 | Perl_ss_dup(pTHXo_ PerlInterpreter* proto_perl, clone_params* param) |
51371543 | 4089 | { |
8f68c6c6 | 4090 | return ((CPerlObj*)pPerl)->Perl_ss_dup(proto_perl, param); |
51371543 GS |
4091 | } |
4092 | ||
954c1994 GS |
4093 | #undef Perl_any_dup |
4094 | void* | |
4095 | Perl_any_dup(pTHXo_ void* v, PerlInterpreter* proto_perl) | |
51371543 | 4096 | { |
954c1994 | 4097 | return ((CPerlObj*)pPerl)->Perl_any_dup(v, proto_perl); |
51371543 GS |
4098 | } |
4099 | ||
954c1994 GS |
4100 | #undef Perl_he_dup |
4101 | HE* | |
8f68c6c6 | 4102 | Perl_he_dup(pTHXo_ HE* e, bool shared, clone_params* param) |
51371543 | 4103 | { |
8f68c6c6 | 4104 | return ((CPerlObj*)pPerl)->Perl_he_dup(e, shared, param); |
51371543 GS |
4105 | } |
4106 | ||
954c1994 GS |
4107 | #undef Perl_re_dup |
4108 | REGEXP* | |
d2f185dc | 4109 | Perl_re_dup(pTHXo_ REGEXP* r, clone_params* param) |
51371543 | 4110 | { |
d2f185dc | 4111 | return ((CPerlObj*)pPerl)->Perl_re_dup(r, param); |
51371543 GS |
4112 | } |
4113 | ||
954c1994 GS |
4114 | #undef Perl_fp_dup |
4115 | PerlIO* | |
4116 | Perl_fp_dup(pTHXo_ PerlIO* fp, char type) | |
51371543 | 4117 | { |
954c1994 | 4118 | return ((CPerlObj*)pPerl)->Perl_fp_dup(fp, type); |
51371543 GS |
4119 | } |
4120 | ||
954c1994 GS |
4121 | #undef Perl_dirp_dup |
4122 | DIR* | |
4123 | Perl_dirp_dup(pTHXo_ DIR* dp) | |
51371543 | 4124 | { |
954c1994 | 4125 | return ((CPerlObj*)pPerl)->Perl_dirp_dup(dp); |
51371543 GS |
4126 | } |
4127 | ||
954c1994 GS |
4128 | #undef Perl_gp_dup |
4129 | GP* | |
8f68c6c6 | 4130 | Perl_gp_dup(pTHXo_ GP* gp, clone_params* param) |
51371543 | 4131 | { |
8f68c6c6 | 4132 | return ((CPerlObj*)pPerl)->Perl_gp_dup(gp, param); |
51371543 GS |
4133 | } |
4134 | ||
954c1994 GS |
4135 | #undef Perl_mg_dup |
4136 | MAGIC* | |
8f68c6c6 | 4137 | Perl_mg_dup(pTHXo_ MAGIC* mg, clone_params* param) |
51371543 | 4138 | { |
8f68c6c6 | 4139 | return ((CPerlObj*)pPerl)->Perl_mg_dup(mg, param); |
51371543 GS |
4140 | } |
4141 | ||
954c1994 GS |
4142 | #undef Perl_sv_dup |
4143 | SV* | |
8f68c6c6 | 4144 | Perl_sv_dup(pTHXo_ SV* sstr, clone_params* param) |
51371543 | 4145 | { |
8f68c6c6 | 4146 | return ((CPerlObj*)pPerl)->Perl_sv_dup(sstr, param); |
51371543 | 4147 | } |
954c1994 | 4148 | #if defined(HAVE_INTERP_INTERN) |
51371543 | 4149 | |
954c1994 GS |
4150 | #undef Perl_sys_intern_dup |
4151 | void | |
4152 | Perl_sys_intern_dup(pTHXo_ struct interp_intern* src, struct interp_intern* dst) | |
51371543 | 4153 | { |
954c1994 | 4154 | ((CPerlObj*)pPerl)->Perl_sys_intern_dup(src, dst); |
51371543 | 4155 | } |
954c1994 | 4156 | #endif |
51371543 | 4157 | |
954c1994 GS |
4158 | #undef Perl_ptr_table_new |
4159 | PTR_TBL_t* | |
4160 | Perl_ptr_table_new(pTHXo) | |
51371543 | 4161 | { |
954c1994 | 4162 | return ((CPerlObj*)pPerl)->Perl_ptr_table_new(); |
51371543 GS |
4163 | } |
4164 | ||
954c1994 GS |
4165 | #undef Perl_ptr_table_fetch |
4166 | void* | |
4167 | Perl_ptr_table_fetch(pTHXo_ PTR_TBL_t *tbl, void *sv) | |
51371543 | 4168 | { |
954c1994 | 4169 | return ((CPerlObj*)pPerl)->Perl_ptr_table_fetch(tbl, sv); |
51371543 GS |
4170 | } |
4171 | ||
954c1994 GS |
4172 | #undef Perl_ptr_table_store |
4173 | void | |
4174 | Perl_ptr_table_store(pTHXo_ PTR_TBL_t *tbl, void *oldsv, void *newsv) | |
51371543 | 4175 | { |
954c1994 | 4176 | ((CPerlObj*)pPerl)->Perl_ptr_table_store(tbl, oldsv, newsv); |
51371543 GS |
4177 | } |
4178 | ||
954c1994 GS |
4179 | #undef Perl_ptr_table_split |
4180 | void | |
4181 | Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl) | |
51371543 | 4182 | { |
954c1994 | 4183 | ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl); |
51371543 | 4184 | } |
690cf326 NIS |
4185 | |
4186 | #undef Perl_ptr_table_clear | |
4187 | void | |
4188 | Perl_ptr_table_clear(pTHXo_ PTR_TBL_t *tbl) | |
4189 | { | |
4190 | ((CPerlObj*)pPerl)->Perl_ptr_table_clear(tbl); | |
4191 | } | |
4192 | ||
4193 | #undef Perl_ptr_table_free | |
4194 | void | |
4195 | Perl_ptr_table_free(pTHXo_ PTR_TBL_t *tbl) | |
4196 | { | |
4197 | ((CPerlObj*)pPerl)->Perl_ptr_table_free(tbl); | |
4198 | } | |
954c1994 | 4199 | #endif |
3dbbd0f5 GS |
4200 | #if defined(HAVE_INTERP_INTERN) |
4201 | ||
4202 | #undef Perl_sys_intern_clear | |
4203 | void | |
4204 | Perl_sys_intern_clear(pTHXo) | |
4205 | { | |
4206 | ((CPerlObj*)pPerl)->Perl_sys_intern_clear(); | |
4207 | } | |
4208 | ||
4209 | #undef Perl_sys_intern_init | |
4210 | void | |
4211 | Perl_sys_intern_init(pTHXo) | |
4212 | { | |
4213 | ((CPerlObj*)pPerl)->Perl_sys_intern_init(); | |
4214 | } | |
4215 | #endif | |
954c1994 GS |
4216 | #if defined(PERL_OBJECT) |
4217 | #else | |
4218 | #endif | |
4219 | #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT) | |
4220 | #endif | |
4221 | #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT) | |
4222 | #endif | |
4223 | #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT) | |
4224 | #endif | |
4225 | #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT) | |
4226 | #endif | |
4227 | #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT) | |
4228 | #endif | |
4229 | #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT) | |
9cbac4c7 DM |
4230 | # if defined(DEBUG_CLOSURES) |
4231 | # endif | |
954c1994 GS |
4232 | # if defined(PL_OP_SLAB_ALLOC) |
4233 | # endif | |
4234 | #endif | |
4235 | #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) | |
4236 | # if defined(IAMSUID) | |
4237 | # endif | |
14dd3ad8 GS |
4238 | #if defined(PERL_FLEXIBLE_EXCEPTIONS) |
4239 | #endif | |
954c1994 GS |
4240 | # if defined(USE_THREADS) |
4241 | # endif | |
4242 | #endif | |
4243 | #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) | |
4244 | #endif | |
a6ec74c1 JH |
4245 | #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT) |
4246 | #endif | |
954c1994 | 4247 | #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) |
14dd3ad8 GS |
4248 | #if defined(PERL_FLEXIBLE_EXCEPTIONS) |
4249 | #endif | |
954c1994 GS |
4250 | #endif |
4251 | #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) | |
4252 | #endif | |
4253 | #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT) | |
4254 | # if !defined(HAS_MKDIR) || !defined(HAS_RMDIR) | |
4255 | # endif | |
4256 | #endif | |
4257 | #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT) | |
1cadc447 SC |
4258 | # ifdef DEBUGGING |
4259 | # endif | |
954c1994 GS |
4260 | #endif |
4261 | #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT) | |
4262 | #endif | |
4263 | #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT) | |
1cadc447 SC |
4264 | # ifdef DEBUGGING |
4265 | # endif | |
954c1994 GS |
4266 | #endif |
4267 | #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT) | |
4268 | #endif | |
cd1ee231 JH |
4269 | #if defined(USE_ITHREADS) && (defined(PERL_IN_SHAREDSV_C) || defined(PERL_DECL_PROT)) |
4270 | ||
4271 | #undef Perl_sharedsv_init | |
4272 | void | |
4273 | Perl_sharedsv_init(pTHXo) | |
4274 | { | |
4275 | ((CPerlObj*)pPerl)->Perl_sharedsv_init(); | |
4276 | } | |
4277 | ||
4278 | #undef Perl_sharedsv_new | |
4279 | shared_sv* | |
4280 | Perl_sharedsv_new(pTHXo) | |
4281 | { | |
4282 | return ((CPerlObj*)pPerl)->Perl_sharedsv_new(); | |
4283 | } | |
4284 | ||
4285 | #undef Perl_sharedsv_find | |
4286 | shared_sv* | |
4287 | Perl_sharedsv_find(pTHXo_ SV* sv) | |
4288 | { | |
4289 | return ((CPerlObj*)pPerl)->Perl_sharedsv_find(sv); | |
4290 | } | |
4291 | ||
4292 | #undef Perl_sharedsv_lock | |
4293 | void | |
4294 | Perl_sharedsv_lock(pTHXo_ shared_sv* ssv) | |
4295 | { | |
4296 | ((CPerlObj*)pPerl)->Perl_sharedsv_lock(ssv); | |
4297 | } | |
4298 | ||
4299 | #undef Perl_sharedsv_unlock | |
4300 | void | |
4301 | Perl_sharedsv_unlock(pTHXo_ shared_sv* ssv) | |
4302 | { | |
4303 | ((CPerlObj*)pPerl)->Perl_sharedsv_unlock(ssv); | |
4304 | } | |
4305 | ||
4306 | #undef Perl_sharedsv_thrcnt_inc | |
4307 | void | |
4308 | Perl_sharedsv_thrcnt_inc(pTHXo_ shared_sv* ssv) | |
4309 | { | |
4310 | ((CPerlObj*)pPerl)->Perl_sharedsv_thrcnt_inc(ssv); | |
4311 | } | |
4312 | ||
4313 | #undef Perl_sharedsv_thrcnt_dec | |
4314 | void | |
4315 | Perl_sharedsv_thrcnt_dec(pTHXo_ shared_sv* ssv) | |
4316 | { | |
4317 | ((CPerlObj*)pPerl)->Perl_sharedsv_thrcnt_dec(ssv); | |
4318 | } | |
4319 | #endif | |
954c1994 | 4320 | #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) |
1cadc447 | 4321 | # ifdef DEBUGGING |
954c1994 | 4322 | # endif |
7ea3cd40 NIS |
4323 | # if !defined(NV_PRESERVES_UV) |
4324 | # endif | |
9cbac4c7 DM |
4325 | # if defined(USE_ITHREADS) |
4326 | # endif | |
954c1994 GS |
4327 | #endif |
4328 | #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) | |
1cadc447 SC |
4329 | # if defined(DEBUGGING) |
4330 | # endif | |
155aba94 GS |
4331 | #if 0 |
4332 | #endif | |
954c1994 GS |
4333 | # if defined(CRIPPLED_CC) |
4334 | # endif | |
4335 | # if defined(PERL_CR_FILTER) | |
4336 | # endif | |
4337 | #endif | |
4338 | #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) | |
4339 | #endif | |
98994639 HS |
4340 | #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT) |
4341 | #endif | |
954c1994 GS |
4342 | #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) |
4343 | # if defined(LEAKTEST) | |
4344 | # endif | |
4345 | #endif | |
4346 | #if defined(PERL_OBJECT) | |
4347 | #endif | |
51371543 | 4348 | |
8d6d96c1 HS |
4349 | #undef Perl_sv_setsv_flags |
4350 | void | |
4351 | Perl_sv_setsv_flags(pTHXo_ SV* dsv, SV* ssv, I32 flags) | |
4352 | { | |
4353 | ((CPerlObj*)pPerl)->Perl_sv_setsv_flags(dsv, ssv, flags); | |
4354 | } | |
4355 | ||
4356 | #undef Perl_sv_catpvn_flags | |
4357 | void | |
4358 | Perl_sv_catpvn_flags(pTHXo_ SV* sv, const char* ptr, STRLEN len, I32 flags) | |
4359 | { | |
4360 | ((CPerlObj*)pPerl)->Perl_sv_catpvn_flags(sv, ptr, len, flags); | |
4361 | } | |
4362 | ||
4363 | #undef Perl_sv_catsv_flags | |
4364 | void | |
4365 | Perl_sv_catsv_flags(pTHXo_ SV* dsv, SV* ssv, I32 flags) | |
4366 | { | |
4367 | ((CPerlObj*)pPerl)->Perl_sv_catsv_flags(dsv, ssv, flags); | |
4368 | } | |
4369 | ||
4370 | #undef Perl_sv_utf8_upgrade_flags | |
4371 | STRLEN | |
4372 | Perl_sv_utf8_upgrade_flags(pTHXo_ SV *sv, I32 flags) | |
4373 | { | |
4374 | return ((CPerlObj*)pPerl)->Perl_sv_utf8_upgrade_flags(sv, flags); | |
4375 | } | |
4376 | ||
4377 | #undef Perl_sv_pvn_force_flags | |
4378 | char* | |
4379 | Perl_sv_pvn_force_flags(pTHXo_ SV* sv, STRLEN* lp, I32 flags) | |
4380 | { | |
4381 | return ((CPerlObj*)pPerl)->Perl_sv_pvn_force_flags(sv, lp, flags); | |
4382 | } | |
4383 | ||
4384 | #undef Perl_sv_2pv_flags | |
4385 | char* | |
4386 | Perl_sv_2pv_flags(pTHXo_ SV* sv, STRLEN* lp, I32 flags) | |
4387 | { | |
4388 | return ((CPerlObj*)pPerl)->Perl_sv_2pv_flags(sv, lp, flags); | |
4389 | } | |
4390 | ||
1f727ac0 HS |
4391 | #undef Perl_my_atof2 |
4392 | char* | |
4393 | Perl_my_atof2(pTHXo_ const char *s, NV* value) | |
4394 | { | |
4395 | return ((CPerlObj*)pPerl)->Perl_my_atof2(s, value); | |
4396 | } | |
4397 | ||
c5be433b GS |
4398 | #undef Perl_fprintf_nocontext |
4399 | int | |
4400 | Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...) | |
4401 | { | |
4402 | dTHXo; | |
4403 | va_list(arglist); | |
4404 | va_start(arglist, format); | |
1d7c1841 | 4405 | return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist); |
c5be433b GS |
4406 | } |
4407 | ||
b0316773 JH |
4408 | #undef Perl_printf_nocontext |
4409 | int | |
4410 | Perl_printf_nocontext(const char *format, ...) | |
4411 | { | |
4412 | dTHXo; | |
4413 | va_list(arglist); | |
4414 | va_start(arglist, format); | |
4415 | return (*PL_StdIO->pVprintf)(PL_StdIO, PerlIO_stdout(), format, arglist); | |
4416 | } | |
4417 | ||
51371543 GS |
4418 | END_EXTERN_C |
4419 | ||
4420 | #endif /* PERL_OBJECT */ | |
6f4183fe | 4421 | #endif /* PERL_OBJECT || MULTIPLICITY */ |