summaryrefslogtreecommitdiff
path: root/usr/src/cmd/perl
diff options
context:
space:
mode:
authorRichard Lowe <richlowe@richlowe.net>2011-05-16 21:37:47 +0000
committerRichard Lowe <richlowe@richlowe.net>2011-05-16 21:37:47 +0000
commitb30a53d02d9bc370d76b8125a98e34311c768b5e (patch)
tree8faa7b9d5466ec8fc6c078382759c1030ccfd8bc /usr/src/cmd/perl
parent6b7143d774683daf27dfb2e93ab48d1ade1a3477 (diff)
downloadillumos-joyent-b30a53d02d9bc370d76b8125a98e34311c768b5e.tar.gz
2242 libraries should be more careful casting pointers
Reviewed by: Dan McDonald <danmcd@nexenta.com> Reviewed by: Gordon Ross <gwr@nexenta.com> Approved by: Albert Lee <trisk@nexenta.com>
Diffstat (limited to 'usr/src/cmd/perl')
-rw-r--r--usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs2
1 files changed, 1 insertions, 1 deletions
diff --git a/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs b/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs
index 59ff29e706..fdebfb5c90 100644
--- a/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs
+++ b/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs
@@ -133,7 +133,7 @@
newSVnv((NVTYPE) (V / 1000000000.0))
#define SAVE_FNP(H, F, K) \
- hv_store(H, K, sizeof (K) - 1, newSViv((IVTYPE) &F), 0)
+ hv_store(H, K, sizeof (K) - 1, newSViv((IVTYPE)(uintptr_t)&F), 0)
#define SAVE_STRING(H, S, K, SS) \
hv_store(H, #K, sizeof (#K) - 1, \
newSVpvn(S->K, SS ? strlen(S->K) : sizeof(S->K)), 0)