Tidy up EXE_EXT patches to MM_Unix.pm

[p5sagit/p5-mst-13.2.git] / sharedsv.c

diff --git a/sharedsv.c b/sharedsv.c
index ef5ebf0..f0cba10 100644 (file)
--- a/sharedsv.c
+++ b/sharedsv.c
@@ -33,6 +33,8 @@
  */
 
 /*
+=head1 Shared SV Functions
+
 =for apidoc sharedsv_init
 
 Saves a space for keeping SVs wider than an interpreter,
@@ -95,7 +97,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 +105,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 +117,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