Silence some more warnings INT2PTR.

p4raw-id: //depot/perl@11972

diff --git a/pp.c b/pp.c
index 63facbe..5ab80aa 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -4199,7 +4199,7 @@ PP(pp_split)
 
     if (pm->op_pmreplroot) {
 #ifdef USE_ITHREADS
-       ary = GvAVn((GV*)PL_curpad[(PADOFFSET)pm->op_pmreplroot]);
+       ary = GvAVn((GV*)PL_curpad[INT2PTR(PADOFFSET, pm->op_pmreplroot)]);
 #else
        ary = GvAVn((GV*)pm->op_pmreplroot);
 #endif

diff --git a/pp_ctl.c b/pp_ctl.c
index a7ac731..37c3561 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1779,7 +1779,7 @@ PP(pp_enteriter)
        SAVESPTR(*svp);
 #else
        SAVEPADSV(PL_op->op_targ);
-       iterdata = (void*)PL_op->op_targ;
+       iterdata = INT2PTR(void*, PL_op->op_targ);
        cxtype |= CXp_PADVAR;
 #endif
     }

diff --git a/sharedsv.c b/sharedsv.c
index 3427469..db9b112 100644 (file)
--- a/sharedsv.c
+++ b/sharedsv.c
@@ -171,7 +171,7 @@ Perl_sharedsv_thrcnt_dec(pTHX_ shared_sv* ssv)
         switch (SvTYPE(sv)) {
         case SVt_RV:
             if (SvROK(sv))
-            Perl_sharedsv_thrcnt_dec(aTHX_ (shared_sv *)SvIV(SvRV(sv)));
+            Perl_sharedsv_thrcnt_dec(aTHX_ INT2PTR(shared_sv *, SvIV(SvRV(sv))));
             break;
         case SVt_PVAV: {
             SV **src_ary  = AvARRAY((AV *)sv);
@@ -179,7 +179,7 @@ Perl_sharedsv_thrcnt_dec(pTHX_ shared_sv* ssv)
 
             while (items-- > 0) {
             if(SvTYPE(*src_ary))
-                Perl_sharedsv_thrcnt_dec(aTHX_ (shared_sv *)SvIV(*src_ary++));
+                Perl_sharedsv_thrcnt_dec(aTHX_ INT2PTR(shared_sv *, SvIV(*src_ary++)));
             }
             break;
         }
@@ -188,7 +188,7 @@ Perl_sharedsv_thrcnt_dec(pTHX_ shared_sv* ssv)
             (void)hv_iterinit((HV *)sv);
             while ((entry = hv_iternext((HV *)sv)))
                 Perl_sharedsv_thrcnt_dec(
-                    aTHX_ (shared_sv *)SvIV(hv_iterval((HV *)sv, entry))
+                    aTHX_ INT2PTR(shared_sv *, SvIV(hv_iterval((HV *)sv, entry)))
                 );
             break;
         }

diff --git a/sv.c b/sv.c
index c0d77b2..dcca51c 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -9799,8 +9799,8 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
        for(i = 0; i <= len; i++) {                             
            av_push(PL_regex_padav,
             SvREFCNT_inc(
-                        newSViv((IV)re_dup((REGEXP *)
-                             SvIVX(regexen[i]), param))
+                        newSViv(PTR2IV(re_dup(INT2PTR(REGEXP *, 
+                             SvIVX(regexen[i])), param)))
                     ));
        }
     }

diff --git a/taint.c b/taint.c
index ab0b697..e5f6f8a 100644 (file)
--- a/taint.c
+++ b/taint.c
@@ -15,7 +15,7 @@ Perl_taint_proper(pTHX_ const char *f, const char *s)
 
 #ifdef HAS_SETEUID
     DEBUG_u(PerlIO_printf(Perl_debug_log,
-            "%s %d %"Uid_t_f" %"Uid_t_f"\n", s, PL_tainted, PL_uid, PL_euid));
+            "%s %d %"Uid_t_f" %"Uid_t_f"\n", s, PL_tainted, (long unsigned int)PL_uid, (long unsigned int)PL_euid));
 #endif
 
     if (PL_tainted) {