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

daemon: Replace "noalloc" with [@@noalloc]

Browse Source
This commit is contained in:
Richard W.M. Jones
2021-11-09 10:11:02 +00:00
parent 9a5c5ac5bd
commit 2ecccfce38
4 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
daemon/md.c
View File

@@ -51,7 +51,7 @@ optgroup_mdadm_available (void)
*/
extern value guestfs_int_daemon_is_raid_device (value devicev);
/* NB: This is a "noalloc" call. */
/* NB: This is a [@@noalloc] call. */
value
guestfs_int_daemon_is_raid_device (value devv)
{

2
daemon/md.ml
View File

@@ -23,7 +23,7 @@ open Std_utils
open Utils
external is_raid_device : string -> bool =
"guestfs_int_daemon_is_raid_device" "noalloc"
"guestfs_int_daemon_is_raid_device" [@@noalloc]
let re_md = PCRE.compile "^md[0-9]+$"

10
daemon/utils-c.c
View File

@@ -37,35 +37,35 @@
#pragma GCC diagnostic ignored "-Wmissing-prototypes"
/* NB: This is a "noalloc" call. */
/* NB: This is a [@@noalloc] call. */
value
guestfs_int_daemon_get_verbose_flag (value unitv)
{
return Val_bool (verbose);
}
/* NB: This is a "noalloc" call. */
/* NB: This is a [@@noalloc] call. */
value
guestfs_int_daemon_is_device_parameter (value device)
{
return Val_bool (is_device_parameter (String_val (device)));
}
/* NB: This is a "noalloc" call. */
/* NB: This is a [@@noalloc] call. */
value
guestfs_int_daemon_is_root_device (value device)
{
return Val_bool (is_root_device (String_val (device)));
}
/* NB: This is a "noalloc" call. */
/* NB: This is a [@@noalloc] call. */
value
guestfs_int_daemon_prog_exists (value prog)
{
return Val_bool (prog_exists (String_val (prog)));
}
/* NB: This is a "noalloc" call. */
/* NB: This is a [@@noalloc] call. */
value
guestfs_int_daemon_udev_settle (value optfilenamev, value unitv)
{

10
daemon/utils.ml
View File

@@ -21,11 +21,11 @@ open Printf
open Std_utils
external get_verbose_flag : unit -> bool = "guestfs_int_daemon_get_verbose_flag" "noalloc"
external is_device_parameter : string -> bool = "guestfs_int_daemon_is_device_parameter" "noalloc"
external is_root_device : string -> bool = "guestfs_int_daemon_is_root_device" "noalloc"
external prog_exists : string -> bool = "guestfs_int_daemon_prog_exists" "noalloc"
external udev_settle : ?filename:string -> unit -> unit = "guestfs_int_daemon_udev_settle" "noalloc"
external get_verbose_flag : unit -> bool = "guestfs_int_daemon_get_verbose_flag" [@@noalloc]
external is_device_parameter : string -> bool = "guestfs_int_daemon_is_device_parameter" [@@noalloc]
external is_root_device : string -> bool = "guestfs_int_daemon_is_root_device" [@@noalloc]
external prog_exists : string -> bool = "guestfs_int_daemon_prog_exists" [@@noalloc]
external udev_settle : ?filename:string -> unit -> unit = "guestfs_int_daemon_udev_settle" [@@noalloc]
let commandr ?(fold_stdout_on_stderr = false) prog args =
if verbose () then