From: Jim Meyering Date: Thu, 27 Aug 2009 10:34:38 +0000 (+0200) Subject: ocaml/guestfs_c.c avoid signed/unsigned-comparison warning X-Git-Tag: 1.0.69~28 X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=1accb67720596bd946809d4032661f5d3adb7a26;p=libguestfs.git ocaml/guestfs_c.c avoid signed/unsigned-comparison warning * ocaml/guestfs_c.c (ocaml_guestfs_strings_val): Declare index as unsigned int. --- diff --git a/ocaml/guestfs_c.c b/ocaml/guestfs_c.c index f983696..9a7454d 100644 --- a/ocaml/guestfs_c.c +++ b/ocaml/guestfs_c.c @@ -131,7 +131,7 @@ ocaml_guestfs_strings_val (guestfs_h *g, value sv) { CAMLparam1 (sv); char **r; - int i; + unsigned int i; r = guestfs_safe_malloc (g, sizeof (char *) * (Wosize_val (sv) + 1)); for (i = 0; i < Wosize_val (sv); ++i)