From: Lukas Mai <l.mai@web.de>
Date: Wed, 14 Nov 2012 14:16:30 +0000 (+0100)
Subject: avoid more compiler warnings
X-Git-Tag: v1.00_02~2^2~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=79bce2d4a17a645d7cd4c90e8b9e8e9d73804064;p=p5sagit%2FFunction-Parameters.git

avoid more compiler warnings
---

diff --git a/Parameters.xs b/Parameters.xs
index 9418c07..261cbdb 100644
--- a/Parameters.xs
+++ b/Parameters.xs
@@ -802,7 +802,7 @@ static void register_info(pTHX_ UV key, SV *declarator, const KWSpec *kws, const
 		size_t n;
 		char *p = SvPV(declarator, n);
 		char *q = memchr(p, ' ', n);
-		mPUSHp(p, q ? q - p : n);
+		mPUSHp(p, q ? (size_t)(q - p) : n);
 	}
 	if (!ps) {
 		if (SvTRUE(kws->shift)) {
@@ -1709,12 +1709,12 @@ UV
 fp__cv_root(sv)
 	SV * sv
 	PREINIT:
-		CV *cv;
+		CV *xcv;
 		HV *hv;
 		GV *gv;
 	CODE:
-		cv = sv_2cv(sv, &hv, &gv, 0);
-		RETVAL = PTR2UV(cv ? CvROOT(cv) : NULL);
+		xcv = sv_2cv(sv, &hv, &gv, 0);
+		RETVAL = PTR2UV(xcv ? CvROOT(xcv) : NULL);
 	OUTPUT:
 		RETVAL