changeset 13806:e05f5705283d

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 Dan McDonald <danmcd@nexenta.com>
date Sat, 08 Sep 2012 13:45:24 -0400
parents e3a9ae14a119
children 273d7ae67113
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	Fri Sep 07 07:19:55 2012 -0700
+++ b/usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/Privilege.xs	Sat Sep 08 13:45:24 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)		\