X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/1620522e445f07dfded3e2bd7051de7349c2ee3e..378516de21aea9be747038c25876881aaf56e166:/universal.c

diff --git a/universal.c b/universal.c
index 10fefe1..847de55 100644
--- a/universal.c
+++ b/universal.c
@@ -1042,9 +1042,9 @@ XS(XS_PerlIO_get_layers)
 	if (gv && (io = GvIO(gv))) {
 	     AV* const av = PerlIO_get_layers(aTHX_ input ?
 					IoIFP(io) : IoOFP(io));
-	     I32 i;
-	     const I32 last = av_len(av);
-	     I32 nitem = 0;
+	     SSize_t i;
+	     const SSize_t last = av_len(av);
+	     SSize_t nitem = 0;
 	     
 	     for (i = last; i >= 0; i -= 3) {
 		  SV * const * const namsvp = av_fetch(av, i - 2, FALSE);
@@ -1186,8 +1186,8 @@ XS(XS_re_regnames)
     U32 flags;
     SV *ret;
     AV *av;
-    I32 length;
-    I32 i;
+    SSize_t length;
+    SSize_t i;
     SV **entry;
 
     if (items > 1)