diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2006-04-23 06:47:04 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-24 08:04:11 +0000 |
| commit | 9f7d9405237a9031cae5810788f8ca1931499cc8 (patch) | |
| tree | e4f6092a8c8c919137a75d93644cb706daea7587 /toke.c | |
| parent | 9f616d01cdd2df6cb0ab278ef65f90a68ac10150 (diff) | |
| download | perl-9f7d9405237a9031cae5810788f8ca1931499cc8.tar.gz | |
A couple of casts to PADOFFSET.
2nd patch from :
Subject: Re: [PATCH] cleanup 212 warnings emitted by gcc-4.2
Message-ID: <20060423044704.6a383ee8@r2d2>
p4raw-id: //depot/perl@27945
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -6670,7 +6670,7 @@ S_pending_ident(pTHX) { dVAR; register char *d; - register I32 tmp = 0; + register PADOFFSET tmp = 0; /* pit holds the identifier we read and pending_ident is reset */ char pit = PL_pending_ident; PL_pending_ident = 0; @@ -11136,7 +11136,7 @@ S_scan_inputsymbol(pTHX_ char *start) filehandle */ if (*d == '$') { - I32 tmp; + PADOFFSET tmp; /* try to find it in the pad for this block, otherwise find add symbol table ops |