diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2012-08-12 17:01:44 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2012-08-30 21:24:33 +0100 |
| commit | b717d7f86bf86484e8deedc5543b7606e8547cc0 (patch) | |
| tree | 3eb66f7827a1b01f2d261efe0e6b883e3b0d3411 /generator | |
| parent | d7ffe1d4701c37a2ebfa3ac70d35f7e8ab0e8de9 (diff) | |
| download | libguestfs-b717d7f86bf86484e8deedc5543b7606e8547cc0.tar.gz libguestfs-b717d7f86bf86484e8deedc5543b7606e8547cc0.tar.xz libguestfs-b717d7f86bf86484e8deedc5543b7606e8547cc0.zip | |
ocaml: Use Store_field macro instead of caml_modify.
Use the safer, higher level Store_field macro when constructing arrays
of structs to return.
I don't know if it is strictly necessary in this case, but it's safer.
(cherry picked from commit 769a6f24c60e7a4d55560025554796ba4be19d03)
Diffstat (limited to 'generator')
| -rw-r--r-- | generator/generator_ocaml.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generator/generator_ocaml.ml b/generator/generator_ocaml.ml index f2d5301f..4b7e6217 100644 --- a/generator/generator_ocaml.ml +++ b/generator/generator_ocaml.ml @@ -346,7 +346,7 @@ copy_table (char * const * argv) pr " rv = caml_alloc (%ss->len, 0);\n" typ; pr " for (i = 0; i < %ss->len; ++i) {\n" typ; pr " v = copy_%s (&%ss->val[i]);\n" typ typ; - pr " caml_modify (&Field (rv, i), v);\n"; + pr " Store_field (rv, i, v);\n"; pr " }\n"; pr " CAMLreturn (rv);\n"; pr " }\n"; |