From: Chip Salzenberg <chip@perl.com>
Date: Wed, 9 Apr 1997 00:00:00 +0000 (+0000)
Subject: Minor type cleanup
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba6d6ac996755f455b4d1475ebba4d130f850f9a;p=p5sagit%2Fp5-mst-13.2.git

Minor type cleanup
---

diff --git a/proto.h b/proto.h
index 9e4f6be..bb349ea 100644
--- 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
--- 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;