diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2006-04-25 01:20:38 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-26 07:53:36 +0000 |
| commit | bb7a0f5422600fd7de7806825a1300a577b7e61f (patch) | |
| tree | 822f6cd3d63d224843f4eba60c9f90fd3190d28f /pp.c | |
| parent | fcea4b7c99fe376a2295931b658ba7f41a47470e (diff) | |
| download | perl-bb7a0f5422600fd7de7806825a1300a577b7e61f.tar.gz | |
Re: [PATCH] cleanup 212 warnings emitted by gcc-4.2
Message-ID: <20060424232038.7550f9b6@r2d2>
p4raw-id: //depot/perl@27962
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2488,7 +2488,7 @@ PP(pp_complement) for ( ; anum && (unsigned long)tmps % sizeof(long); anum--, tmps++) *tmps = ~*tmps; tmpl = (long*)tmps; - for ( ; anum >= sizeof(long); anum -= sizeof(long), tmpl++) + for ( ; anum >= (I32)sizeof(long); anum -= (I32)sizeof(long), tmpl++) *tmpl = ~*tmpl; tmps = (U8*)tmpl; } @@ -4412,7 +4412,7 @@ PP(pp_split) register SV *dstr; register const char *m; I32 iters = 0; - const STRLEN slen = do_utf8 ? utf8_length((U8*)s, (U8*)strend) : (strend - s); + const STRLEN slen = do_utf8 ? utf8_length((U8*)s, (U8*)strend) : (STRLEN)(strend - s); I32 maxiters = slen + 10; const char *orig; const I32 origlimit = limit; |