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