Lines Matching refs:cv
887 my ($cv) = @_;
888 my $sym = objsym($cv);
890 # warn sprintf("CV 0x%x already saved as $sym\n", $$cv); # debug
894 my $gv = $cv->GV;
900 my $root = $cv->ROOT;
901 my $cvxsub = $cv->XSUB;
902 my $isconst = $cv->CvFLAGS & CVf_CONST;
904 my $value = $cv->XSUBANY;
909 $decl->add( "static CV* cv$cv_index;" );
910 $init->add( "cv$cv_index = newCONSTSUB( $stsym, NULL, $vsym );" );
911 my $sym = savesym( $cv, "cv$cv_index" );
948 warn sprintf("stub for XSUB $cvstashname\:\:$cvname CV 0x%x\n", $$cv) if $debug_cv;
960 $sym = savesym($cv, "&sv_list[$sv_ix]");
961 warn sprintf("saving $cvstashname\:\:$cvname CV 0x%x as $sym\n", $$cv) if $debug_cv;
965 $root = $cv->ROOT;
966 $cvxsub = $cv->XSUB;
973 my $padlist = $cv->PADLIST;
974 my $pv = $cv->PV;
979 $$cv, $$root) if $debug_cv;
985 $ppname = (${$gv->FORM} == $$cv) ? "pp_form_" : "pp_sub_";
999 $startfield = saveoptree($ppname, $root, $cv->START, $padlist->ARRAY);
1001 $$cv, $ppname, $$root) if $debug_cv;
1004 $$padlist, $$cv) if $debug_cv;
1007 $$padlist, $$cv) if $debug_cv;
1016 $xpvcv_ix, cstring($pv), length($pv), $cv->IVX,
1017 $cv->NVX, $startfield, ${$cv->ROOT}, $cv->DEPTH,
1018 $$padlist, ${$cv->OUTSIDE}, $cv->CvFLAGS,
1019 $cv->OUTSIDE_SEQ));
1021 if (${$cv->OUTSIDE} == ${main_cv()}){
1022 $init->add(sprintf("CvOUTSIDE(s\\_%x)=PL_main_cv;",$$cv));
1028 $init->add(sprintf("CvGV(s\\_%x) = s\\_%x;",$$cv,$$gv));
1030 $$gv, $$cv) if $debug_cv;
1033 $init->add( savepvn( "CvFILE($sym)", $cv->FILE) );
1036 $init->add(sprintf("CvFILE($sym) = %s;", cstring($cv->FILE)));
1038 my $stash = $cv->STASH;
1041 $init->add(sprintf("CvSTASH(s\\_%x) = s\\_%x;", $$cv, $$stash));
1043 $$stash, $$cv) if $debug_cv;
1046 $sv_ix, $xpvcv_ix, $cv->REFCNT +1*0 , $cv->FLAGS));
1147 $init->add("{ CV *cv;");
1149 $init->add("\tGvCV($sym)=cv;");
1150 $init->add("\tSvREFCNT_inc((SV *)cv);");
1417 * Cribbed from cv.h with ANY (a union) replaced by void*.
1475 EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
1762 my $cv = $gv->CV;
1774 return unless ($$cv || $$av || $$sv || $$hv);
1928 my $cv = svref_2object( \&XSLoader::load );
1929 $cv->save;
1938 my $cv = svref_2object( \$SIG{$k} );
1939 my $sv = $cv->save;