diff options
| author | Jim Meyering <meyering@redhat.com> | 2009-08-27 12:34:38 +0200 |
|---|---|---|
| committer | Jim Meyering <meyering@redhat.com> | 2009-08-27 13:23:52 +0200 |
| commit | 1accb67720596bd946809d4032661f5d3adb7a26 (patch) | |
| tree | c8cea055cfa6e7797dfdeda1eed714c518f9a870 /ocaml | |
| parent | 0fc0e4bd73c60c1cd742509a70cf79932def4ea5 (diff) | |
| download | libguestfs-1accb67720596bd946809d4032661f5d3adb7a26.tar.gz libguestfs-1accb67720596bd946809d4032661f5d3adb7a26.tar.xz libguestfs-1accb67720596bd946809d4032661f5d3adb7a26.zip | |
ocaml/guestfs_c.c avoid signed/unsigned-comparison warning
* ocaml/guestfs_c.c (ocaml_guestfs_strings_val): Declare index as
unsigned int.
Diffstat (limited to 'ocaml')
| -rw-r--r-- | ocaml/guestfs_c.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ocaml/guestfs_c.c b/ocaml/guestfs_c.c index f9836963..9a7454d5 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) |