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", \