[Libguestfs] [PATCH] perl: use INT2PTR macro for casting back to guestfs_h * (RHBZ#1150298)
Richard W.M. Jones
rjones at redhat.com
Fri May 6 20:23:39 UTC 2016
On Fri, May 06, 2016 at 03:30:28PM +0200, Pino Toscano wrote:
> Use the right macro, which should avoid the warnings seen with Perl
> headers on some architecture.
> ---
> generator/perl.ml | 2 +-
> perl/typemap | 2 +-
> 2 files changed, 2 insertions(+), 2 deletions(-)
>
> diff --git a/generator/perl.ml b/generator/perl.ml
> index 19cabb6..a665051 100644
> --- a/generator/perl.ml
> +++ b/generator/perl.ml
> @@ -242,7 +242,7 @@ DESTROY (sv)
> HV *hv = (HV *) SvRV (sv);
> SV **svp = hv_fetch (hv, \"_g\", 2, 0);
> if (svp != NULL) {
> - guestfs_h *g = (guestfs_h *) SvIV (*svp);
> + guestfs_h *g = INT2PTR (guestfs_h *, SvIV (*svp));
> _close_handle (g);
> }
>
> diff --git a/perl/typemap b/perl/typemap
> index 508e378..0a92e53 100644
> --- a/perl/typemap
> +++ b/perl/typemap
> @@ -14,7 +14,7 @@ O_OBJECT_guestfs_h
> SV **svp = hv_fetch (hv, \"_g\", 2, 0);
> if (svp == NULL)
> croak (\"${Package}::$func_name(): called on a closed handle\");
> - $var = ($type) SvIV (*svp);
> + $var = INT2PTR ($type, SvIV (*svp));
> } else {
> croak (\"${Package}::$func_name(): $var is not a blessed HV reference\");
> }
> --
> 2.5.5
ACK.
Rich.
--
Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones
Read my programming and virtualization blog: http://rwmj.wordpress.com
virt-builder quickly builds VMs from scratch
http://libguestfs.org/virt-builder.1.html
More information about the Libguestfs
mailing list