mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Richard Jones
2009-07-07 17:32:34 +01:00
parent 157035503b
commit 9a3c4a6239
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/generator.ml
View File

@@ -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) ->