change ocaml version to no-naked-pointers

OCamlPro · Mar 21, 2024 · 4f129bf · 4f129bf
1 parent 9898a65
commit 4f129bf
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/dune-project b/dune-project
@@ -32,6 +32,7 @@
     markup
     num
     (ocaml (>= 4.08))
+    ocaml-option-nnp
     (ocamlformat (and :dev (= 0.24.1)))
     ounit
     ppx_blob

diff --git a/geneweb.opam b/geneweb.opam
@@ -24,6 +24,7 @@ depends: [
   "markup"
   "num"
   "ocaml" {>= "4.08"}
+  "ocaml-option-nnp"
   "ocamlformat" {dev & = "0.24.1"}
   "ounit"
   "ppx_blob"

diff --git a/lib/gwdb-legacy/iovalue.ml b/lib/gwdb-legacy/iovalue.ml
@@ -160,8 +160,8 @@ let rec output_loop ofuns oc x =
   else if Obj.tag x = Obj.abstract_tag then failwith "Iovalue.output <abstract>"
   else if Obj.tag x = Obj.infix_tag then failwith "Iovalue.output: <infix>"
   else if Obj.tag x = Obj.custom_tag then failwith "Iovalue.output: <custom>"
-  else if Obj.tag x = Obj.out_of_heap_tag then
-    failwith "Iovalue.output: abstract value (outside heap)"
+    (* else if Obj.tag x = Obj.out_of_heap_tag then *)
+    (*   failwith "Iovalue.output: abstract value (outside heap)" *)
   else (
     gen_output_block_header ofuns oc (Obj.tag x) (Obj.size x);
     (* last case of "for" separated, to make more tail recursive cases