changeset 13808:ca8df0188218

3165 Privilege.xs perform unsafe casting of priv_ptype_t to int Reviewed by: Richard Lowe <richlowe@richlowe.net> Approved by: Dan McDonald <danmcd@nexenta.com>
author Theo Schlossnagle <jesus@omniti.com>
date Sat, 08 Sep 2012 13:51:40 -0400
parents 273d7ae67113
children 1f4c439e16c3
files usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/Privilege.xs
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)		\