X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=sharedsv.c;h=e4b6e0ff36c0961905b751b673a57a050ae740ed;hb=7607c2656ded0887feae5b11099e95289f89b6a8;hp=e91d7b97d91e8ecbf7c178b6aceb24187a9f83a1;hpb=cd946ae2db3ce03071a574749334dedf51f8a29b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/sharedsv.c b/sharedsv.c
index e91d7b9..e4b6e0f 100644
--- a/sharedsv.c
+++ b/sharedsv.c
@@ -95,7 +95,7 @@ Perl_sharedsv_find(pTHX_ SV* sv)
             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;
              }
 	    
@@ -103,7 +103,7 @@ Perl_sharedsv_find(pTHX_ SV* sv)
              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;
              }
 	}
@@ -115,7 +115,7 @@ Perl_sharedsv_find(pTHX_ SV* sv)
 =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
@@ -218,7 +218,8 @@ Perl_sharedsv_thrcnt_dec(pTHX_ shared_sv* ssv)
 
             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;
         }