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

generator: Replace more "noalloc" with [@@noalloc]

Browse Source 
In some places in the generator we were still generating "noalloc".
It was hidden from the previous regexp I used to replace these because
of string escaping.

Updates: commit a69cde79ca
This commit is contained in:
Richard W.M. Jones
2021-12-10 09:58:12 +00:00
parent 1e60550c2a
commit b64e9bffc1
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
generator/OCaml.ml
View File

@@ -353,7 +353,7 @@ module Errno = struct
List.iter (
fun e ->
let le = String.lowercase_ascii e in
pr " external %s : unit -> int = \"guestfs_int_ocaml_get_%s\" \"noalloc\"\n"
pr " external %s : unit -> int = \"guestfs_int_ocaml_get_%s\" [@@noalloc]\n"
le e;
pr " let errno_%s = %s ()\n" e le
) ocaml_errnos;
@@ -818,7 +818,7 @@ and generate_ocaml_c_errnos () =
fun e ->
pr "\
/* NB: \"noalloc\" function. */
/* NB: [@@noalloc] function. */
value
guestfs_int_ocaml_get_%s (value unitv)
{

4
generator/daemon.ml
View File

@@ -1179,7 +1179,7 @@ let generate_daemon_optgroups_c () =
pr "extern value guestfs_int_daemon_optgroup_%s_available (value);\n"
group;
pr "\n";
pr "/* NB: This is a \"noalloc\" call. */\n";
pr "/* NB: This is a [@@noalloc] call. */\n";
pr "value\n";
pr "guestfs_int_daemon_optgroup_%s_available (value unitv)\n" group;
pr "{\n";
@@ -1242,7 +1242,7 @@ let generate_daemon_optgroups_ml () =
List.iter (
fun group ->
pr "external %s_available : unit -> bool =\n" group;
pr " \"guestfs_int_daemon_optgroup_%s_available\" \"noalloc\"\n" group
pr " \"guestfs_int_daemon_optgroup_%s_available\" [@@noalloc]\n" group
) optgroups_names
let generate_daemon_optgroups_mli () =