From: Artur Bergman <sky@nanisky.com>
Date: Mon, 10 Sep 2001 11:54:25 +0000 (+0000)
Subject: Silence some more warnings INT2PTR.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbfa9890bcdf8102686f127e6107a72e887a941e;p=p5sagit%2Fp5-mst-13.2.git

Silence some more warnings INT2PTR.

p4raw-id: //depot/perl@11972
---

diff --git a/pp.c b/pp.c
index 63facbe..5ab80aa 100644
--- 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
--- 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
--- 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
--- 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
--- 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) {