Compiler: no more Const_pointer in 4.07

maxigue · Mar 23, 2018 · baeff63 · baeff63
1 parent f0788a2
commit baeff63
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/compiler/lib/util.cppo.ml b/compiler/lib/util.cppo.ml
@@ -487,8 +487,10 @@ let rec obj_of_const =
     ) l;
     b
 #else
+#if OCAML_VERSION < (4,7,0)
   | Const_pointer i ->
     Obj.repr i
+#endif
   | Const_block (tag,l) ->
     let b = Obj.new_block tag (List.length l) in
     List.iteri (fun i x ->