*/
/*
+=head1 Shared SV Functions
+
=for apidoc sharedsv_init
Saves a space for keeping SVs wider than an interpreter,
if(mg) {
if(strcmp(mg->mg_ptr,"threads::shared"))
break;
- ssv = (shared_sv*) SvIV(mg->mg_obj);
+ ssv = INT2PTR(shared_sv *, SvIV(mg->mg_obj));
break;
}
if(mg) {
SV* obj = SvTIED_obj(sv,mg);
if(sv_derived_from(obj, "threads::shared"))
- ssv = (shared_sv*) SvIV(SvRV(obj));
+ ssv = INT2PTR(shared_sv *, SvIV(SvRV(obj)));
break;
}
}
=for apidoc sharedsv_lock
Recursive locks on a sharedsv.
-Locks are dynamicly scoped at the level of the first lock.
+Locks are dynamically scoped at the level of the first lock.
=cut
*/
void
while (items-- > 0) {
if(SvTYPE(*src_ary))
- Perl_sharedsv_thrcnt_dec(aTHX_ INT2PTR(shared_sv *, SvIV(*src_ary++)));
+ Perl_sharedsv_thrcnt_dec(aTHX_ INT2PTR(shared_sv *, SvIV(*src_ary)));
+ src_ary++;
}
break;
}