3165 Privilege.xs perform unsafe casting of priv_ptype_t to int
authorTheo Schlossnagle <jesus@omniti.com>
Sat, 08 Sep 2012 13:51:40 -0400
changeset 13869 ca8df0188218
parent 13868 273d7ae67113
child 13870 1f4c439e16c3
3165 Privilege.xs perform unsafe casting of priv_ptype_t to int Reviewed by: Richard Lowe <[email protected]> Approved by: Dan McDonald <[email protected]>
usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/Privilege.xs
--- a/usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/Privilege.xs	Sat Sep 08 13:50:33 2012 -0400
+++ b/usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/Privilege.xs	Sat Sep 08 13:51:40 2012 -0400
@@ -11,7 +11,7 @@
 #include "perl.h"
 #include "XSUB.h"
 
-#define	IVCONST(s, c)	newCONSTSUB(s, #c, newSViv((int)c));
+#define	IVCONST(s, c)	newCONSTSUB(s, #c, newSViv((int)(intptr_t)c));
 #define	POFF		(sizeof ("PRIV_") - 1)
 
 #define	RETPRIVSET(set)		\