Home
last modified time | relevance | path

Searched refs:PL_compiling (Results 1 – 25 of 28) sorted by relevance

12

/openbsd-src/gnu/usr.bin/perl/
H A Dfeature.h51 (PL_curcop == &PL_compiling ? PL_hints : PL_curcop->cop_hints)
53 to PL_compiling.cop_hints */
229 #define SAVEFEATUREBITS() SAVEI32(PL_compiling.cop_features)
231 #define CLEARFEATUREBITS() (PL_compiling.cop_features = 0)
271 assert(PL_curcop == &PL_compiling); in S_enable_feature_bundle()
444 PL_compiling.cop_features |= mask; in S_magic_sethint_feature()
446 PL_compiling.cop_features &= ~mask; in S_magic_sethint_feature()
599 PL_compiling.cop_features = 0;
605 PL_compiling.cop_features |= fb->mask;
H A Dmg.c1081 Perl_emulate_cop_io(aTHX_ &PL_compiling, sv); in Perl_magic_get()
1134 if (PL_compiling.cop_warnings == pWARN_NONE) { in Perl_magic_get()
1137 else if (PL_compiling.cop_warnings == pWARN_STD) { in Perl_magic_get()
1140 else if (PL_compiling.cop_warnings == pWARN_ALL) { in Perl_magic_get()
1144 sv_setpvn(sv, PL_compiling.cop_warnings, in Perl_magic_get()
1145 RCPV_LEN(PL_compiling.cop_warnings)); in Perl_magic_get()
3124 PL_compiling.cop_hints |= HINT_LEXICAL_IO_IN | HINT_LEXICAL_IO_OUT; in Perl_magic_set()
3169 free_and_set_cop_warnings(&PL_compiling, pWARN_STD); in Perl_magic_set()
3181 free_and_set_cop_warnings(&PL_compiling, pWARN_NONE); in Perl_magic_set()
3183 free_and_set_cop_warnings(&PL_compiling, pWARN_AL in Perl_magic_set()
[all...]
H A Dperl.c241 PL_curcop = &PL_compiling; /* needed by ckWARN, right away */ in perl_construct()
406 PL_compiling.cop_file = NULL; in perl_construct()
407 PL_compiling.cop_warnings = NULL; in perl_construct()
896 PL_curcop = &PL_compiling; in perl_destruct()
959 CopFILE_free(&PL_compiling); in perl_destruct()
1269 free_and_set_cop_warnings(&PL_compiling, NULL); in perl_destruct()
1270 cophh_free(CopHINTHASH_get(&PL_compiling)); in perl_destruct()
1271 CopHINTHASH_set(&PL_compiling, cophh_new_empty()); in perl_destruct()
1272 CopFILE_free(&PL_compiling); in perl_destruct()
3905 free_and_set_cop_warnings(&PL_compiling, pWARN_AL in S_minus_v()
[all...]
H A Dpp_ctl.c3813 PL_curcop == &PL_compiling in S_doeval_compile()
4049 PL_curcop = &PL_compiling; in S_check_type_and_open()
4097 PL_compiling.cop_warnings = pWARN_ALL ;
4099 PL_compiling.cop_warnings = pWARN_NONE ;
4101 PL_compiling.cop_warnings = pWARN_STD ;
4104 PL_compiling.cop_warnings = in S_path_is_searchable()
4106 cophh_free(CopHINTHASH_get(&PL_compiling)); in S_path_is_searchable()
4111 PL_compiling.cop_hints_hash in S_path_is_searchable()
4114 assert(Perl_cop_fetch_label(aTHX_ &PL_compiling, NULL, NULL) == NULL); in S_path_is_searchable()
4117 PL_compiling in S_path_is_searchable()
[all...]
H A Dscope.c907 COPHH *save_cophh = cophh_copy(CopHINTHASH_get(&PL_compiling));
1621 cophh_free(CopHINTHASH_get(&PL_compiling)); in Perl_leave_scope()
1622 CopHINTHASH_set(&PL_compiling, (COPHH*)a1.any_ptr); in Perl_leave_scope()
1713 /* NOTE: we can't put &PL_compiling or PL_curcop on the save in Perl_leave_scope()
1719 free_and_set_cop_warnings(&PL_compiling, a0.any_pv);
H A Dscope.h227 #define SAVECOMPILEWARNINGS() save_pushptr(PL_compiling.cop_warnings, SAVEt_COMPILE_WARNINGS)
H A Dop.c155 C<Perl_magic_sethint> updates C<PL_compiling.cop_hints_hash> with a store
157 saves the current C<PL_compiling.cop_hints_hash> on the save stack, so that
2095 * setting it to PL_compiling is better than do nothing */
2096 PL_curcop = &PL_compiling;
2638 * setting it to PL_compiling is better than do nothing */ in S_voidnonfinal()
2639 PL_curcop = &PL_compiling; in S_voidnonfinal()
2675 PL_curcop = &PL_compiling; in S_modkids()
4542 PL_compiling.cop_seq = PL_cop_seqmax; in Perl_block_end()
4548 PL_compiling.cop_warnings = DUP_WARNINGS(PL_compiling in Perl_block_end()
[all...]
H A Dcop.h1348 #define IN_PERL_COMPILETIME cBOOL(PL_curcop == &PL_compiling)
1349 #define IN_PERL_RUNTIME cBOOL(PL_curcop != &PL_compiling)
H A Dembedvar.h51 # define PL_compiling (vTHX->Icompiling) macro
H A Dpad.c1458 if (PL_compiling.cop_seq) { in Perl_intro_my()
1459 seq = PL_compiling.cop_seq; in Perl_intro_my()
1460 PL_compiling.cop_seq = 0; in Perl_intro_my()
H A Dsv.c15727 PL_compiling = proto_perl->Icompiling;
15947 PL_compiling.cop_file = rcpv_copy(proto_perl->Icompiling.cop_file);
15949 ptr_table_store(PL_ptr_table, &proto_perl->Icompiling, &PL_compiling);
15950 PL_compiling.cop_warnings = DUP_WARNINGS(PL_compiling.cop_warnings);
15951 CopHINTHASH_set(&PL_compiling, cophh_copy(CopHINTHASH_get(&PL_compiling)));
H A Dperly.y168 PL_compiling.cop_seq = 0;
H A Dperly.act20 PL_compiling.cop_seq = 0;
H A Dgv.c2817 assert(PL_curcop == &PL_compiling); in Perl_gv_check()
/openbsd-src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/
H A Dvariables24 PL_compiling
105 # define PL_compiling compiling
386 ppp_TESTVAR(PL_compiling);
H A Dcall146 SvREADONLY() if PL_compiling is true. Current perls take care in
148 force_normal_flags(). This seems a better fix than fudging PL_compiling
H A Dgrok23 __UNDEFINED__ IN_PERL_COMPILETIME (PL_curcop == &PL_compiling)
/openbsd-src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/
H A Dppport.fnc52 AmnT|void|PL_compiling
/openbsd-src/gnu/usr.bin/perl/regen/
H A Dfeature.pl318 (PL_curcop == &PL_compiling ? PL_hints : PL_curcop->cop_hints)
320 to PL_compiling.cop_hints */
394 #define SAVEFEATUREBITS() SAVEI32(PL_compiling.cop_features)
396 #define CLEARFEATUREBITS() (PL_compiling.cop_features = 0)
427 assert(PL_curcop == &PL_compiling);
483 PL_compiling.cop_features |= mask;
485 PL_compiling.cop_features &= ~mask;
520 PL_compiling.cop_features = 0;
526 PL_compiling.cop_features |= fb->mask;
/openbsd-src/gnu/usr.bin/perl/cpan/Compress-Raw-Bzip2/
H A DBzip2.xs313 if (SvREADONLY(sv) && PL_curcop != &PL_compiling)
/openbsd-src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/todo/
H A D5003007532 PL_compiling # T
/openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/
H A DAPItest.xs3770 cop = &PL_compiling;
3841 (sv = cop_hints_fetch_pvs(&PL_compiling, KEY, 0)) && \
3888 if (SvIV(cop_hints_fetch_pvs(&PL_compiling, "t0", 0)) != 123)
3893 if (SvIV(cop_hints_fetch_pvs(&PL_compiling, "t0", 0)) != 123)
3898 if (SvIV(cop_hints_fetch_pvs(&PL_compiling, "t0", 0)) != 789)
4280 PL_curcop = &PL_compiling;
/openbsd-src/gnu/usr.bin/perl/cpan/Compress-Raw-Zlib/
H A DZlib.xs781 if (SvREADONLY(sv) && PL_curcop != &PL_compiling)
/openbsd-src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/base/
H A D5005000398 PL_compiling # M added by devel/scanprov
/openbsd-src/gnu/usr.bin/perl/cpan/Term-ReadKey/
H A Dppport.h12124 # define PL_compiling compiling macro
16591 # define IN_PERL_COMPILETIME (PL_curcop == &PL_compiling)

12