Minor type cleanup

diff --git a/proto.h b/proto.h
index 9e4f6be..bb349ea 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -423,7 +423,7 @@ char*       sharepvn _((char* sv, I32 len, U32 hash));
 HEK*   share_hek _((char* sv, I32 len, U32 hash));
 Signal_t sighandler _((int sig));
 SV**   stack_grow _((SV** sp, SV**p, int n));
-int    start_subparse _((I32 is_format, U32 flags));
+I32    start_subparse _((I32 is_format, U32 flags));
 void   sub_crush_depth _((CV* cv));
 bool   sv_2bool _((SV* sv));
 CV*    sv_2cv _((SV* sv, HV** st, GV** gvp, I32 lref));

diff --git a/toke.c b/toke.c
index 6a306ec..df14f10 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -1688,9 +1688,9 @@ yylex()
                    croak("Can't exec %s", ipath);
                }
                if (d) {
-                   int oldpdb = perldb;
-                   int oldn = minus_n;
-                   int oldp = minus_p;
+                   U32 oldpdb = perldb;
+                   bool oldn = minus_n;
+                   bool oldp = minus_p;
 
                    while (*d && !isSPACE(*d)) d++;
                    while (*d == ' ' || *d == '\t') d++;
@@ -5139,12 +5139,12 @@ set_csh()
 #endif
 }
 
-int
+I32
 start_subparse(is_format, flags)
 I32 is_format;
 U32 flags;
 {
-    int oldsavestack_ix = savestack_ix;
+    I32 oldsavestack_ix = savestack_ix;
     CV* outsidecv = compcv;
     AV* comppadlist;