diff options
| author | Toomas Soome <tsoome@me.com> | 2018-07-03 10:39:39 +0300 |
|---|---|---|
| committer | Hans Rosenfeld <hans.rosenfeld@joyent.com> | 2019-01-04 13:35:02 +0100 |
| commit | 9419bc2fc61b54b25a4e45211d31fcb920ff67cc (patch) | |
| tree | f61a1046dea95a1bb45ea6aa35fdb741afe9e576 /usr/src | |
| parent | 3ab8de02e091bc75fc50aafc5cbe32c053451d88 (diff) | |
| download | illumos-gate-9419bc2fc61b54b25a4e45211d31fcb920ff67cc.tar.gz | |
10162 Sun/Solaris/Kstat: cast between incompatible function types
Reviewed by: C Fraire <cfraire@me.com>
Reviewed by: Gergő Mihály Doma <domag02@gmail.com>
Approved by: Hans Rosenfeld <rosenfeld@grumpf.hope-2000.org>
Diffstat (limited to 'usr/src')
| -rw-r--r-- | usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs | 10 |
1 files changed, 9 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 99556bf1c7..58dcfe2a46 100644 --- a/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs +++ b/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs @@ -1219,6 +1219,14 @@ read_kstats(HV *self, int refresh) return (1); } +static int +read_kstats_wrap(HV *self, void *ptr) +{ + int refresh = (intptr_t)ptr; + + return (read_kstats(self, refresh)); +} + /* * The XS code exported to perl is below here. Note that the XS preprocessor * has its own commenting syntax, so all comments from this point on are in @@ -1383,7 +1391,7 @@ PPCODE: * that have already been read */ if (ret == 0) { - if (! apply_to_ties(self, (ATTCb_t)read_kstats, (void *)TRUE)) { + if (! apply_to_ties(self, read_kstats_wrap, (void *)TRUE)) { if (GIMME_V == G_ARRAY) { EXTEND(SP, 2); PUSHs(sv_2mortal(newRV_noinc((SV *)add))); |