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