From: Richard Jones <rjones@centos5x32.home.annexia.org>
Date: Tue, 7 Jul 2009 16:32:34 +0000 (+0100)
Subject: RHEL 5: for (int i = ...) is not permitted with this old version of GCC.
X-Git-Tag: 1.0.56~7
X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=commitdiff_plain;h=9a3c4a62398d9f0c553ac2b5f43a3eefafd7bac5

RHEL 5: for (int i = ...) is not permitted with this old version of GCC.
---

diff --git a/src/generator.ml b/src/generator.ml
index e97472d..1a4e507 100755
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -5009,15 +5009,22 @@ and generate_fish_cmds () =
   (* print_* functions *)
   List.iter (
     fun (typ, cols) ->
+      let needs_i =
+        List.exists (function (_, FUUID) -> true | _ -> false) cols in
+
       pr "static void print_%s (struct guestfs_%s *%s)\n" typ typ typ;
       pr "{\n";
+      if needs_i then (
+        pr "  int i;\n";
+        pr "\n"
+      );
       List.iter (
 	function
 	| name, FString ->
 	    pr "  printf (\"%s: %%s\\n\", %s->%s);\n" name typ name
 	| name, FUUID ->
 	    pr "  printf (\"%s: \");\n" name;
-	    pr "  for (int i = 0; i < 32; ++i)\n";
+	    pr "  for (i = 0; i < 32; ++i)\n";
 	    pr "    printf (\"%%c\", %s->%s[i]);\n" typ name;
 	    pr "  printf (\"\\n\");\n"
 	| name, (FUInt64|FBytes) ->