Lines Matching refs:SV
374 SV *eval; /* whether to eval source code */
391 SV *(**retrieve_vtbl)(pTHX_ struct stcxt *, const char *); /* retrieve dispatch table */
392 SV *prev; /* contexts chained backwards in real recursion */
393 SV *my_sv; /* the blessed scalar who's SvPVX() I am */
412 SV *recur_sv; /* check only one recursive SV */
434 static int storable_free(pTHX_ SV *sv, MAGIC* mg);
458 SV *sv, SV *obj, int type, in THX_sv_magicext()
481 SV *self = newSV(sizeof(stcxt_t) - 1); \
482 SV *my_sv = newRV_noinc(self); \
492 SV *perinterp_sv = *hv_fetch(PL_modglobal, \
498 ? (T)SvPVX(SvRV(INT2PTR(SV*,SvIVX(perinterp_sv)))) : (T) 0))
716 return (SV *) 0; \
727 return (SV *) 0; \
739 return (SV *) 0; \
749 return (SV *) 0; \
759 return (SV *) 0; \
770 return (SV *) 0; \
1146 return (SV *) 0; \
1157 return (SV *) 0; \
1168 return (SV *) 0; \
1181 return (SV *) 0; \
1190 return (SV *) 0; \
1200 return (SV *) 0; \
1258 if (av_store(cxt->aseen, cxt->tagnum++, i ? (SV*)(y) \
1260 return (SV *) 0; \
1269 return (SV *) 0; \
1277 BLESS((SV *)(y), (HV *)(stash)); \
1283 return (SV *) 0; \
1294 SV *ref; \
1326 qsort((char *) AvARRAY(av), len, sizeof(SV *), sortcmp);\
1332 qsort((char *) AvARRAY(av), len, sizeof(SV *), sortcmp);
1343 static int store(pTHX_ stcxt_t *cxt, SV *sv);
1344 static SV *retrieve(pTHX_ stcxt_t *cxt, const char *cname);
1356 static int store_ref(pTHX_ stcxt_t *cxt, SV *sv);
1357 static int store_scalar(pTHX_ stcxt_t *cxt, SV *sv);
1360 static int store_tied(pTHX_ stcxt_t *cxt, SV *sv);
1361 static int store_tied_item(pTHX_ stcxt_t *cxt, SV *sv);
1363 static int store_regexp(pTHX_ stcxt_t *cxt, SV *sv);
1364 static int store_other(pTHX_ stcxt_t *cxt, SV *sv);
1365 static int store_blessed(pTHX_ stcxt_t *cxt, SV *sv, int type, HV *pkg);
1367 typedef int (*sv_store_t)(pTHX_ stcxt_t *cxt, SV *sv);
1387 static SV *retrieve_lscalar(pTHX_ stcxt_t *cxt, const char *cname);
1388 static SV *retrieve_lutf8str(pTHX_ stcxt_t *cxt, const char *cname);
1389 static SV *old_retrieve_array(pTHX_ stcxt_t *cxt, const char *cname);
1390 static SV *old_retrieve_hash(pTHX_ stcxt_t *cxt, const char *cname);
1391 static SV *retrieve_ref(pTHX_ stcxt_t *cxt, const char *cname);
1392 static SV *retrieve_undef(pTHX_ stcxt_t *cxt, const char *cname);
1393 static SV *retrieve_integer(pTHX_ stcxt_t *cxt, const char *cname);
1394 static SV *retrieve_double(pTHX_ stcxt_t *cxt, const char *cname);
1395 static SV *retrieve_byte(pTHX_ stcxt_t *cxt, const char *cname);
1396 static SV *retrieve_netint(pTHX_ stcxt_t *cxt, const char *cname);
1397 static SV *retrieve_scalar(pTHX_ stcxt_t *cxt, const char *cname);
1398 static SV *retrieve_utf8str(pTHX_ stcxt_t *cxt, const char *cname);
1399 static SV *retrieve_tied_array(pTHX_ stcxt_t *cxt, const char *cname);
1400 static SV *retrieve_tied_hash(pTHX_ stcxt_t *cxt, const char *cname);
1401 static SV *retrieve_tied_scalar(pTHX_ stcxt_t *cxt, const char *cname);
1402 static SV *retrieve_other(pTHX_ stcxt_t *cxt, const char *cname);
1403 static SV *retrieve_lobject(pTHX_ stcxt_t *cxt, const char *cname);
1404 static SV *retrieve_regexp(pTHX_ stcxt_t *cxt, const char *cname);
1408 static SV *get_lstring(pTHX_ stcxt_t *cxt, UV len, int isutf8, const char *cname);
1410 static SV *get_larray(pTHX_ stcxt_t *cxt, UV len, const char *cname);
1411 static SV *get_lhash(pTHX_ stcxt_t *cxt, UV len, int hash_flags, const char *cname);
1414 static int store_hentry(pTHX_ stcxt_t *cxt, HV* hv, UV i, HEK *hek, SV *val,
1417 typedef SV* (*sv_retrieve_t)(pTHX_ stcxt_t *cxt, const char *name);
1459 static SV *retrieve_hook_common(pTHX_ stcxt_t *cxt, const char *cname, int large);
1461 static SV *retrieve_array(pTHX_ stcxt_t *cxt, const char *cname);
1462 static SV *retrieve_hash(pTHX_ stcxt_t *cxt, const char *cname);
1463 static SV *retrieve_sv_undef(pTHX_ stcxt_t *cxt, const char *cname);
1464 static SV *retrieve_sv_yes(pTHX_ stcxt_t *cxt, const char *cname);
1465 static SV *retrieve_sv_no(pTHX_ stcxt_t *cxt, const char *cname);
1466 static SV *retrieve_blessed(pTHX_ stcxt_t *cxt, const char *cname);
1467 static SV *retrieve_idx_blessed(pTHX_ stcxt_t *cxt, const char *cname);
1468 static SV *retrieve_hook(pTHX_ stcxt_t *cxt, const char *cname);
1469 static SV *retrieve_overloaded(pTHX_ stcxt_t *cxt, const char *cname);
1470 static SV *retrieve_tied_key(pTHX_ stcxt_t *cxt, const char *cname);
1471 static SV *retrieve_tied_idx(pTHX_ stcxt_t *cxt, const char *cname);
1472 static SV *retrieve_flag_hash(pTHX_ stcxt_t *cxt, const char *cname);
1473 static SV *retrieve_code(pTHX_ stcxt_t *cxt, const char *cname);
1474 static SV *retrieve_weakref(pTHX_ stcxt_t *cxt, const char *cname);
1475 static SV *retrieve_weakoverloaded(pTHX_ stcxt_t *cxt, const char *cname);
1476 static SV *retrieve_vstring(pTHX_ stcxt_t *cxt, const char *cname);
1477 static SV *retrieve_lvstring(pTHX_ stcxt_t *cxt, const char *cname);
1478 static SV *retrieve_svundef_elem(pTHX_ stcxt_t *cxt, const char *cname);
1479 static SV *retrieve_boolean_true(pTHX_ stcxt_t *cxt, const char *cname);
1480 static SV *retrieve_boolean_false(pTHX_ stcxt_t *cxt, const char *cname);
1524 static SV *mbuf2sv(pTHX);
1714 sv_free((SV *) hseen); in clean_store_context()
1722 sv_free((SV *) hclass); in clean_store_context()
1729 sv_free((SV *) hook); in clean_store_context()
1736 sv_free((SV *) hook_seen); in clean_store_context()
1823 sv_free((SV *) aseen); in clean_retrieve_context()
1831 sv_free((SV *) aclass); in clean_retrieve_context()
1838 sv_free((SV *) hook); in clean_retrieve_context()
1845 sv_free((SV *) hseen); /* optional HV, for backward compat. */ in clean_retrieve_context()
1991 static SV *pkg_fetchmeth(pTHX_ in pkg_fetchmeth()
1997 SV *sv; in pkg_fetchmeth()
2010 sv = newRV_inc((SV*) GvCV(gv)); in pkg_fetchmeth()
2024 return SvOK(sv) ? sv : (SV *) 0; in pkg_fetchmeth()
2066 static SV *pkg_can(pTHX_ in pkg_can()
2071 SV **svh; in pkg_can()
2072 SV *sv; in pkg_can()
2093 return (SV *) 0; in pkg_can()
2111 static SV *scalar_call(pTHX_ in scalar_call()
2112 SV *obj, in scalar_call()
2113 SV *hook, in scalar_call()
2120 SV *sv = 0; in scalar_call()
2134 SV **ary = AvARRAY(av); in scalar_call()
2171 SV *obj, in array_call()
2172 SV *hook, in array_call()
2199 SV *sv = POPs; in array_call()
2214 SV** arr = AvARRAY(av); in cleanup_recursive_av()
2257 cleanup_recursive_rv(pTHX_ SV* sv) { in cleanup_recursive_rv()
2262 cleanup_recursive_data(pTHX_ SV* sv) { in cleanup_recursive_data()
2289 SV **svh; in known_class()
2310 if (!hv_store(hclass, name, len, INT2PTR(SV*, cxt->classnum), 0)) in known_class()
2327 static int store_ref(pTHX_ stcxt_t *cxt, SV *sv) in store_ref()
2361 cleanup_recursive_data(aTHX_ (SV*)sv); in store_ref()
2392 static int store_scalar(pTHX_ stcxt_t *cxt, SV *sv) in store_scalar()
2641 SV **sav; in store_array()
2645 SV *const recur_sv = cxt->recur_sv; in store_array()
2672 if (recur_sv != (SV*)av) { in store_array()
2676 cleanup_recursive_data(aTHX_ (SV*)av); in store_array()
2711 if (recur_sv != (SV*)av) { in store_array()
2738 return sv_cmp(*(SV * const *) a, *(SV * const *) b); in sortcmp()
2779 SV * const recur_sv = cxt->recur_sv; in store_hash()
2833 if (recur_sv != (SV*)hv && cxt->max_recur_depth_hash != -1) { in store_hash()
2838 cleanup_recursive_data(aTHX_ (SV*)hv); in store_hash()
2904 SV *key = av_shift(av); in store_hash()
2909 SV *val; in store_hash()
3012 sv_free((SV *) av); in store_hash()
3027 SV *val = (he ? hv_iterval(hv, he) : 0); in store_hash()
3042 if (cxt->max_recur_depth_hash != -1 && recur_sv != (SV*)hv && cxt->recur_depth > 0) { in store_hash()
3052 stcxt_t *cxt, HV* hv, UV i, HEK *hek, SV *val, unsigned char hash_flags) in store_hentry()
3081 SV *key_sv = NULL; in store_hentry()
3093 key_sv = (SV *)HEK_KEY(hek); in store_hentry()
3161 SV * const recur_sv = cxt->recur_sv; in store_lhash()
3172 if (recur_sv != (SV*)hv && cxt->max_recur_depth_hash != -1) { in store_lhash()
3177 cleanup_recursive_data(aTHX_ (SV*)hv); in store_lhash()
3187 SV* val = hv_iterval(hv, entry); in store_lhash()
3193 if (recur_sv != (SV*)hv && cxt->max_recur_depth_hash != -1 && cxt->recur_depth > 0) { in store_lhash()
3215 SV *text, *bdeparse; in store_code()
3225 return store_other(aTHX_ cxt, (SV*)cv); in store_code()
3258 XPUSHs(sv_2mortal(newRV_inc((SV*)cv))); in store_code()
3316 static int get_regexp(pTHX_ stcxt_t *cxt, SV* sv, SV **re, SV **flags) { in get_regexp()
3318 SV* rv; in get_regexp()
3330 rv = sv_2mortal((SV*)newRV_inc(sv)); in get_regexp()
3335 count = call_sv((SV*)cv, G_LIST); in get_regexp()
3351 static int store_regexp(pTHX_ stcxt_t *cxt, SV *sv) { in store_regexp()
3352 SV *re = NULL; in store_regexp()
3353 SV *flags = NULL; in store_regexp()
3393 static int store_tied(pTHX_ stcxt_t *cxt, SV *sv) in store_tied()
3396 SV *obj = NULL; in store_tied()
3464 static int store_tied_item(pTHX_ stcxt_t *cxt, SV *sv) in store_tied_item()
3488 if ((ret = store(aTHX_ cxt, (SV *) mg->mg_ptr))) /* Idem, for -Wall */ in store_tied_item()
3558 SV *sv, in store_hook()
3561 SV *hook) in store_hook()
3566 SV *ref; in store_hook()
3568 SV **ary; in store_hook()
3684 sv_free((SV *) av); in store_hook()
3744 SV **svh; in store_hook()
3746 SV *rsv = ary[i]; in store_hook()
3747 SV *xsv; in store_hook()
3748 SV *tag; in store_hook()
3844 tag = (SV *)--fake_tag; in store_hook()
4003 sv_free((SV *) av); in store_hook()
4059 SV *sv, in store_blessed()
4063 SV *hook; in store_blessed()
4139 static int store_other(pTHX_ stcxt_t *cxt, SV *sv) in store_other()
4188 static int sv_type(pTHX_ SV *sv) in sv_type()
4274 static int store(pTHX_ stcxt_t *cxt, SV *sv) in store()
4276 SV **svh; in store()
4300 svh = (SV **)ptr_table_fetch(pseen, sv); in store()
4387 ptr_table_store(pseen, sv, INT2PTR(SV*, 1 + cxt->tagnum)); in store()
4390 (char *) &sv, sizeof(sv), INT2PTR(SV*, cxt->tagnum), 0)) in store()
4527 SV *sv, in do_store()
4530 SV **res) in do_store()
4648 static SV *mbuf2sv(pTHX) in mbuf2sv()
4666 static SV *retrieve_other(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_other()
4683 return (SV *) 0; /* Just in case */ in retrieve_other()
4692 static SV *retrieve_idx_blessed(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_idx_blessed()
4696 SV **sva; in retrieve_idx_blessed()
4697 SV *sv; in retrieve_idx_blessed()
4736 static SV *retrieve_blessed(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_blessed()
4739 SV *sv; in retrieve_blessed()
4781 return (SV *) 0; in retrieve_blessed()
4815 static SV *retrieve_hook_common(pTHX_ stcxt_t *cxt, const char *cname, int large) in retrieve_hook_common()
4822 SV *frozen; in retrieve_hook_common()
4825 SV *hook; in retrieve_hook_common()
4826 SV *sv; in retrieve_hook_common()
4827 SV *rv; in retrieve_hook_common()
4868 sv = (SV *) newAV(); in retrieve_hook_common()
4871 sv = (SV *) newHV(); in retrieve_hook_common()
4885 sv = (SV *) newAV(); in retrieve_hook_common()
4889 sv = (SV *) newHV(); in retrieve_hook_common()
4917 return (SV *) 0; in retrieve_hook_common()
4925 SV **sva; in retrieve_hook_common()
4982 return (SV *) 0; in retrieve_hook_common()
5060 SV **ary = AvARRAY(av); in retrieve_hook_common()
5064 SV **svh; in retrieve_hook_common()
5065 SV *xsv; in retrieve_hook_common()
5117 SV* attached; in retrieve_hook_common()
5118 SV* attach_hook = newRV_inc((SV*) GvCV(attach)); in retrieve_hook_common()
5132 sv_free((SV *) av); in retrieve_hook_common()
5229 sv_free((SV *) av); in retrieve_hook_common()
5292 static SV *retrieve_hook(pTHX_ stcxt_t *cxt, const char *cname) { in retrieve_hook()
5302 static SV *retrieve_ref(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_ref()
5304 SV *rv; in retrieve_ref()
5305 SV *sv; in retrieve_ref()
5327 return (SV *) 0; /* Failed */ in retrieve_ref()
5370 static SV *retrieve_weakref(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_weakref()
5372 SV *sv; in retrieve_weakref()
5393 static SV *retrieve_overloaded(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_overloaded()
5395 SV *rv; in retrieve_overloaded()
5396 SV *sv; in retrieve_overloaded()
5412 return (SV *) 0; /* Failed */ in retrieve_overloaded()
5460 static SV *retrieve_weakoverloaded(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_weakoverloaded()
5462 SV *sv; in retrieve_weakoverloaded()
5483 static SV *retrieve_tied_array(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_tied_array()
5485 SV *tv; in retrieve_tied_array()
5486 SV *sv; in retrieve_tied_array()
5500 return (SV *) 0; /* Failed */ in retrieve_tied_array()
5517 static SV *retrieve_tied_hash(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_tied_hash()
5519 SV *tv; in retrieve_tied_hash()
5520 SV *sv; in retrieve_tied_hash()
5534 return (SV *) 0; /* Failed */ in retrieve_tied_hash()
5551 static SV *retrieve_tied_scalar(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_tied_scalar()
5553 SV *tv; in retrieve_tied_scalar()
5554 SV *sv, *obj = NULL; in retrieve_tied_scalar()
5568 return (SV *) 0; /* Failed */ in retrieve_tied_scalar()
5593 static SV *retrieve_tied_key(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_tied_key()
5595 SV *tv; in retrieve_tied_key()
5596 SV *sv; in retrieve_tied_key()
5597 SV *key; in retrieve_tied_key()
5611 return (SV *) 0; /* Failed */ in retrieve_tied_key()
5615 return (SV *) 0; /* Failed */ in retrieve_tied_key()
5631 static SV *retrieve_tied_idx(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_tied_idx()
5633 SV *tv; in retrieve_tied_idx()
5634 SV *sv; in retrieve_tied_idx()
5649 return (SV *) 0; /* Failed */ in retrieve_tied_idx()
5665 static SV *get_lstring(pTHX_ stcxt_t *cxt, UV len, int isutf8, const char *cname) in get_lstring()
5667 SV *sv; in get_lstring()
5745 static SV *retrieve_lscalar(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_lscalar()
5761 static SV *retrieve_scalar(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_scalar()
5778 static SV *retrieve_utf8str(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_utf8str()
5794 static SV *retrieve_lutf8str(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_lutf8str()
5814 static SV *retrieve_vstring(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_vstring()
5819 SV *sv; in retrieve_vstring()
5827 return (SV *) 0; /* Failed */ in retrieve_vstring()
5845 static SV *retrieve_lvstring(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_lvstring()
5850 SV *sv; in retrieve_lvstring()
5869 return (SV *) 0; /* Failed */ in retrieve_lvstring()
5891 static SV *retrieve_integer(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_integer()
5893 SV *sv; in retrieve_integer()
5915 static SV *retrieve_boolean_true(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_boolean_true()
5917 SV *sv; in retrieve_boolean_true()
5937 static SV *retrieve_boolean_false(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_boolean_false()
5939 SV *sv; in retrieve_boolean_false()
5960 static SV *retrieve_lobject(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_lobject()
5965 SV *sv; in retrieve_lobject()
5993 SV **svh = av_fetch(cxt->aseen, len, FALSE); in retrieve_lobject()
6043 static SV *retrieve_netint(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_netint()
6045 SV *sv; in retrieve_netint()
6073 static SV *retrieve_double(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_double()
6075 SV *sv; in retrieve_double()
6098 static SV *retrieve_byte(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_byte()
6100 SV *sv; in retrieve_byte()
6130 static SV *retrieve_undef(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_undef()
6132 SV *sv; in retrieve_undef()
6149 static SV *retrieve_sv_undef(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_sv_undef()
6151 SV *sv = &PL_sv_undef; in retrieve_sv_undef()
6172 static SV *retrieve_sv_yes(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_sv_yes()
6174 SV *sv = &PL_sv_yes; in retrieve_sv_yes()
6189 static SV *retrieve_sv_no(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_sv_no()
6191 SV *sv = &PL_sv_no; in retrieve_sv_no()
6208 static SV *retrieve_svundef_elem(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_svundef_elem()
6228 static SV *retrieve_array(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_array()
6232 SV *sv; in retrieve_array()
6250 return (SV *) av; /* No data follow if array is empty */ in retrieve_array()
6260 return (SV *) 0; in retrieve_array()
6268 return (SV *) 0; in retrieve_array()
6274 return (SV *) av; in retrieve_array()
6281 static SV *get_larray(pTHX_ stcxt_t *cxt, UV len, const char *cname) in get_larray()
6285 SV *sv; in get_larray()
6309 return (SV *) 0; in get_larray()
6317 return (SV *) 0; in get_larray()
6323 return (SV *) av; in get_larray()
6336 static SV *get_lhash(pTHX_ stcxt_t *cxt, UV len, int hash_flags, const char *cname) in get_lhash()
6341 SV *sv; in get_lhash()
6364 return (SV *) hv; /* No data follow if table empty */ in get_lhash()
6380 return (SV *) 0; in get_lhash()
6401 return (SV *) 0; in get_lhash()
6405 return (SV *) hv; in get_lhash()
6420 static SV *retrieve_hash(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_hash()
6426 SV *sv; in retrieve_hash()
6441 return (SV *) hv; /* No data follow if table empty */ in retrieve_hash()
6457 return (SV *) 0; in retrieve_hash()
6478 return (SV *) 0; in retrieve_hash()
6483 return (SV *) hv; in retrieve_hash()
6497 static SV *retrieve_flag_hash(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_flag_hash()
6504 SV *sv; in retrieve_flag_hash()
6531 return (SV *) hv; /* No data follow if table empty */ in retrieve_flag_hash()
6549 return (SV *) 0; in retrieve_flag_hash()
6562 SV *keysv; in retrieve_flag_hash()
6566 return (SV *) 0; in retrieve_flag_hash()
6569 return (SV *) 0; in retrieve_flag_hash()
6614 return (SV *) 0; in retrieve_flag_hash()
6618 return (SV *) 0; in retrieve_flag_hash()
6629 return (SV *) hv; in retrieve_flag_hash()
6637 static SV *retrieve_code(pTHX_ stcxt_t *cxt, const char *cname) in retrieve_code()
6642 SV *cv; in retrieve_code()
6643 SV *sv, *text, *sub, *errsv; in retrieve_code()
6762 static SV *retrieve_regexp(pTHX_ stcxt_t *cxt, const char *cname) { in retrieve_regexp()
6767 SV *re; in retrieve_regexp()
6768 SV *flags; in retrieve_regexp()
6769 SV *re_ref; in retrieve_regexp()
6770 SV *sv; in retrieve_regexp()
6843 static SV *old_retrieve_array(pTHX_ stcxt_t *cxt, const char *cname) in old_retrieve_array()
6848 SV *sv; in old_retrieve_array()
6865 return (SV *) av; /* No data follow if array is empty */ in old_retrieve_array()
6882 return (SV *) 0; in old_retrieve_array()
6884 return (SV *) 0; in old_retrieve_array()
6889 return (SV *) av; in old_retrieve_array()
6904 static SV *old_retrieve_hash(pTHX_ stcxt_t *cxt, const char *cname) in old_retrieve_hash()
6910 SV *sv = (SV *) 0; in old_retrieve_hash()
6912 SV *sv_h_undef = (SV *) 0; /* hv_store() bug */ in old_retrieve_hash()
6926 return (SV *) hv; /* No data follow if table empty */ in old_retrieve_hash()
6954 return (SV *) 0; in old_retrieve_hash()
6980 return (SV *) 0; in old_retrieve_hash()
6985 return (SV *) hv; in old_retrieve_hash()
7003 static SV *magic_check(pTHX_ stcxt_t *cxt) in magic_check()
7073 …cxt->retrieve_vtbl = (SV*(**)(pTHX_ stcxt_t *cxt, const char *cname)) (version_major > 0 ? sv_retr… in magic_check()
7192 static SV *retrieve(pTHX_ stcxt_t *cxt, const char *cname) in retrieve()
7195 SV **svh; in retrieve()
7196 SV *sv; in retrieve()
7252 return (SV *) 0; in retrieve()
7315 return (SV *) 0; /* Failed */ in retrieve()
7342 return (SV *) 0; /* Failed */ in retrieve()
7365 static SV *do_retrieve( in do_retrieve()
7368 SV *in, in do_retrieve()
7373 SV *sv; in do_retrieve()
7544 SV *rv; in do_retrieve()
7571 SV *rv = newRV_noinc(sv); in do_retrieve()
7590 static SV *pretrieve(pTHX_ PerlIO *f, IV flag) in pretrieve()
7601 static SV *mretrieve(pTHX_ SV *sv, IV flag) in mretrieve()
7620 static SV *dclone(pTHX_ SV *sv) in dclone()
7625 SV *out; in dclone()
7657 if (!do_store(aTHX_ (PerlIO*) 0, sv, ST_CLONE, FALSE, (SV**) 0)) in dclone()
7716 storable_free(pTHX_ SV *sv, MAGIC* mg) { in storable_free()
7772 SV *
7775 SV* obj
7779 RETVAL = do_store(aTHX_ f, obj, 0, ix, (SV **)0) ? &PL_sv_yes : &PL_sv_undef;
7795 SV *
7797 SV* obj
7807 SV *
7816 SV *
7818 SV* sv
7825 SV *
7827 SV* sv