From: Petr Beneš <w1be...@gmail.com> No functional change.
Signed-off-by: Petr Beneš <w1be...@gmail.com> --- tools/ocaml/libs/xc/xenctrl_stubs.c | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/tools/ocaml/libs/xc/xenctrl_stubs.c b/tools/ocaml/libs/xc/xenctrl_stubs.c index c6da9bb091..e86c455802 100644 --- a/tools/ocaml/libs/xc/xenctrl_stubs.c +++ b/tools/ocaml/libs/xc/xenctrl_stubs.c @@ -138,12 +138,12 @@ static void domain_handle_of_uuid_string(xen_domain_handle_t h, * integers in the Ocaml ABI for more idiomatic handling. */ static value c_bitmap_to_ocaml_list - /* ! */ - /* + /* ! */ + /* * All calls to this function must be in a form suitable * for xenctrl_abi_check. The parsing there is ad-hoc. */ - (unsigned int bitmap) + (unsigned int bitmap) { CAMLparam0(); CAMLlocal2(list, tmp); @@ -180,8 +180,8 @@ static value c_bitmap_to_ocaml_list } static unsigned int ocaml_list_to_c_bitmap(value l) - /* ! */ - /* + /* ! */ + /* * All calls to this function must be in a form suitable * for xenctrl_abi_check. The parsing there is ad-hoc. */ @@ -259,7 +259,7 @@ CAMLprim value stub_xc_domain_create(value xch_val, value wanted_domid, value co /* Quick & dirty check for ABI changes. */ BUILD_BUG_ON(sizeof(cfg) != 68); - /* Mnemonics for the named fields inside xen_x86_arch_domainconfig */ + /* Mnemonics for the named fields inside xen_x86_arch_domainconfig */ #define VAL_EMUL_FLAGS Field(arch_domconfig, 0) #define VAL_MISC_FLAGS Field(arch_domconfig, 1) @@ -351,7 +351,7 @@ static value dom_op(value xch_val, value domid, caml_enter_blocking_section(); result = fn(xch, c_domid); caml_leave_blocking_section(); - if (result) + if (result) failwith_xc(xch); CAMLreturn(Val_unit); } @@ -383,7 +383,7 @@ CAMLprim value stub_xc_domain_resume_fast(value xch_val, value domid) caml_enter_blocking_section(); result = xc_domain_resume(xch, c_domid, 1); caml_leave_blocking_section(); - if (result) + if (result) failwith_xc(xch); CAMLreturn(Val_unit); } @@ -426,7 +426,7 @@ static value alloc_domaininfo(xc_domaininfo_t * info) Store_field(result, 13, Val_int(info->max_vcpu_id)); Store_field(result, 14, caml_copy_int32(info->ssidref)); - tmp = caml_alloc_small(16, 0); + tmp = caml_alloc_small(16, 0); for (i = 0; i < 16; i++) { Field(tmp, i) = Val_int(info->handle[i]); } -- 2.34.1