File remove-duplicate-ocaml-macros.diff of Package xen

Overview Repositories Revisions Requests Users Attributes Meta

File remove-duplicate-ocaml-macros.diff of Package xen (Revision d82d0ba6938b17768b88fb3b9ee2e373)

Currently displaying revision d82d0ba6938b17768b88fb3b9ee2e373 , Show latest

--- a/tools/ocaml/libs/xentoollog/xentoollog_stubs.c	2021-07-26 20:13:35.770688449 +0200
+++ b/tools/ocaml/libs/xentoollog/xentoollog_stubs.c	2021-07-26 20:13:48.480551705 +0200
@@ -52,10 +52,6 @@
 
 #include "_xtl_levels.inc"
 
-/* Option type support as per http://www.linux-nantes.org/~fmonnier/ocaml/ocaml-wrapping-c.php */
-#define Val_none Val_int(0)
-#define Some_val(v) Field(v,0)
-
 static value Val_some(value v)
 {
 	CAMLparam1(v);
--- a/tools/ocaml/libs/xc/xenctrl_stubs.c	2021-07-26 20:33:57.517958744 +0200
+++ b/tools/ocaml/libs/xc/xenctrl_stubs.c	2021-07-26 20:34:13.327793720 +0200
@@ -43,8 +43,6 @@
 #define _H(__h) ((xc_interface *)(__h))
 #define _D(__d) ((uint32_t)Int_val(__d))
 
-#define Val_none (Val_int(0))
-
 #define string_of_option_array(array, index) \
 	((Field(array, index) == Val_none) ? NULL : String_val(Field(Field(array, index), 0)))
 
--- a/tools/ocaml/libs/xl/xenlight_stubs.c	2021-07-26 21:04:30.088450858 +0200
+++ b/tools/ocaml/libs/xl/xenlight_stubs.c	2021-07-26 21:04:46.440444281 +0200
@@ -226,10 +226,6 @@
 	CAMLreturn(list);
 }
 
-/* Option type support as per http://www.linux-nantes.org/~fmonnier/ocaml/ocaml-wrapping-c.php */
-#define Val_none Val_int(0)
-#define Some_val(v) Field(v,0)
-
 static value Val_some(value v)
 {
 	CAMLparam1(v);

Places

File remove-duplicate-ocaml-macros.diff of Package xen (Revision d82d0ba6938b17768b88fb3b9ee2e373)

Places