summaryrefslogtreecommitdiff
path: root/pad.c
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2006-04-23 06:47:04 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-04-24 08:04:11 +0000
commit9f7d9405237a9031cae5810788f8ca1931499cc8 (patch)
treee4f6092a8c8c919137a75d93644cb706daea7587 /pad.c
parent9f616d01cdd2df6cb0ab278ef65f90a68ac10150 (diff)
downloadperl-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 'pad.c')
-rw-r--r--pad.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/pad.c b/pad.c
index 2d2badecff..95a8d42143 100644
--- a/pad.c
+++ b/pad.c
@@ -592,9 +592,9 @@ Perl_pad_findmy(pTHX_ const char *name)
SV **name_svp;
pad_peg("pad_findmy");
- offset = pad_findlex(name, PL_compcv, PL_cop_seqmax, 1,
+ offset = pad_findlex(name, PL_compcv, PL_cop_seqmax, 1,
NULL, &out_sv, &out_flags);
- if (offset != NOT_IN_PAD)
+ if ((PADOFFSET)offset != NOT_IN_PAD)
return offset;
/* look for an our that's being introduced; this allows
@@ -814,7 +814,7 @@ S_pad_findlex(pTHX_ const char *name, const CV* cv, U32 seq, int warn,
if (!CvOUTSIDE(cv))
return NOT_IN_PAD;
-
+
/* out_capture non-null means caller wants us to capture lex; in
* addition we capture ourselves unless it's an ANON/format */
new_capturep = out_capture ? out_capture :
@@ -822,9 +822,9 @@ S_pad_findlex(pTHX_ const char *name, const CV* cv, U32 seq, int warn,
offset = pad_findlex(name, CvOUTSIDE(cv), CvOUTSIDE_SEQ(cv), 1,
new_capturep, out_name_sv, out_flags);
- if (offset == NOT_IN_PAD)
+ if ((PADOFFSET)offset == NOT_IN_PAD)
return NOT_IN_PAD;
-
+
/* found in an outer CV. Add appropriate fake entry to this pad */
/* don't add new fake entries (via eval) to CVs that we have already