Lines Matching defs:proto_perl
9747 SV *sv = ¶m->proto_perl->Isv_no; /* just need SvREADONLY-ness */
10303 Perl_any_dup(pTHX_ void *v, PerlInterpreter *proto_perl)
10316 if (v >= (void*)proto_perl && v < (void*)(proto_perl+1))
10317 ret = (void*)(((char*)aTHX) + (((char*)v) - (char*)proto_perl));
10328 Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
10330 ANY *ss = proto_perl->Tsavestack;
10331 I32 ix = proto_perl->Tsavestack_ix;
10332 I32 max = proto_perl->Tsavestack_max;
10371 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10377 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10384 TOPPTR(nss,ix) = svp_dup_inc((SV**)ptr, proto_perl);/* XXXXX */
10400 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10406 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10414 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10420 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10426 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10432 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10434 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10438 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10444 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10450 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10517 TOPPTR(nss,ix) = any_dup(ptr, proto_perl); /* XXX quite arbitrary */
10519 TOPDPTR(nss,ix) = (void (*)(void*))any_dup((void *)dptr, proto_perl);
10523 TOPPTR(nss,ix) = any_dup(ptr, proto_perl); /* XXX quite arbitrary */
10525 TOPDXPTR(nss,ix) = (void (*)(pTHX_ void*))any_dup((void *)dxptr, proto_perl);
10569 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10575 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
10626 perl_clone_host(PerlInterpreter* proto_perl, UV flags);
10629 perl_clone(PerlInterpreter *proto_perl, UV flags)
10637 return perl_clone_host(proto_perl,flags);
10639 return perl_clone_using(proto_perl, flags,
10640 proto_perl->IMem,
10641 proto_perl->IMemShared,
10642 proto_perl->IMemParse,
10643 proto_perl->IEnv,
10644 proto_perl->IStdIO,
10645 proto_perl->ILIO,
10646 proto_perl->IDir,
10647 proto_perl->ISock,
10648 proto_perl->IProc);
10652 perl_clone_using(PerlInterpreter *proto_perl, UV flags,
10718 param->proto_perl = proto_perl;
10754 PL_debug = proto_perl->Idebug;
10758 * PERL_SET_CONTEXT(proto_perl);
10771 ptr_table_store(PL_ptr_table, &proto_perl->Isv_undef, &PL_sv_undef);
10780 ptr_table_store(PL_ptr_table, &proto_perl->Isv_no, &PL_sv_no);
10789 ptr_table_store(PL_ptr_table, &proto_perl->Isv_yes, &PL_sv_yes);
10795 ptr_table_store(PL_ptr_table, proto_perl->Istrtab, PL_strtab);
10797 PL_compiling = proto_perl->Icompiling;
10801 ptr_table_store(PL_ptr_table, proto_perl->Icompiling.cop_stashpv, PL_compiling.cop_stashpv);
10804 ptr_table_store(PL_ptr_table, proto_perl->Icompiling.cop_file, PL_compiling.cop_file);
10806 ptr_table_store(PL_ptr_table, &proto_perl->Icompiling, &PL_compiling);
10811 PL_curcop = (COP*)any_dup(proto_perl->Tcurcop, proto_perl);
10814 PL_origargc = proto_perl->Iorigargc;
10815 PL_origargv = proto_perl->Iorigargv;
10821 PerlIO_clone(aTHX_ proto_perl, param);
10824 PL_envgv = gv_dup(proto_perl->Ienvgv, param);
10825 PL_incgv = gv_dup(proto_perl->Iincgv, param);
10826 PL_hintgv = gv_dup(proto_perl->Ihintgv, param);
10827 PL_origfilename = SAVEPV(proto_perl->Iorigfilename);
10828 PL_diehook = sv_dup_inc(proto_perl->Idiehook, param);
10829 PL_warnhook = sv_dup_inc(proto_perl->Iwarnhook, param);
10832 PL_minus_c = proto_perl->Iminus_c;
10833 PL_patchlevel = sv_dup_inc(proto_perl->Ipatchlevel, param);
10834 PL_localpatches = proto_perl->Ilocalpatches;
10835 PL_splitstr = proto_perl->Isplitstr;
10836 PL_preprocess = proto_perl->Ipreprocess;
10837 PL_minus_n = proto_perl->Iminus_n;
10838 PL_minus_p = proto_perl->Iminus_p;
10839 PL_minus_l = proto_perl->Iminus_l;
10840 PL_minus_a = proto_perl->Iminus_a;
10841 PL_minus_F = proto_perl->Iminus_F;
10842 PL_doswitches = proto_perl->Idoswitches;
10843 PL_dowarn = proto_perl->Idowarn;
10844 PL_doextract = proto_perl->Idoextract;
10845 PL_sawampersand = proto_perl->Isawampersand;
10846 PL_unsafe = proto_perl->Iunsafe;
10847 PL_inplace = SAVEPV(proto_perl->Iinplace);
10848 PL_e_script = sv_dup_inc(proto_perl->Ie_script, param);
10849 PL_perldb = proto_perl->Iperldb;
10850 PL_perl_destruct_level = proto_perl->Iperl_destruct_level;
10851 PL_exit_flags = proto_perl->Iexit_flags;
10855 PL_basetime = proto_perl->Ibasetime;
10856 PL_formfeed = sv_dup(proto_perl->Iformfeed, param);
10858 PL_maxsysfd = proto_perl->Imaxsysfd;
10859 PL_multiline = proto_perl->Imultiline;
10860 PL_statusvalue = proto_perl->Istatusvalue;
10862 PL_statusvalue_vms = proto_perl->Istatusvalue_vms;
10864 PL_encoding = sv_dup(proto_perl->Iencoding, param);
10873 I32 len = av_len((AV*)proto_perl->Iregex_padav);
10874 SV** regexen = AvARRAY((AV*)proto_perl->Iregex_padav);
10892 PL_stdingv = gv_dup(proto_perl->Istdingv, param);
10893 PL_stderrgv = gv_dup(proto_perl->Istderrgv, param);
10894 PL_defgv = gv_dup(proto_perl->Idefgv, param);
10895 PL_argvgv = gv_dup(proto_perl->Iargvgv, param);
10896 PL_argvoutgv = gv_dup(proto_perl->Iargvoutgv, param);
10897 PL_argvout_stack = av_dup_inc(proto_perl->Iargvout_stack, param);
10900 PL_replgv = gv_dup(proto_perl->Ireplgv, param);
10903 PL_errgv = gv_dup(proto_perl->Ierrgv, param);
10906 PL_DBgv = gv_dup(proto_perl->IDBgv, param);
10907 PL_DBline = gv_dup(proto_perl->IDBline, param);
10908 PL_DBsub = gv_dup(proto_perl->IDBsub, param);
10909 PL_DBsingle = sv_dup(proto_perl->IDBsingle, param);
10910 PL_DBtrace = sv_dup(proto_perl->IDBtrace, param);
10911 PL_DBsignal = sv_dup(proto_perl->IDBsignal, param);
10912 PL_lineary = av_dup(proto_perl->Ilineary, param);
10913 PL_dbargs = av_dup(proto_perl->Idbargs, param);
10916 PL_defstash = hv_dup_inc(proto_perl->Tdefstash, param);
10917 PL_curstash = hv_dup(proto_perl->Tcurstash, param);
10918 PL_nullstash = hv_dup(proto_perl->Inullstash, param);
10919 PL_debstash = hv_dup(proto_perl->Idebstash, param);
10920 PL_globalstash = hv_dup(proto_perl->Iglobalstash, param);
10921 PL_curstname = sv_dup_inc(proto_perl->Icurstname, param);
10923 PL_beginav = av_dup_inc(proto_perl->Ibeginav, param);
10924 PL_beginav_save = av_dup_inc(proto_perl->Ibeginav_save, param);
10925 PL_checkav_save = av_dup_inc(proto_perl->Icheckav_save, param);
10926 PL_endav = av_dup_inc(proto_perl->Iendav, param);
10927 PL_checkav = av_dup_inc(proto_perl->Icheckav, param);
10928 PL_initav = av_dup_inc(proto_perl->Iinitav, param);
10930 PL_sub_generation = proto_perl->Isub_generation;
10933 PL_forkprocess = proto_perl->Iforkprocess;
10936 PL_fdpid = av_dup_inc(proto_perl->Ifdpid, param);
10939 PL_tainting = proto_perl->Itainting;
10940 PL_taint_warn = proto_perl->Itaint_warn;
10941 PL_maxo = proto_perl->Imaxo;
10942 if (proto_perl->Iop_mask)
10943 PL_op_mask = SAVEPVN(proto_perl->Iop_mask, PL_maxo);
10948 PL_main_cv = cv_dup_inc(proto_perl->Imain_cv, param);
10949 PL_main_root = OpREFCNT_inc(proto_perl->Imain_root);
10950 PL_main_start = proto_perl->Imain_start;
10951 PL_eval_root = proto_perl->Ieval_root;
10952 PL_eval_start = proto_perl->Ieval_start;
10955 PL_curcopdb = (COP*)any_dup(proto_perl->Icurcopdb, proto_perl);
10956 PL_copline = proto_perl->Icopline;
10958 PL_filemode = proto_perl->Ifilemode;
10959 PL_lastfd = proto_perl->Ilastfd;
10960 PL_oldname = proto_perl->Ioldname; /* XXX not quite right */
10963 PL_gensym = proto_perl->Igensym;
10964 PL_preambled = proto_perl->Ipreambled;
10965 PL_preambleav = av_dup_inc(proto_perl->Ipreambleav, param);
10966 PL_laststatval = proto_perl->Ilaststatval;
10967 PL_laststype = proto_perl->Ilaststype;
10970 PL_ors_sv = sv_dup_inc(proto_perl->Iors_sv, param);
10971 PL_ofmt = SAVEPV(proto_perl->Iofmt);
10974 PL_exitlistlen = proto_perl->Iexitlistlen;
10977 Copy(proto_perl->Iexitlist, PL_exitlist, PL_exitlistlen, PerlExitListEntry);
10981 PL_modglobal = hv_dup_inc(proto_perl->Imodglobal, param);
10982 PL_custom_op_names = hv_dup_inc(proto_perl->Icustom_op_names,param);
10983 PL_custom_op_descs = hv_dup_inc(proto_perl->Icustom_op_descs,param);
10986 PL_rsfp = fp_dup(proto_perl->Irsfp, '<', param);
10988 PL_rsfp_filters = av_dup_inc(proto_perl->Irsfp_filters, param);
10990 PL_compcv = cv_dup(proto_perl->Icompcv, param);
10992 PAD_CLONE_VARS(proto_perl, param);
10995 sys_intern_dup(&proto_perl->Isys_intern, &PL_sys_intern);
10999 PL_generation = proto_perl->Igeneration;
11000 PL_DBcv = cv_dup(proto_perl->IDBcv, param);
11002 PL_in_clean_objs = proto_perl->Iin_clean_objs;
11003 PL_in_clean_all = proto_perl->Iin_clean_all;
11005 PL_uid = proto_perl->Iuid;
11006 PL_euid = proto_perl->Ieuid;
11007 PL_gid = proto_perl->Igid;
11008 PL_egid = proto_perl->Iegid;
11009 PL_nomemok = proto_perl->Inomemok;
11010 PL_an = proto_perl->Ian;
11011 PL_op_seqmax = proto_perl->Iop_seqmax;
11012 PL_evalseq = proto_perl->Ievalseq;
11013 PL_origenviron = proto_perl->Iorigenviron; /* XXX not quite right */
11014 PL_origalen = proto_perl->Iorigalen;
11016 PL_osname = SAVEPV(proto_perl->Iosname);
11017 PL_sh_path_compat = proto_perl->Ish_path_compat; /* XXX never deallocated */
11018 PL_sighandlerp = proto_perl->Isighandlerp;
11021 PL_runops = proto_perl->Irunops;
11023 Copy(proto_perl->Itokenbuf, PL_tokenbuf, 256, char);
11026 PL_cshlen = proto_perl->Icshlen;
11027 PL_cshname = proto_perl->Icshname; /* XXX never deallocated */
11030 PL_lex_state = proto_perl->Ilex_state;
11031 PL_lex_defer = proto_perl->Ilex_defer;
11032 PL_lex_expect = proto_perl->Ilex_expect;
11033 PL_lex_formbrack = proto_perl->Ilex_formbrack;
11034 PL_lex_dojoin = proto_perl->Ilex_dojoin;
11035 PL_lex_starts = proto_perl->Ilex_starts;
11036 PL_lex_stuff = sv_dup_inc(proto_perl->Ilex_stuff, param);
11037 PL_lex_repl = sv_dup_inc(proto_perl->Ilex_repl, param);
11038 PL_lex_op = proto_perl->Ilex_op;
11039 PL_lex_inpat = proto_perl->Ilex_inpat;
11040 PL_lex_inwhat = proto_perl->Ilex_inwhat;
11041 PL_lex_brackets = proto_perl->Ilex_brackets;
11043 PL_lex_brackstack = SAVEPVN(proto_perl->Ilex_brackstack,i);
11044 PL_lex_casemods = proto_perl->Ilex_casemods;
11046 PL_lex_casestack = SAVEPVN(proto_perl->Ilex_casestack,i);
11048 Copy(proto_perl->Inextval, PL_nextval, 5, YYSTYPE);
11049 Copy(proto_perl->Inexttype, PL_nexttype, 5, I32);
11050 PL_nexttoke = proto_perl->Inexttoke;
11053 * SvANY(proto_perl->Ilinestr) can be NULL at this point. For test case:
11057 if (SvANY(proto_perl->Ilinestr)) {
11058 PL_linestr = sv_dup_inc(proto_perl->Ilinestr, param);
11059 i = proto_perl->Ibufptr - SvPVX(proto_perl->Ilinestr);
11061 i = proto_perl->Ioldbufptr - SvPVX(proto_perl->Ilinestr);
11063 i = proto_perl->Ioldoldbufptr - SvPVX(proto_perl->Ilinestr);
11065 i = proto_perl->Ilinestart - SvPVX(proto_perl->Ilinestr);
11075 PL_pending_ident = proto_perl->Ipending_ident;
11076 PL_sublex_info = proto_perl->Isublex_info; /* XXX not quite right */
11078 PL_expect = proto_perl->Iexpect;
11080 PL_multi_start = proto_perl->Imulti_start;
11081 PL_multi_end = proto_perl->Imulti_end;
11082 PL_multi_open = proto_perl->Imulti_open;
11083 PL_multi_close = proto_perl->Imulti_close;
11085 PL_error_count = proto_perl->Ierror_count;
11086 PL_subline = proto_perl->Isubline;
11087 PL_subname = sv_dup_inc(proto_perl->Isubname, param);
11089 /* XXX See comment on SvANY(proto_perl->Ilinestr) above */
11090 if (SvANY(proto_perl->Ilinestr)) {
11091 i = proto_perl->Ilast_uni - SvPVX(proto_perl->Ilinestr);
11093 i = proto_perl->Ilast_lop - SvPVX(proto_perl->Ilinestr);
11095 PL_last_lop_op = proto_perl->Ilast_lop_op;
11102 PL_in_my = proto_perl->Iin_my;
11103 PL_in_my_stash = hv_dup(proto_perl->Iin_my_stash, param);
11105 PL_cryptseen = proto_perl->Icryptseen;
11108 PL_hints = proto_perl->Ihints;
11110 PL_amagic_generation = proto_perl->Iamagic_generation;
11113 PL_collation_ix = proto_perl->Icollation_ix;
11114 PL_collation_name = SAVEPV(proto_perl->Icollation_name);
11115 PL_collation_standard = proto_perl->Icollation_standard;
11116 PL_collxfrm_base = proto_perl->Icollxfrm_base;
11117 PL_collxfrm_mult = proto_perl->Icollxfrm_mult;
11121 PL_numeric_name = SAVEPV(proto_perl->Inumeric_name);
11122 PL_numeric_standard = proto_perl->Inumeric_standard;
11123 PL_numeric_local = proto_perl->Inumeric_local;
11124 PL_numeric_radix_sv = sv_dup_inc(proto_perl->Inumeric_radix_sv, param);
11128 PL_utf8_alnum = sv_dup_inc(proto_perl->Iutf8_alnum, param);
11129 PL_utf8_alnumc = sv_dup_inc(proto_perl->Iutf8_alnumc, param);
11130 PL_utf8_ascii = sv_dup_inc(proto_perl->Iutf8_ascii, param);
11131 PL_utf8_alpha = sv_dup_inc(proto_perl->Iutf8_alpha, param);
11132 PL_utf8_space = sv_dup_inc(proto_perl->Iutf8_space, param);
11133 PL_utf8_cntrl = sv_dup_inc(proto_perl->Iutf8_cntrl, param);
11134 PL_utf8_graph = sv_dup_inc(proto_perl->Iutf8_graph, param);
11135 PL_utf8_digit = sv_dup_inc(proto_perl->Iutf8_digit, param);
11136 PL_utf8_upper = sv_dup_inc(proto_perl->Iutf8_upper, param);
11137 PL_utf8_lower = sv_dup_inc(proto_perl->Iutf8_lower, param);
11138 PL_utf8_print = sv_dup_inc(proto_perl->Iutf8_print, param);
11139 PL_utf8_punct = sv_dup_inc(proto_perl->Iutf8_punct, param);
11140 PL_utf8_xdigit = sv_dup_inc(proto_perl->Iutf8_xdigit, param);
11141 PL_utf8_mark = sv_dup_inc(proto_perl->Iutf8_mark, param);
11142 PL_utf8_toupper = sv_dup_inc(proto_perl->Iutf8_toupper, param);
11143 PL_utf8_totitle = sv_dup_inc(proto_perl->Iutf8_totitle, param);
11144 PL_utf8_tolower = sv_dup_inc(proto_perl->Iutf8_tolower, param);
11145 PL_utf8_tofold = sv_dup_inc(proto_perl->Iutf8_tofold, param);
11146 PL_utf8_idstart = sv_dup_inc(proto_perl->Iutf8_idstart, param);
11147 PL_utf8_idcont = sv_dup_inc(proto_perl->Iutf8_idcont, param);
11150 PL_utf8locale = proto_perl->Iutf8locale;
11152 PL_unicode = proto_perl->Iunicode;
11155 PL_signals = proto_perl->Isignals;
11158 PL_clocktick = proto_perl->Iclocktick;
11161 PL_in_load_module = proto_perl->Iin_load_module;
11164 PL_sort_RealCmp = proto_perl->Isort_RealCmp;
11168 PL_reentrant_retint = proto_perl->Ireentrant_retint;
11171 PL_sharehook = proto_perl->Isharehook;
11172 PL_lockhook = proto_perl->Ilockhook;
11173 PL_unlockhook = proto_perl->Iunlockhook;
11174 PL_threadhook = proto_perl->Ithreadhook;
11176 PL_runops_std = proto_perl->Irunops_std;
11177 PL_runops_dbg = proto_perl->Irunops_dbg;
11180 PL_ppid = proto_perl->Ippid;
11191 PL_yydebug = proto_perl->Iyydebug;
11192 PL_yynerrs = proto_perl->Iyynerrs;
11193 PL_yyerrflag = proto_perl->Iyyerrflag;
11194 PL_yychar = proto_perl->Iyychar;
11195 PL_yyval = proto_perl->Iyyval;
11196 PL_yylval = proto_perl->Iyylval;
11198 PL_glob_index = proto_perl->Iglob_index;
11199 PL_srand_called = proto_perl->Isrand_called;
11200 PL_hash_seed = proto_perl->Ihash_seed;
11201 PL_rehash_seed = proto_perl->Irehash_seed;
11205 if (proto_perl->Ipsig_pend) {
11212 if (proto_perl->Ipsig_ptr) {
11216 PL_psig_ptr[i] = sv_dup_inc(proto_perl->Ipsig_ptr[i], param);
11217 PL_psig_name[i] = sv_dup_inc(proto_perl->Ipsig_name[i], param);
11229 PL_tmps_ix = proto_perl->Ttmps_ix;
11230 PL_tmps_max = proto_perl->Ttmps_max;
11231 PL_tmps_floor = proto_perl->Ttmps_floor;
11235 PL_tmps_stack[i] = sv_dup_inc(proto_perl->Ttmps_stack[i], param);
11240 i = proto_perl->Tmarkstack_max - proto_perl->Tmarkstack;
11242 PL_markstack_max = PL_markstack + (proto_perl->Tmarkstack_max
11243 - proto_perl->Tmarkstack);
11244 PL_markstack_ptr = PL_markstack + (proto_perl->Tmarkstack_ptr
11245 - proto_perl->Tmarkstack);
11246 Copy(proto_perl->Tmarkstack, PL_markstack,
11251 PL_scopestack_ix = proto_perl->Tscopestack_ix;
11252 PL_scopestack_max = proto_perl->Tscopestack_max;
11254 Copy(proto_perl->Tscopestack, PL_scopestack, PL_scopestack_ix, I32);
11258 PL_retstack_ix = proto_perl->Tretstack_ix;
11259 PL_retstack_max = proto_perl->Tretstack_max;
11261 Copy(proto_perl->Tretstack, PL_retstack, PL_retstack_ix, OP*);
11264 PL_curstackinfo = si_dup(proto_perl->Tcurstackinfo, param);
11267 PL_curstack = av_dup(proto_perl->Tcurstack, param);
11268 PL_mainstack = av_dup(proto_perl->Tmainstack, param);
11272 PL_stack_sp = PL_stack_base + (proto_perl->Tstack_sp
11273 - proto_perl->Tstack_base);
11278 PL_savestack_ix = proto_perl->Tsavestack_ix;
11279 PL_savestack_max = proto_perl->Tsavestack_max;
11281 PL_savestack = ss_dup(proto_perl, param);
11288 PL_start_env = proto_perl->Tstart_env; /* XXXXXX */
11291 PL_op = proto_perl->Top;
11295 PL_na = proto_perl->Tna;
11297 PL_statbuf = proto_perl->Tstatbuf;
11298 PL_statcache = proto_perl->Tstatcache;
11299 PL_statgv = gv_dup(proto_perl->Tstatgv, param);
11300 PL_statname = sv_dup_inc(proto_perl->Tstatname, param);
11302 PL_timesbuf = proto_perl->Ttimesbuf;
11305 PL_tainted = proto_perl->Ttainted;
11306 PL_curpm = proto_perl->Tcurpm; /* XXX No PMOP ref count */
11307 PL_rs = sv_dup_inc(proto_perl->Trs, param);
11308 PL_last_in_gv = gv_dup(proto_perl->Tlast_in_gv, param);
11309 PL_ofs_sv = sv_dup_inc(proto_perl->Tofs_sv, param);
11310 PL_defoutgv = gv_dup_inc(proto_perl->Tdefoutgv, param);
11311 PL_chopset = proto_perl->Tchopset; /* XXX never deallocated */
11312 PL_toptarget = sv_dup_inc(proto_perl->Ttoptarget, param);
11313 PL_bodytarget = sv_dup_inc(proto_perl->Tbodytarget, param);
11314 PL_formtarget = sv_dup(proto_perl->Tformtarget, param);
11316 PL_restartop = proto_perl->Trestartop;
11317 PL_in_eval = proto_perl->Tin_eval;
11318 PL_delaymagic = proto_perl->Tdelaymagic;
11319 PL_dirty = proto_perl->Tdirty;
11320 PL_localizing = proto_perl->Tlocalizing;
11323 PL_protect = proto_perl->Tprotect;
11325 PL_errors = sv_dup_inc(proto_perl->Terrors, param);
11327 PL_modcount = proto_perl->Tmodcount;
11329 PL_dumpindent = proto_perl->Tdumpindent;
11331 PL_sortcop = (OP*)any_dup(proto_perl->Tsortcop, proto_perl);
11332 PL_sortstash = hv_dup(proto_perl->Tsortstash, param);
11333 PL_firstgv = gv_dup(proto_perl->Tfirstgv, param);
11334 PL_secondgv = gv_dup(proto_perl->Tsecondgv, param);
11335 PL_sortcxix = proto_perl->Tsortcxix;
11349 PL_regdummy = proto_perl->Tregdummy;
11402 PL_regcompp = proto_perl->Tregcompp;
11403 PL_regexecp = proto_perl->Tregexecp;
11404 PL_regint_start = proto_perl->Tregint_start;
11405 PL_regint_string = proto_perl->Tregint_string;
11406 PL_regfree = proto_perl->Tregfree;
11412 PL_peepp = proto_perl->Tpeepp;