Print this page
3165 correct pointer to integer conversion in Privilege.xs
*** 9,19 ****
/* Perl includes. */
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
! #define IVCONST(s, c) newCONSTSUB(s, #c, newSViv((int)c));
#define POFF (sizeof ("PRIV_") - 1)
#define RETPRIVSET(set) \
ST(0) = sv_newmortal(); \
sv_setref_pv(ST(0), "Sun::Solaris::Privilege::PrivsetPtr", \
--- 9,19 ----
/* Perl includes. */
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
! #define IVCONST(s, c) newCONSTSUB(s, #c, newSViv((int)(intptr_t)c));
#define POFF (sizeof ("PRIV_") - 1)
#define RETPRIVSET(set) \
ST(0) = sv_newmortal(); \
sv_setref_pv(ST(0), "Sun::Solaris::Privilege::PrivsetPtr", \