|
|
70cfe51 |
--- xen-4.17.1/tools/ocaml/common.make.orig 2023-04-27 06:53:19.000000000 -0600
|
|
|
70cfe51 |
+++ xen-4.17.1/tools/ocaml/common.make 2023-06-20 09:47:25.250969763 -0600
|
|
|
70cfe51 |
@@ -11,9 +11,9 @@ OCAMLFIND ?= ocamlfind
|
|
|
70cfe51 |
|
|
|
70cfe51 |
CFLAGS += -fPIC -I$(shell ocamlc -where)
|
|
|
70cfe51 |
|
|
|
70cfe51 |
-OCAMLOPTFLAG_G := $(shell $(OCAMLOPT) -h 2>&1 | sed -n 's/^ *\(-g\) .*/\1/p')
|
|
|
70cfe51 |
-OCAMLOPTFLAGS = $(OCAMLOPTFLAG_G) -ccopt "$(LDFLAGS)" -dtypes $(OCAMLINCLUDE) -cc $(CC) -w F -warn-error F
|
|
|
70cfe51 |
-OCAMLCFLAGS += -g $(OCAMLINCLUDE) -w F -warn-error F
|
|
|
70cfe51 |
+OCAMLOPTFLAG_G := -g
|
|
|
70cfe51 |
+OCAMLOPTFLAGS = $(OCAMLOPTFLAG_G) -ccopt "$(LDFLAGS)" -dtypes $(OCAMLINCLUDE) -cc $(CC) -w F -warn-error F -I +unix
|
|
|
70cfe51 |
+OCAMLCFLAGS += -g $(OCAMLINCLUDE) -w F -warn-error F -I +unix
|
|
|
70cfe51 |
|
|
|
70cfe51 |
VERSION := 4.1
|
|
|
70cfe51 |
|
|
|
70cfe51 |
--- xen-4.17.1/tools/ocaml/libs/xentoollog/xentoollog_stubs.c.orig 2023-04-27 06:53:19.000000000 -0600
|
|
|
70cfe51 |
+++ xen-4.17.1/tools/ocaml/libs/xentoollog/xentoollog_stubs.c 2023-06-20 09:04:30.375263358 -0600
|
|
|
70cfe51 |
@@ -33,7 +33,7 @@
|
|
|
70cfe51 |
|
|
|
70cfe51 |
/* The following is equal to the CAMLreturn macro, but without the return */
|
|
|
70cfe51 |
#define CAMLdone do{ \
|
|
|
70cfe51 |
-caml_local_roots = caml__frame; \
|
|
|
70cfe51 |
+CAML_LOCAL_ROOTS = caml__frame; \
|
|
|
70cfe51 |
}while (0)
|
|
|
70cfe51 |
|
|
|
70cfe51 |
#define XTL ((xentoollog_logger *) Xtl_val(handle))
|
|
|
70cfe51 |
--- xen-4.17.1/tools/ocaml/libs/xl/xenlight_stubs.c.orig 2023-04-27 06:53:19.000000000 -0600
|
|
|
70cfe51 |
+++ xen-4.17.1/tools/ocaml/libs/xl/xenlight_stubs.c 2023-06-20 09:34:09.550454354 -0600
|
|
|
70cfe51 |
@@ -43,14 +43,14 @@
|
|
|
70cfe51 |
#ifndef CAMLreturnT
|
|
|
70cfe51 |
#define CAMLreturnT(type, result) do { \
|
|
|
70cfe51 |
type caml__temp_result = (result); \
|
|
|
70cfe51 |
- caml_local_roots = caml__frame; \
|
|
|
70cfe51 |
+ CAML_LOCAL_ROOTS = caml__frame; \
|
|
|
70cfe51 |
return (caml__temp_result); \
|
|
|
70cfe51 |
} while (0)
|
|
|
70cfe51 |
#endif
|
|
|
70cfe51 |
|
|
|
70cfe51 |
/* The following is equal to the CAMLreturn macro, but without the return */
|
|
|
70cfe51 |
#define CAMLdone do{ \
|
|
|
70cfe51 |
-caml_local_roots = caml__frame; \
|
|
|
70cfe51 |
+CAML_LOCAL_ROOTS = caml__frame; \
|
|
|
70cfe51 |
}while (0)
|
|
|
70cfe51 |
|
|
|
70cfe51 |
#define Ctx_val(x)(*((libxl_ctx **) Data_custom_val(x)))
|
|
|
70cfe51 |
--- xen-4.17.1/tools/ocaml/Makefile.rules.orig 2023-04-27 06:53:19.000000000 -0600
|
|
|
70cfe51 |
+++ xen-4.17.1/tools/ocaml/Makefile.rules 2023-06-20 10:00:58.769235173 -0600
|
|
|
70cfe51 |
@@ -59,9 +59,9 @@ quiet-command = $(if $(V),$1,@printf " %
|
|
|
70cfe51 |
mk-caml-lib-native = $(call quiet-command, $(OCAMLOPT) $(OCAMLOPTFLAGS) -a -o $1 $2 $3,MLA,$1)
|
|
|
70cfe51 |
mk-caml-lib-bytecode = $(call quiet-command, $(OCAMLC) $(OCAMLCFLAGS) -a -o $1 $2 $3,MLA,$1)
|
|
|
70cfe51 |
|
|
|
70cfe51 |
-mk-caml-stubs = $(call quiet-command, $(OCAMLMKLIB) -o `basename $1 .a` $2,MKLIB,$1)
|
|
|
70cfe51 |
+mk-caml-stubs = $(call quiet-command, $(OCAMLMKLIB) -g -o `basename $1 .a` $2,MKLIB,$1)
|
|
|
70cfe51 |
mk-caml-lib-stubs = \
|
|
|
70cfe51 |
- $(call quiet-command, $(AR) rcs $1 $2 && $(OCAMLMKLIB) -o `basename $1 .a | sed -e 's/^lib//'` $2,MKLIB,$1)
|
|
|
70cfe51 |
+ $(call quiet-command, $(AR) rcs $1 $2 && $(OCAMLMKLIB) -g -o `basename $1 .a | sed -e 's/^lib//'` $2,MKLIB,$1)
|
|
|
70cfe51 |
|
|
|
70cfe51 |
# define a library target <name>.cmxa and <name>.cma
|
|
|
70cfe51 |
define OCAML_LIBRARY_template
|
|
|
70cfe51 |
--- xen-4.17.1/tools/ocaml/xenstored/disk.ml.orig 2023-04-27 06:53:19.000000000 -0600
|
|
|
70cfe51 |
+++ xen-4.17.1/tools/ocaml/xenstored/disk.ml 2023-06-20 09:49:44.361963710 -0600
|
|
|
70cfe51 |
@@ -30,7 +30,7 @@ let undec c =
|
|
|
70cfe51 |
| _ -> raise (Failure "undecify")
|
|
|
70cfe51 |
|
|
|
70cfe51 |
let unhex c =
|
|
|
70cfe51 |
- let c = Char.lowercase c in
|
|
|
70cfe51 |
+ let c = Char.lowercase_ascii c in
|
|
|
70cfe51 |
match c with
|
|
|
70cfe51 |
| '0' .. '9' -> (Char.code c) - (Char.code '0')
|
|
|
70cfe51 |
| 'a' .. 'f' -> (Char.code c) - (Char.code 'a') + 10
|