Mercurial > illumos > illumos-gate
changeset 13672:bc588248a482
2636 Perl bits do not compile cleanly under 64bit perl
Reviewed by: Richard Lowe <richlowe@richlowe.net>
Reviewed by: Robert Mustacchi <rm@joyent.com>
Approved by: Richard Lowe <richlowe@richlowe.net>
author | Theo Schlossnagle <jesus@omniti.com> |
---|---|
date | Wed, 18 Apr 2012 22:20:23 +0000 |
parents | 176fbb72a42d |
children | 622cc2de0163 |
files | usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Exacct.xs usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs |
diffstat | 2 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Exacct.xs Sat Apr 21 12:51:24 2012 -0500 +++ b/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Exacct.xs Wed Apr 18 22:20:23 2012 +0000 @@ -531,7 +531,7 @@ SV *value; PREINIT: HV *stash; - unsigned int bufsz; + STRLEN bufsz; int flags, ret; char *buf; CODE:
--- a/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs Sat Apr 21 12:51:24 2012 -0500 +++ b/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs Wed Apr 18 22:20:23 2012 +0000 @@ -950,7 +950,7 @@ mg = mg_find((SV *)self, '~'); PERL_ASSERTMSG(mg != 0, "set_valid: lost ~ magic"); - ((KstatInfo_t *)SvPVX(mg->mg_obj))->valid = (int)arg; + ((KstatInfo_t *)SvPVX(mg->mg_obj))->valid = (int)(intptr_t)arg; return (1); }