Lines Matching defs:proto_perl
13962 * proto_perl; so do it in perl_clone_using instead */
14709 Perl_croak(param->proto_perl, "Bizarre SvTYPE [%" IVdf "]", (IV)SvTYPE(ssv));
15037 ncx->blk_oldcop = (COP*)any_dup(ncx->blk_oldcop, param->proto_perl);
15196 Perl_any_dup(pTHX_ void *v, const PerlInterpreter *proto_perl)
15211 if (v >= (void*)proto_perl && v < (void*)(proto_perl+1))
15212 ret = (void*)(((char*)aTHX) + (((char*)v) - (char*)proto_perl));
15229 Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
15231 ANY * const ss = proto_perl->Isavestack;
15232 const I32 max = proto_perl->Isavestack_max + SS_MAXPUSH;
15233 I32 ix = proto_perl->Isavestack_ix;
15290 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
15299 TOPPTR(nss,ix) = svp_dup_inc((SV**)ptr, proto_perl);/* XXXXX */
15317 TOPPTR(nss,ix) = svp_dup_inc((SV**)ptr, proto_perl);/* XXXXX */
15333 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
15339 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
15345 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
15352 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
15364 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
15370 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
15379 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
15384 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
15451 TOPPTR(nss,ix) = any_dup(ptr, proto_perl); /* XXX quite arbitrary */
15455 proto_perl));
15459 TOPPTR(nss,ix) = any_dup(ptr, proto_perl); /* XXX quite arbitrary */
15463 proto_perl));
15496 TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
15600 perl_clone_host(PerlInterpreter* proto_perl, UV flags);
15603 perl_clone(PerlInterpreter *proto_perl, UV flags)
15614 return perl_clone_host(proto_perl,flags);
15617 return perl_clone_using(proto_perl, flags,
15618 proto_perl->IMem,
15619 proto_perl->IMemShared,
15620 proto_perl->IMemParse,
15621 proto_perl->IEnv,
15622 proto_perl->IStdIO,
15623 proto_perl->ILIO,
15624 proto_perl->IDir,
15625 proto_perl->ISock,
15626 proto_perl->IProc);
15630 perl_clone_using(PerlInterpreter *proto_perl, UV flags,
15658 S_visit(proto_perl, do_mark_cloneable_stash, SVt_PVHV, SVTYPEMASK);
15675 PL_eval_begin_nest_depth = proto_perl->Ieval_begin_nest_depth;
15706 param->proto_perl = proto_perl;
15722 PL_debug = proto_perl->Idebug;
15727 PL_compiling = proto_perl->Icompiling;
15730 PL_origargc = proto_perl->Iorigargc;
15731 PL_origargv = proto_perl->Iorigargv;
15735 PL_tainting = proto_perl->Itainting;
15736 PL_taint_warn = proto_perl->Itaint_warn;
15742 PL_minus_c = proto_perl->Iminus_c;
15744 PL_localpatches = proto_perl->Ilocalpatches;
15745 PL_splitstr = SAVEPV(proto_perl->Isplitstr);
15746 PL_minus_n = proto_perl->Iminus_n;
15747 PL_minus_p = proto_perl->Iminus_p;
15748 PL_minus_l = proto_perl->Iminus_l;
15749 PL_minus_a = proto_perl->Iminus_a;
15750 PL_minus_E = proto_perl->Iminus_E;
15751 PL_minus_F = proto_perl->Iminus_F;
15752 PL_doswitches = proto_perl->Idoswitches;
15753 PL_dowarn = proto_perl->Idowarn;
15755 PL_sawampersand = proto_perl->Isawampersand;
15757 PL_unsafe = proto_perl->Iunsafe;
15758 PL_perldb = proto_perl->Iperldb;
15759 PL_perl_destruct_level = proto_perl->Iperl_destruct_level;
15760 PL_exit_flags = proto_perl->Iexit_flags;
15763 PL_basetime = proto_perl->Ibasetime;
15765 PL_maxsysfd = proto_perl->Imaxsysfd;
15766 PL_statusvalue = proto_perl->Istatusvalue;
15768 PL_statusvalue_vms = proto_perl->Istatusvalue_vms;
15770 PL_statusvalue_posix = proto_perl->Istatusvalue_posix;
15777 PL_sub_generation = proto_perl->Isub_generation;
15780 PL_forkprocess = proto_perl->Iforkprocess;
15783 PL_main_start = proto_perl->Imain_start;
15784 PL_eval_root = proto_perl->Ieval_root;
15785 PL_eval_start = proto_perl->Ieval_start;
15787 PL_filemode = proto_perl->Ifilemode;
15788 PL_lastfd = proto_perl->Ilastfd;
15789 PL_oldname = proto_perl->Ioldname; /* XXX not quite right */
15790 PL_gensym = proto_perl->Igensym;
15792 PL_laststatval = proto_perl->Ilaststatval;
15793 PL_laststype = proto_perl->Ilaststype;
15798 PL_generation = proto_perl->Igeneration;
15800 PL_in_clean_objs = proto_perl->Iin_clean_objs;
15801 PL_in_clean_all = proto_perl->Iin_clean_all;
15803 PL_delaymagic_uid = proto_perl->Idelaymagic_uid;
15804 PL_delaymagic_euid = proto_perl->Idelaymagic_euid;
15805 PL_delaymagic_gid = proto_perl->Idelaymagic_gid;
15806 PL_delaymagic_egid = proto_perl->Idelaymagic_egid;
15807 PL_nomemok = proto_perl->Inomemok;
15808 PL_an = proto_perl->Ian;
15809 PL_evalseq = proto_perl->Ievalseq;
15810 PL_origalen = proto_perl->Iorigalen;
15812 PL_sighandlerp = proto_perl->Isighandlerp;
15813 PL_sighandler1p = proto_perl->Isighandler1p;
15814 PL_sighandler3p = proto_perl->Isighandler3p;
15816 PL_runops = proto_perl->Irunops;
15818 PL_subline = proto_perl->Isubline;
15820 PL_cv_has_eval = proto_perl->Icv_has_eval;
15822 PL_unicode = proto_perl->Iunicode;
15825 PL_signals = proto_perl->Isignals;
15828 PL_clocktick = proto_perl->Iclocktick;
15831 PL_in_load_module = proto_perl->Iin_load_module;
15835 PL_reentrant_retint = proto_perl->Ireentrant_retint;
15838 PL_sharehook = proto_perl->Isharehook;
15839 PL_lockhook = proto_perl->Ilockhook;
15840 PL_unlockhook = proto_perl->Iunlockhook;
15841 PL_threadhook = proto_perl->Ithreadhook;
15842 PL_destroyhook = proto_perl->Idestroyhook;
15843 PL_signalhook = proto_perl->Isignalhook;
15845 PL_globhook = proto_perl->Iglobhook;
15847 PL_srand_called = proto_perl->Isrand_called;
15848 Copy(&(proto_perl->Irandom_state), &PL_random_state, 1, PL_RANDOM_STATE_TYPE);
15849 PL_srand_override = proto_perl->Isrand_override;
15850 PL_srand_override_next = proto_perl->Isrand_override_next;
15854 PL_tmps_ix = proto_perl->Itmps_ix;
15855 PL_tmps_max = proto_perl->Itmps_max;
15856 PL_tmps_floor = proto_perl->Itmps_floor;
15860 PL_scopestack_ix = proto_perl->Iscopestack_ix;
15861 PL_scopestack_max = proto_perl->Iscopestack_max;
15865 PL_savestack_ix = proto_perl->Isavestack_ix;
15866 PL_savestack_max = proto_perl->Isavestack_max;
15869 PL_start_env = proto_perl->Istart_env; /* XXXXXX */
15872 PL_op = proto_perl->Iop;
15876 my_perl->Ina = proto_perl->Ina;
15878 PL_statcache = proto_perl->Istatcache;
15881 PL_tainted = proto_perl->Itainted;
15885 PL_curpm = proto_perl->Icurpm; /* XXX No PMOP ref count */
15887 PL_chopset = proto_perl->Ichopset; /* XXX never deallocated */
15889 PL_restartjmpenv = proto_perl->Irestartjmpenv;
15890 PL_restartop = proto_perl->Irestartop;
15891 PL_in_eval = proto_perl->Iin_eval;
15892 PL_delaymagic = proto_perl->Idelaymagic;
15893 PL_phase = proto_perl->Iphase;
15894 PL_localizing = proto_perl->Ilocalizing;
15897 PL_modcount = proto_perl->Imodcount;
15899 PL_dumpindent = proto_perl->Idumpindent;
15910 PL_peepp = proto_perl->Ipeepp;
15911 PL_rpeepp = proto_perl->Irpeepp;
15913 PL_opfreehook = proto_perl->Iopfreehook;
15921 * PERL_SET_CONTEXT(proto_perl);
15932 ptr_table_store(PL_ptr_table, &proto_perl->Isv_undef, &PL_sv_undef);
15933 ptr_table_store(PL_ptr_table, &proto_perl->Isv_no, &PL_sv_no);
15934 ptr_table_store(PL_ptr_table, &proto_perl->Isv_zero, &PL_sv_zero);
15935 ptr_table_store(PL_ptr_table, &proto_perl->Isv_yes, &PL_sv_yes);
15936 ptr_table_store(PL_ptr_table, &proto_perl->Ipadname_const,
15942 hv_ksplit(PL_strtab, HvTOTALKEYS(proto_perl->Istrtab));
15943 ptr_table_store(PL_ptr_table, proto_perl->Istrtab, PL_strtab);
15947 PL_compiling.cop_file = rcpv_copy(proto_perl->Icompiling.cop_file);
15949 ptr_table_store(PL_ptr_table, &proto_perl->Icompiling, &PL_compiling);
15952 PL_curcop = (COP*)any_dup(proto_perl->Icurcop, proto_perl);
15969 PerlIO_clone(aTHX_ proto_perl, param);
15972 PL_envgv = gv_dup_inc(proto_perl->Ienvgv, param);
15973 PL_incgv = gv_dup_inc(proto_perl->Iincgv, param);
15974 PL_hintgv = gv_dup_inc(proto_perl->Ihintgv, param);
15975 PL_origfilename = SAVEPV(proto_perl->Iorigfilename);
15976 PL_xsubfilename = proto_perl->Ixsubfilename;
15977 PL_diehook = sv_dup_inc(proto_perl->Idiehook, param);
15978 PL_warnhook = sv_dup_inc(proto_perl->Iwarnhook, param);
15980 PL_hook__require__before = sv_dup_inc(proto_perl->Ihook__require__before, param);
15981 PL_hook__require__after = sv_dup_inc(proto_perl->Ihook__require__after, param);
15984 PL_patchlevel = sv_dup_inc(proto_perl->Ipatchlevel, param);
15985 PL_inplace = SAVEPV(proto_perl->Iinplace);
15986 PL_e_script = sv_dup_inc(proto_perl->Ie_script, param);
16000 PL_regex_padav = av_dup_inc(proto_perl->Iregex_padav, param);
16003 PL_stashpadmax = proto_perl->Istashpadmax;
16004 PL_stashpadix = proto_perl->Istashpadix ;
16009 PL_stashpad[o] = hv_dup(proto_perl->Istashpad[o], param);
16013 PL_ofsgv = gv_dup_inc(proto_perl->Iofsgv, param);
16014 PL_stdingv = gv_dup(proto_perl->Istdingv, param);
16015 PL_stderrgv = gv_dup(proto_perl->Istderrgv, param);
16016 PL_defgv = gv_dup(proto_perl->Idefgv, param);
16017 PL_argvgv = gv_dup_inc(proto_perl->Iargvgv, param);
16018 PL_argvoutgv = gv_dup(proto_perl->Iargvoutgv, param);
16019 PL_argvout_stack = av_dup_inc(proto_perl->Iargvout_stack, param);
16022 PL_replgv = gv_dup_inc(proto_perl->Ireplgv, param);
16025 PL_errgv = gv_dup(proto_perl->Ierrgv, param);
16028 PL_DBgv = gv_dup_inc(proto_perl->IDBgv, param);
16029 PL_DBline = gv_dup_inc(proto_perl->IDBline, param);
16030 PL_DBsub = gv_dup_inc(proto_perl->IDBsub, param);
16031 PL_DBsingle = sv_dup(proto_perl->IDBsingle, param);
16032 PL_DBtrace = sv_dup(proto_perl->IDBtrace, param);
16033 PL_DBsignal = sv_dup(proto_perl->IDBsignal, param);
16034 Copy(proto_perl->IDBcontrol, PL_DBcontrol, DBVARMG_COUNT, IV);
16037 PL_defstash = hv_dup_inc(proto_perl->Idefstash, param);
16038 PL_curstash = hv_dup_inc(proto_perl->Icurstash, param);
16039 PL_debstash = hv_dup(proto_perl->Idebstash, param);
16040 PL_globalstash = hv_dup(proto_perl->Iglobalstash, param);
16041 PL_curstname = sv_dup_inc(proto_perl->Icurstname, param);
16043 PL_beginav = av_dup_inc(proto_perl->Ibeginav, param);
16044 PL_beginav_save = av_dup_inc(proto_perl->Ibeginav_save, param);
16045 PL_checkav_save = av_dup_inc(proto_perl->Icheckav_save, param);
16046 PL_unitcheckav = av_dup_inc(proto_perl->Iunitcheckav, param);
16047 PL_unitcheckav_save = av_dup_inc(proto_perl->Iunitcheckav_save, param);
16048 PL_endav = av_dup_inc(proto_perl->Iendav, param);
16049 PL_checkav = av_dup_inc(proto_perl->Icheckav, param);
16050 PL_initav = av_dup_inc(proto_perl->Iinitav, param);
16051 PL_savebegin = proto_perl->Isavebegin;
16053 PL_isarev = hv_dup_inc(proto_perl->Iisarev, param);
16056 PL_fdpid = av_dup_inc(proto_perl->Ifdpid, param);
16058 if (proto_perl->Iop_mask)
16059 PL_op_mask = SAVEPVN(proto_perl->Iop_mask, PL_maxo);
16062 /* PL_asserting = proto_perl->Iasserting; */
16065 PL_main_cv = cv_dup_inc(proto_perl->Imain_cv, param);
16067 PL_main_root = OpREFCNT_inc(proto_perl->Imain_root);
16071 PL_curcopdb = (COP*)any_dup(proto_perl->Icurcopdb, proto_perl);
16073 PL_preambleav = av_dup_inc(proto_perl->Ipreambleav, param);
16075 PL_ors_sv = sv_dup_inc(proto_perl->Iors_sv, param);
16078 PL_exitlistlen = proto_perl->Iexitlistlen;
16081 Copy(proto_perl->Iexitlist, PL_exitlist, PL_exitlistlen, PerlExitListEntry);
16086 PL_my_cxt_size = proto_perl->Imy_cxt_size;
16089 Copy(proto_perl->Imy_cxt_list, PL_my_cxt_list, PL_my_cxt_size, void *);
16094 PL_modglobal = hv_dup_inc(proto_perl->Imodglobal, param);
16095 PL_custom_op_names = hv_dup_inc(proto_perl->Icustom_op_names,param);
16096 PL_custom_op_descs = hv_dup_inc(proto_perl->Icustom_op_descs,param);
16097 PL_custom_ops = hv_dup_inc(proto_perl->Icustom_ops, param);
16099 PL_compcv = cv_dup(proto_perl->Icompcv, param);
16101 PAD_CLONE_VARS(proto_perl, param);
16104 sys_intern_dup(&proto_perl->Isys_intern, &PL_sys_intern);
16107 PL_DBcv = cv_dup(proto_perl->IDBcv, param);
16112 PL_osname = SAVEPV(proto_perl->Iosname);
16113 PL_parser = parser_dup(proto_perl->Iparser, param);
16116 if (proto_perl->Iparser) {
16118 proto_perl->Iparser->saved_curcop,
16119 proto_perl);
16122 PL_subname = sv_dup_inc(proto_perl->Isubname, param);
16137 PL_warn_locale = sv_dup_inc(proto_perl->Iwarn_locale, param);
16148 PL_collation_ix = proto_perl->Icollation_ix;
16153 PL_strxfrm_is_behaved = proto_perl->Istrxfrm_is_behaved;
16177 PL_mbrlen_ps = proto_perl->Imbrlen_ps;
16180 PL_mbrtowc_ps = proto_perl->Imbrtowc_ps;
16183 PL_wcrtomb_ps = proto_perl->Iwcrtomb_ps;
16199 PL_AboveLatin1 = sv_dup_inc(proto_perl->IAboveLatin1, param);
16200 PL_Assigned_invlist = sv_dup_inc(proto_perl->IAssigned_invlist, param);
16201 PL_GCB_invlist = sv_dup_inc(proto_perl->IGCB_invlist, param);
16202 PL_HasMultiCharFold = sv_dup_inc(proto_perl->IHasMultiCharFold, param);
16203 PL_InMultiCharFold = sv_dup_inc(proto_perl->IInMultiCharFold, param);
16204 PL_Latin1 = sv_dup_inc(proto_perl->ILatin1, param);
16205 PL_LB_invlist = sv_dup_inc(proto_perl->ILB_invlist, param);
16206 PL_SB_invlist = sv_dup_inc(proto_perl->ISB_invlist, param);
16207 PL_SCX_invlist = sv_dup_inc(proto_perl->ISCX_invlist, param);
16208 PL_UpperLatin1 = sv_dup_inc(proto_perl->IUpperLatin1, param);
16209 PL_in_some_fold = sv_dup_inc(proto_perl->Iin_some_fold, param);
16210 PL_utf8_foldclosures = sv_dup_inc(proto_perl->Iutf8_foldclosures, param);
16211 PL_utf8_idcont = sv_dup_inc(proto_perl->Iutf8_idcont, param);
16212 PL_utf8_idstart = sv_dup_inc(proto_perl->Iutf8_idstart, param);
16213 PL_utf8_perl_idcont = sv_dup_inc(proto_perl->Iutf8_perl_idcont, param);
16214 PL_utf8_perl_idstart = sv_dup_inc(proto_perl->Iutf8_perl_idstart, param);
16215 PL_utf8_xidcont = sv_dup_inc(proto_perl->Iutf8_xidcont, param);
16216 PL_utf8_xidstart = sv_dup_inc(proto_perl->Iutf8_xidstart, param);
16217 PL_WB_invlist = sv_dup_inc(proto_perl->IWB_invlist, param);
16219 PL_XPosix_ptrs[i] = sv_dup_inc(proto_perl->IXPosix_ptrs[i], param);
16221 PL_Posix_ptrs[i] = sv_dup_inc(proto_perl->IPosix_ptrs[i], param);
16227 PL_utf8_toupper = sv_dup_inc(proto_perl->Iutf8_toupper, param);
16228 PL_utf8_totitle = sv_dup_inc(proto_perl->Iutf8_totitle, param);
16229 PL_utf8_tolower = sv_dup_inc(proto_perl->Iutf8_tolower, param);
16230 PL_utf8_tofold = sv_dup_inc(proto_perl->Iutf8_tofold, param);
16231 PL_utf8_tosimplefold = sv_dup_inc(proto_perl->Iutf8_tosimplefold, param);
16232 PL_utf8_charname_begin = sv_dup_inc(proto_perl->Iutf8_charname_begin, param);
16233 PL_utf8_charname_continue = sv_dup_inc(proto_perl->Iutf8_charname_continue, param);
16234 PL_utf8_mark = sv_dup_inc(proto_perl->Iutf8_mark, param);
16235 PL_InBitmap = sv_dup_inc(proto_perl->IInBitmap, param);
16236 PL_CCC_non0_non230 = sv_dup_inc(proto_perl->ICCC_non0_non230, param);
16237 PL_Private_Use = sv_dup_inc(proto_perl->IPrivate_Use, param);
16240 PL_seen_deprecated_macro = hv_dup_inc(proto_perl->Iseen_deprecated_macro, param);
16243 if (proto_perl->Ipsig_pend) {
16250 if (proto_perl->Ipsig_name) {
16252 sv_dup_inc_multiple(proto_perl->Ipsig_name, PL_psig_name, 2 * SIG_SIZE,
16263 sv_dup_inc_multiple(proto_perl->Itmps_stack, PL_tmps_stack,
16267 i = proto_perl->Imarkstack_max - proto_perl->Imarkstack;
16269 PL_markstack_max = PL_markstack + (proto_perl->Imarkstack_max
16270 - proto_perl->Imarkstack);
16271 PL_markstack_ptr = PL_markstack + (proto_perl->Imarkstack_ptr
16272 - proto_perl->Imarkstack);
16273 Copy(proto_perl->Imarkstack, PL_markstack,
16279 Copy(proto_perl->Iscopestack, PL_scopestack, PL_scopestack_ix, I32);
16283 Copy(proto_perl->Iscopestack_name, PL_scopestack_name, PL_scopestack_ix, const char *);
16287 AvFILLp(proto_perl->Icurstack) =
16288 proto_perl->Istack_sp - proto_perl->Istack_base;
16291 PL_curstackinfo = si_dup(proto_perl->Icurstackinfo, param);
16294 PL_curstack = av_dup(proto_perl->Icurstack, param);
16295 PL_mainstack = av_dup(proto_perl->Imainstack, param);
16299 PL_stack_sp = PL_stack_base + (proto_perl->Istack_sp
16300 - proto_perl->Istack_base);
16304 PL_savestack = ss_dup(proto_perl, param);
16311 PL_statgv = gv_dup(proto_perl->Istatgv, param);
16312 PL_statname = sv_dup_inc(proto_perl->Istatname, param);
16314 PL_rs = sv_dup_inc(proto_perl->Irs, param);
16315 PL_last_in_gv = gv_dup(proto_perl->Ilast_in_gv, param);
16316 PL_defoutgv = gv_dup_inc(proto_perl->Idefoutgv, param);
16317 PL_toptarget = sv_dup_inc(proto_perl->Itoptarget, param);
16318 PL_bodytarget = sv_dup_inc(proto_perl->Ibodytarget, param);
16319 PL_formtarget = sv_dup(proto_perl->Iformtarget, param);
16321 PL_errors = sv_dup_inc(proto_perl->Ierrors, param);
16323 PL_sortcop = (OP*)any_dup(proto_perl->Isortcop, proto_perl);
16324 PL_firstgv = gv_dup_inc(proto_perl->Ifirstgv, param);
16325 PL_secondgv = gv_dup_inc(proto_perl->Isecondgv, param);
16330 proto_perl->Iwatchaddr);
16335 PTR2UV(proto_perl->Iwatchaddr), PTR2UV(PL_watchaddr),
16339 PL_registered_mros = hv_dup_inc(proto_perl->Iregistered_mros, param);
16340 PL_blockhooks = av_dup_inc(proto_perl->Iblockhooks, param);
16471 param->proto_perl = from;