From 8562093a2337643164670d59d397771b1c881e5b Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Wed, 31 Jul 2019 12:30:20 +0200
Subject: [ocaml] Allow building with deprecated Obj primitives.

We allow the build to use some deprecated primitives in OCaml
4.09.0, for more details see bug #10602
---
 kernel/nativevalues.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel')

diff --git a/kernel/nativevalues.ml b/kernel/nativevalues.ml
index e54118c775..f788832d5b 100644
--- a/kernel/nativevalues.ml
+++ b/kernel/nativevalues.ml
@@ -96,14 +96,14 @@ let mk_accu (a : atom) : t =
     else
       let data = { data with acc_arg = x :: data.acc_arg } in
       let ans = Obj.repr (accumulate data) in
-      let () = Obj.set_tag ans accumulate_tag in
+      let () = Obj.set_tag ans accumulate_tag [@ocaml.alert "--deprecated"] in
       ans
   in
   let acc = { acc_atm = a; acc_arg = [] } in
   let ans = Obj.repr (accumulate acc) in
   (** FIXME: use another representation for accumulators, this causes naked
       pointers. *)
-  let () = Obj.set_tag ans accumulate_tag in
+  let () = Obj.set_tag ans accumulate_tag [@ocaml.alert "--deprecated"] in
   (Obj.obj ans : t)
 
 let get_accu (k : accumulator) =
-- 
cgit v1.2.3