X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlapi.c;h=6a54b94b22d4eeed070420c4b99e0989daa3435a;hb=18ef8beac527ca204cb2b7f96c5a4c585c8ee174;hp=f9b37aac862fd3796ae5ca61917b47f3e00fea46;hpb=954c1994944eafa74aaac1bab94e820b6e447da9;p=p5sagit%2Fp5-mst-13.2.git diff --git a/perlapi.c b/perlapi.c index f9b37aa..6a54b94 100644 --- a/perlapi.c +++ b/perlapi.c @@ -41,6 +41,9 @@ START_EXTERN_C { return &(PL_##v); } #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \ { return &(PL_##v); } +#undef PERLVARIC +#define PERLVARIC(v,t,i) const t* Perl_##v##_ptr(pTHXo) \ + { return (const t *)&(PL_##v); } #include "perlvars.h" #undef PERLVAR @@ -53,7 +56,6 @@ START_EXTERN_C /* C-API layer for PERL_OBJECT */ #if defined(PERL_IMPLICIT_SYS) -#else #endif #if defined(USE_ITHREADS) # if defined(PERL_IMPLICIT_SYS) @@ -83,6 +85,13 @@ Perl_Gv_AMupdate(pTHXo_ HV* stash) return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash); } +#undef Perl_apply_attrs_string +void +Perl_apply_attrs_string(pTHXo_ char *stashpv, CV *cv, char *attrstr, STRLEN len) +{ + ((CPerlObj*)pPerl)->Perl_apply_attrs_string(stashpv, cv, attrstr, len); +} + #undef Perl_avhv_delete_ent SV* Perl_avhv_delete_ent(pTHXo_ AV *ar, SV* keysv, I32 flags, U32 hash) @@ -104,6 +113,13 @@ Perl_avhv_fetch_ent(pTHXo_ AV *ar, SV* keysv, I32 lval, U32 hash) return ((CPerlObj*)pPerl)->Perl_avhv_fetch_ent(ar, keysv, lval, hash); } +#undef Perl_avhv_store_ent +SV** +Perl_avhv_store_ent(pTHXo_ AV *ar, SV* keysv, SV* val, U32 hash) +{ + return ((CPerlObj*)pPerl)->Perl_avhv_store_ent(ar, keysv, val, hash); +} + #undef Perl_avhv_iternext HE* Perl_avhv_iternext(pTHXo_ AV *ar) @@ -244,6 +260,13 @@ Perl_block_gimme(pTHXo) return ((CPerlObj*)pPerl)->Perl_block_gimme(); } +#undef Perl_call_list +void +Perl_call_list(pTHXo_ I32 oldscope, AV* av_list) +{ + ((CPerlObj*)pPerl)->Perl_call_list(oldscope, av_list); +} + #undef Perl_cast_ulong U32 Perl_cast_ulong(pTHXo_ NV f) @@ -281,6 +304,13 @@ Perl_my_chsize(pTHXo_ int fd, Off_t length) } #endif #if defined(USE_THREADS) + +#undef Perl_condpair_magic +MAGIC* +Perl_condpair_magic(pTHXo_ SV *sv) +{ + return ((CPerlObj*)pPerl)->Perl_condpair_magic(sv); +} #endif #undef Perl_croak @@ -351,6 +381,17 @@ Perl_form_nocontext(const char* pat, ...) } +#undef Perl_load_module_nocontext +void +Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...) +{ + dTHXo; + va_list args; + va_start(args, ver); + ((CPerlObj*)pPerl)->Perl_vload_module(flags, name, ver, &args); + va_end(args); +} + #undef Perl_mess_nocontext SV* Perl_mess_nocontext(const char* pat, ...) @@ -448,6 +489,20 @@ Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...) #undef Perl_fprintf_nocontext #endif +#undef Perl_cv_const_sv +SV* +Perl_cv_const_sv(pTHXo_ CV* cv) +{ + return ((CPerlObj*)pPerl)->Perl_cv_const_sv(cv); +} + +#undef Perl_cv_undef +void +Perl_cv_undef(pTHXo_ CV* cv) +{ + ((CPerlObj*)pPerl)->Perl_cv_undef(cv); +} + #undef Perl_cx_dump void Perl_cx_dump(pTHXo_ PERL_CONTEXT* cs) @@ -549,17 +604,51 @@ Perl_delimcpy(pTHXo_ char* to, char* toend, char* from, char* fromend, int delim return ((CPerlObj*)pPerl)->Perl_delimcpy(to, toend, from, fromend, delim, retlen); } +#undef Perl_die +OP* +Perl_die(pTHXo_ const char* pat, ...) +{ + OP* retval; + va_list args; + va_start(args, pat); + retval = ((CPerlObj*)pPerl)->Perl_vdie(pat, &args); + va_end(args); + return retval; + +} + +#undef Perl_dounwind +void +Perl_dounwind(pTHXo_ I32 cxix) +{ + ((CPerlObj*)pPerl)->Perl_dounwind(cxix); +} + #undef Perl_do_binmode int -Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int flag) +Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int mode) { - return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag); + return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, mode); +} + +#undef Perl_do_close +bool +Perl_do_close(pTHXo_ GV* gv, bool not_implicit) +{ + return ((CPerlObj*)pPerl)->Perl_do_close(gv, not_implicit); } #if !defined(WIN32) #endif #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) #endif +#undef Perl_do_join +void +Perl_do_join(pTHXo_ SV* sv, SV* del, SV** mark, SV** sp) +{ + ((CPerlObj*)pPerl)->Perl_do_join(sv, del, mark, sp); +} + #undef Perl_do_open bool Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp) @@ -985,6 +1074,13 @@ Perl_ibcmp_locale(pTHXo_ const char* a, const char* b, I32 len) return ((CPerlObj*)pPerl)->Perl_ibcmp_locale(a, b, len); } +#undef Perl_init_stacks +void +Perl_init_stacks(pTHXo) +{ + ((CPerlObj*)pPerl)->Perl_init_stacks(); +} + #undef Perl_instr char* Perl_instr(pTHXo_ const char* big, const char* little) @@ -1230,6 +1326,20 @@ Perl_to_uni_lower_lc(pTHXo_ U32 c) return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c); } +#undef Perl_is_utf8_char +int +Perl_is_utf8_char(pTHXo_ U8 *p) +{ + return ((CPerlObj*)pPerl)->Perl_is_utf8_char(p); +} + +#undef Perl_is_utf8_string +bool +Perl_is_utf8_string(pTHXo_ U8 *s, STRLEN len) +{ + return ((CPerlObj*)pPerl)->Perl_is_utf8_string(s, len); +} + #undef Perl_is_utf8_alnum bool Perl_is_utf8_alnum(pTHXo_ U8 *p) @@ -1335,6 +1445,30 @@ Perl_is_utf8_mark(pTHXo_ U8 *p) return ((CPerlObj*)pPerl)->Perl_is_utf8_mark(p); } +#undef Perl_leave_scope +void +Perl_leave_scope(pTHXo_ I32 base) +{ + ((CPerlObj*)pPerl)->Perl_leave_scope(base); +} + +#undef Perl_load_module +void +Perl_load_module(pTHXo_ U32 flags, SV* name, SV* ver, ...) +{ + va_list args; + va_start(args, ver); + ((CPerlObj*)pPerl)->Perl_vload_module(flags, name, ver, &args); + va_end(args); +} + +#undef Perl_vload_module +void +Perl_vload_module(pTHXo_ U32 flags, SV* name, SV* ver, va_list* args) +{ + ((CPerlObj*)pPerl)->Perl_vload_module(flags, name, ver, args); +} + #undef Perl_looks_like_number I32 Perl_looks_like_number(pTHXo_ SV* sv) @@ -1438,6 +1572,13 @@ Perl_mg_size(pTHXo_ SV* sv) return ((CPerlObj*)pPerl)->Perl_mg_size(sv); } +#undef Perl_moreswitches +char* +Perl_moreswitches(pTHXo_ char* s) +{ + return ((CPerlObj*)pPerl)->Perl_moreswitches(s); +} + #undef Perl_my_atof NV Perl_my_atof(pTHXo_ const char *s) @@ -1846,6 +1987,13 @@ Perl_newSViv(pTHXo_ IV i) return ((CPerlObj*)pPerl)->Perl_newSViv(i); } +#undef Perl_newSVuv +SV* +Perl_newSVuv(pTHXo_ UV u) +{ + return ((CPerlObj*)pPerl)->Perl_newSVuv(u); +} + #undef Perl_newSVnv SV* Perl_newSVnv(pTHXo_ NV n) @@ -1915,12 +2063,33 @@ Perl_newWHILEOP(pTHXo_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* return ((CPerlObj*)pPerl)->Perl_newWHILEOP(flags, debuggable, loop, whileline, expr, block, cont); } +#undef Perl_new_stackinfo +PERL_SI* +Perl_new_stackinfo(pTHXo_ I32 stitems, I32 cxitems) +{ + return ((CPerlObj*)pPerl)->Perl_new_stackinfo(stitems, cxitems); +} + #undef Perl_ninstr char* Perl_ninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend) { return ((CPerlObj*)pPerl)->Perl_ninstr(big, bigend, little, lend); } + +#undef Perl_op_free +void +Perl_op_free(pTHXo_ OP* arg) +{ + ((CPerlObj*)pPerl)->Perl_op_free(arg); +} + +#undef Perl_pad_sv +SV* +Perl_pad_sv(pTHXo_ PADOFFSET po) +{ + return ((CPerlObj*)pPerl)->Perl_pad_sv(po); +} #if defined(PERL_OBJECT) #undef Perl_construct @@ -2045,6 +2214,20 @@ Perl_get_cv(pTHXo_ const char* name, I32 create) return ((CPerlObj*)pPerl)->Perl_get_cv(name, create); } +#undef Perl_init_i18nl10n +int +Perl_init_i18nl10n(pTHXo_ int printwarn) +{ + return ((CPerlObj*)pPerl)->Perl_init_i18nl10n(printwarn); +} + +#undef Perl_init_i18nl14n +int +Perl_init_i18nl14n(pTHXo_ int printwarn) +{ + return ((CPerlObj*)pPerl)->Perl_init_i18nl14n(printwarn); +} + #undef Perl_new_collate void Perl_new_collate(pTHXo_ const char* newcoll) @@ -2094,6 +2277,13 @@ Perl_require_pv(pTHXo_ const char* pv) ((CPerlObj*)pPerl)->Perl_require_pv(pv); } +#undef Perl_pmflag +void +Perl_pmflag(pTHXo_ U16* pmfl, int ch) +{ + ((CPerlObj*)pPerl)->Perl_pmflag(pmfl, ch); +} + #undef Perl_pop_scope void Perl_pop_scope(pTHXo) @@ -2115,12 +2305,75 @@ Perl_regdump(pTHXo_ regexp* r) ((CPerlObj*)pPerl)->Perl_regdump(r); } +#undef Perl_pregexec +I32 +Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave) +{ + return ((CPerlObj*)pPerl)->Perl_pregexec(prog, stringarg, strend, strbeg, minend, screamer, nosave); +} + +#undef Perl_pregfree +void +Perl_pregfree(pTHXo_ struct regexp* r) +{ + ((CPerlObj*)pPerl)->Perl_pregfree(r); +} + +#undef Perl_pregcomp +regexp* +Perl_pregcomp(pTHXo_ char* exp, char* xend, PMOP* pm) +{ + return ((CPerlObj*)pPerl)->Perl_pregcomp(exp, xend, pm); +} + +#undef Perl_re_intuit_start +char* +Perl_re_intuit_start(pTHXo_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data) +{ + return ((CPerlObj*)pPerl)->Perl_re_intuit_start(prog, sv, strpos, strend, flags, data); +} + +#undef Perl_re_intuit_string +SV* +Perl_re_intuit_string(pTHXo_ regexp* prog) +{ + return ((CPerlObj*)pPerl)->Perl_re_intuit_string(prog); +} + +#undef Perl_regexec_flags +I32 +Perl_regexec_flags(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags) +{ + return ((CPerlObj*)pPerl)->Perl_regexec_flags(prog, stringarg, strend, strbeg, minend, screamer, data, flags); +} + +#undef Perl_regnext +regnode* +Perl_regnext(pTHXo_ regnode* p) +{ + return ((CPerlObj*)pPerl)->Perl_regnext(p); +} + +#undef Perl_repeatcpy +void +Perl_repeatcpy(pTHXo_ char* to, const char* from, I32 len, I32 count) +{ + ((CPerlObj*)pPerl)->Perl_repeatcpy(to, from, len, count); +} + #undef Perl_rninstr char* Perl_rninstr(pTHXo_ const char* big, const char* bigend, const char* little, const char* lend) { return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend); } + +#undef Perl_rsignal +Sighandler_t +Perl_rsignal(pTHXo_ int i, Sighandler_t t) +{ + return ((CPerlObj*)pPerl)->Perl_rsignal(i, t); +} #if !defined(HAS_RENAME) #endif @@ -2222,6 +2475,13 @@ Perl_save_generic_svref(pTHXo_ SV** sptr) ((CPerlObj*)pPerl)->Perl_save_generic_svref(sptr); } +#undef Perl_save_generic_pvref +void +Perl_save_generic_pvref(pTHXo_ char** str) +{ + ((CPerlObj*)pPerl)->Perl_save_generic_pvref(str); +} + #undef Perl_save_gp void Perl_save_gp(pTHXo_ GV* gv, I32 empty) @@ -2368,9 +2628,51 @@ Perl_save_threadsv(pTHXo_ PADOFFSET i) { return ((CPerlObj*)pPerl)->Perl_save_threadsv(i); } + +#undef Perl_scan_bin +NV +Perl_scan_bin(pTHXo_ char* start, I32 len, I32* retlen) +{ + return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen); +} + +#undef Perl_scan_hex +NV +Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen) +{ + return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen); +} + +#undef Perl_scan_num +char* +Perl_scan_num(pTHXo_ char* s) +{ + return ((CPerlObj*)pPerl)->Perl_scan_num(s); +} + +#undef Perl_scan_oct +NV +Perl_scan_oct(pTHXo_ char* start, I32 len, I32* retlen) +{ + return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen); +} + +#undef Perl_screaminstr +char* +Perl_screaminstr(pTHXo_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last) +{ + return ((CPerlObj*)pPerl)->Perl_screaminstr(bigsv, littlesv, start_shift, end_shift, state, last); +} #if !defined(VMS) #endif +#undef Perl_sharepvn +char* +Perl_sharepvn(pTHXo_ const char* sv, I32 len, U32 hash) +{ + return ((CPerlObj*)pPerl)->Perl_sharepvn(sv, len, hash); +} + #undef Perl_stack_grow SV** Perl_stack_grow(pTHXo_ SV** sp, SV**p, int n) @@ -2593,6 +2895,13 @@ Perl_sv_collxfrm(pTHXo_ SV* sv, STRLEN* nxp) } #endif +#undef Perl_sv_compile_2op +OP* +Perl_sv_compile_2op(pTHXo_ SV* sv, OP** startp, char* code, AV** avp) +{ + return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp); +} + #undef Perl_sv_dec void Perl_sv_dec(pTHXo_ SV* sv) @@ -2628,6 +2937,13 @@ Perl_sv_free(pTHXo_ SV* sv) ((CPerlObj*)pPerl)->Perl_sv_free(sv); } +#undef Perl_sv_gets +char* +Perl_sv_gets(pTHXo_ SV* sv, PerlIO* fp, I32 append) +{ + return ((CPerlObj*)pPerl)->Perl_sv_gets(sv, fp, append); +} + #undef Perl_sv_grow char* Perl_sv_grow(pTHXo_ SV* sv, STRLEN newlen) @@ -2932,6 +3248,27 @@ Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, S ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted); } +#undef Perl_str_to_version +NV +Perl_str_to_version(pTHXo_ SV *sv) +{ + return ((CPerlObj*)pPerl)->Perl_str_to_version(sv); +} + +#undef Perl_swash_init +SV* +Perl_swash_init(pTHXo_ char* pkg, char* name, SV* listsv, I32 minbits, I32 none) +{ + return ((CPerlObj*)pPerl)->Perl_swash_init(pkg, name, listsv, minbits, none); +} + +#undef Perl_swash_fetch +UV +Perl_swash_fetch(pTHXo_ SV *sv, U8 *ptr) +{ + return ((CPerlObj*)pPerl)->Perl_swash_fetch(sv, ptr); +} + #undef Perl_taint_env void Perl_taint_env(pTHXo) @@ -2976,8 +3313,22 @@ Perl_unlnk(pTHXo_ char* f) } #endif #if defined(USE_THREADS) + +#undef Perl_unlock_condpair +void +Perl_unlock_condpair(pTHXo_ void* svv) +{ + ((CPerlObj*)pPerl)->Perl_unlock_condpair(svv); +} #endif +#undef Perl_unsharepvn +void +Perl_unsharepvn(pTHXo_ const char* sv, I32 len, U32 hash) +{ + ((CPerlObj*)pPerl)->Perl_unsharepvn(sv, len, hash); +} + #undef Perl_utf16_to_utf8 U8* Perl_utf16_to_utf8(pTHXo_ U16* p, U8 *d, I32 bytelen) @@ -3006,6 +3357,20 @@ Perl_utf8_hop(pTHXo_ U8 *s, I32 off) return ((CPerlObj*)pPerl)->Perl_utf8_hop(s, off); } +#undef Perl_utf8_to_bytes +U8* +Perl_utf8_to_bytes(pTHXo_ U8 *s, STRLEN len) +{ + return ((CPerlObj*)pPerl)->Perl_utf8_to_bytes(s, len); +} + +#undef Perl_bytes_to_utf8 +U8* +Perl_bytes_to_utf8(pTHXo_ U8 *s, STRLEN *len) +{ + return ((CPerlObj*)pPerl)->Perl_bytes_to_utf8(s, len); +} + #undef Perl_utf8_to_uv UV Perl_utf8_to_uv(pTHXo_ U8 *s, I32* retlen) @@ -3053,6 +3418,13 @@ Perl_vwarner(pTHXo_ U32 err, const char* pat, va_list* args) { ((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args); } + +#undef Perl_whichsig +I32 +Perl_whichsig(pTHXo_ char* sig) +{ + return ((CPerlObj*)pPerl)->Perl_whichsig(sig); +} #if defined(USE_PURE_BISON) #else #endif @@ -3064,6 +3436,13 @@ Perl_dump_mstats(pTHXo_ char* s) { ((CPerlObj*)pPerl)->Perl_dump_mstats(s); } + +#undef Perl_get_mstats +int +Perl_get_mstats(pTHXo_ perl_mstats_t *buf, int buflen, int level) +{ + return ((CPerlObj*)pPerl)->Perl_get_mstats(buf, buflen, level); +} #endif #undef Perl_safesysmalloc @@ -3154,6 +3533,15 @@ Perl_runops_debug(pTHXo) { return ((CPerlObj*)pPerl)->Perl_runops_debug(); } +#if defined(USE_THREADS) + +#undef Perl_sv_lock +SV* +Perl_sv_lock(pTHXo_ SV *sv) +{ + return ((CPerlObj*)pPerl)->Perl_sv_lock(sv); +} +#endif #undef Perl_sv_catpvf_mg void @@ -3345,6 +3733,7 @@ Perl_magic_dump(pTHXo_ MAGIC *mg) { ((CPerlObj*)pPerl)->Perl_magic_dump(mg); } +#if defined(PERL_FLEXIBLE_EXCEPTIONS) #undef Perl_default_protect void* @@ -3365,6 +3754,7 @@ Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t bod { return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args); } +#endif #undef Perl_reginitcolors void @@ -3415,6 +3805,34 @@ Perl_sv_pvbyte(pTHXo_ SV *sv) return ((CPerlObj*)pPerl)->Perl_sv_pvbyte(sv); } +#undef Perl_sv_utf8_upgrade +void +Perl_sv_utf8_upgrade(pTHXo_ SV *sv) +{ + ((CPerlObj*)pPerl)->Perl_sv_utf8_upgrade(sv); +} + +#undef Perl_sv_utf8_downgrade +bool +Perl_sv_utf8_downgrade(pTHXo_ SV *sv, bool fail_ok) +{ + return ((CPerlObj*)pPerl)->Perl_sv_utf8_downgrade(sv, fail_ok); +} + +#undef Perl_sv_utf8_encode +void +Perl_sv_utf8_encode(pTHXo_ SV *sv) +{ + ((CPerlObj*)pPerl)->Perl_sv_utf8_encode(sv); +} + +#undef Perl_sv_utf8_decode +bool +Perl_sv_utf8_decode(pTHXo_ SV *sv) +{ + return ((CPerlObj*)pPerl)->Perl_sv_utf8_decode(sv); +} + #undef Perl_sv_force_normal void Perl_sv_force_normal(pTHXo_ SV *sv) @@ -3572,6 +3990,22 @@ Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl) ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl); } #endif +#if defined(HAVE_INTERP_INTERN) + +#undef Perl_sys_intern_clear +void +Perl_sys_intern_clear(pTHXo) +{ + ((CPerlObj*)pPerl)->Perl_sys_intern_clear(); +} + +#undef Perl_sys_intern_init +void +Perl_sys_intern_init(pTHXo) +{ + ((CPerlObj*)pPerl)->Perl_sys_intern_init(); +} +#endif #if defined(PERL_OBJECT) #else #endif @@ -3592,12 +4026,16 @@ Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl) #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) # if defined(IAMSUID) # endif +#if defined(PERL_FLEXIBLE_EXCEPTIONS) +#endif # if defined(USE_THREADS) # endif #endif #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) #endif #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) +#if defined(PERL_FLEXIBLE_EXCEPTIONS) +#endif #endif #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) #endif @@ -3614,13 +4052,12 @@ Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl) #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT) #endif #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) -# if defined(PURIFY) -# else -# endif # if defined(DEBUGGING) # endif #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) +#if 0 +#endif # if defined(CRIPPLED_CC) # endif # if defined(PERL_CR_FILTER)