263             Perl_warn(aTHX_ " %p waiting - owned by %p %s:%d\n",  in recursive_lock_acquire()
286         recursive_lock_acquire(aTHX_ &PL_sharedsv_lock, __FILE__, __LINE__);\
331         recursive_lock_destroy(aTHX_ &ul->lock);  in sharedsv_userlock_free()
429         recursive_lock_init(aTHX_ &ul->lock);  in S_get_userlock()
529     assert ( Perl_sharedsv_find(aTHX_ sv) == ssv );  in Perl_sharedsv_associate()
550     Perl_sharedsv_associate(aTHX_ sv, ssv);  in S_sharedsv_new_shared()
568     Perl_sharedsv_associate(aTHX_ sv, ssv);  in S_sharedsv_new_private()
601         Perl_croak(aTHX_ "Cannot share globs yet");  in Perl_sharedsv_share()
605         Perl_croak(aTHX_ "Cannot share subs yet");  in Perl_sharedsv_share()
610         (void) S_sharedsv_new_shared(aTHX_ sv);  in Perl_sharedsv_share()
737            (Perl_sharedsv_find(aTHX_ obj) == sobj) &&  in S_get_RV()
748         obj = S_sharedsv_new_private(aTHX_ sobj);  in S_get_RV()
770         S_get_RV(aTHX_ sv, sobj);             \
774             S_get_RV(aTHX_ SvRV(sv), SvRV(sobj)); \
816         SV *sobj = Perl_sharedsv_find(aTHX_ obj);  in sharedsv_scalar_store()
859         Perl_croak(aTHX_ "Invalid value for shared scalar");  in sharedsv_scalar_store()
877     sharedsv_scalar_store(aTHX_ sv, ssv);  in sharedsv_scalar_mg_set()
895     S_sharedsv_dec(aTHX_ (SV*)mg->mg_ptr);  in sharedsv_scalar_mg_free()
988             Perl_sharedsv_associate(aTHX_ sv, *svp);  in sharedsv_elem_mg_FETCH()
1035     Perl_sharedsv_associate(aTHX_ sv, *svp);  in sharedsv_elem_mg_STORE()
1036     sharedsv_scalar_store(aTHX_ sv, *svp);  in sharedsv_elem_mg_STORE()
1057     sharedsv_elem_mg_FETCH(aTHX_ sv, mg);  in sharedsv_elem_mg_DELETE()
1059         sharedsv_scalar_mg_get(aTHX_ sv, shmg);  in sharedsv_elem_mg_DELETE()
1171     S_sharedsv_dec(aTHX_ (SV*)mg->mg_ptr);  in sharedsv_array_mg_free()
1232     ul = S_get_userlock(aTHX_ ssv, 1);  in Perl_sharedsv_lock()
1233     recursive_lock_acquire(aTHX_ &ul->lock, __FILE__, __LINE__);  in Perl_sharedsv_lock()
1245     ssv = Perl_sharedsv_find(aTHX_ sv);  in Perl_sharedsv_locksv()
1248     Perl_sharedsv_lock(aTHX_ ssv);  in Perl_sharedsv_locksv()
1264     ssv = Perl_sharedsv_find(aTHX_ sv);  in Perl_shared_object_destroy()
1301         recursive_lock_init(aTHX_ &PL_sharedsv_lock);  in Perl_sharedsv_init()
1335             stmp = S_sharedsv_new_shared(aTHX_ tmp);
1336             sharedsv_scalar_store(aTHX_ tmp, stmp);
1359             SV *stmp = S_sharedsv_new_shared(aTHX_ tmp);
1360             sharedsv_scalar_store(aTHX_ tmp, stmp);
1382         Perl_sharedsv_associate(aTHX_ ST(0), ssv);
1399         Perl_sharedsv_associate(aTHX_ ST(0), ssv);
1538         ssv = Perl_sharedsv_find(aTHX_ myref);
1554         ssv = Perl_sharedsv_find(aTHX_ myref);
1557                 Perl_warner(aTHX_ packWARN(WARN_THREADS),
1571             Perl_croak(aTHX_ "Argument to share needs to be passed as ref");
1575         Perl_sharedsv_share(aTHX_ myref);
1590             Perl_croak(aTHX_ "Argument to cond_wait needs to be passed as ref");
1594         ssv = Perl_sharedsv_find(aTHX_ ref_cond);
1596             Perl_croak(aTHX_ "cond_wait can only be used on shared values");
1597         ul = S_get_userlock(aTHX_ ssv, 1);
1602                 Perl_croak(aTHX_ "cond_wait lock needs to be passed as ref");
1605             ssv = Perl_sharedsv_find(aTHX_ ref_lock);
1607                 Perl_croak(aTHX_ "cond_wait lock must be a shared value");
1608             ul = S_get_userlock(aTHX_ ssv, 1);
1642             Perl_croak(aTHX_ "Argument to cond_timedwait needs to be passed as ref");
1646         ssv = Perl_sharedsv_find(aTHX_ ref_cond);
1648             Perl_croak(aTHX_ "cond_timedwait can only be used on shared values");
1649         ul = S_get_userlock(aTHX_ ssv, 1);
1654                 Perl_croak(aTHX_ "cond_timedwait lock needs to be passed as ref");
1657             ssv = Perl_sharedsv_find(aTHX_ ref_lock);
1659                 Perl_croak(aTHX_ "cond_timedwait lock must be a shared value");
1660             ul = S_get_userlock(aTHX_ ssv, 1);
1663             Perl_croak(aTHX_ "You need a lock before you can cond_wait");
1695             Perl_croak(aTHX_ "Argument to cond_signal needs to be passed as ref");
1699         ssv = Perl_sharedsv_find(aTHX_ myref);
1701             Perl_croak(aTHX_ "cond_signal can only be used on shared values");
1702         ul = S_get_userlock(aTHX_ ssv, 1);
1704             Perl_warner(aTHX_ packWARN(WARN_THREADS),
1718             Perl_croak(aTHX_ "Argument to cond_broadcast needs to be passed as ref");
1722         ssv = Perl_sharedsv_find(aTHX_ myref);
1724             Perl_croak(aTHX_ "cond_broadcast can only be used on shared values");
1725         ul = S_get_userlock(aTHX_ ssv, 1);
1727             Perl_warner(aTHX_ packWARN(WARN_THREADS),
1752                 Perl_croak(aTHX_ "Attempt to bless into a reference");
1756                 Perl_warner(aTHX_ packWARN(WARN_MISC),
1764         ssv = Perl_sharedsv_find(aTHX_ myref);