From 392c8f87bac1e47e18a2d7929bd01c2097b9e43a Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Thu, 14 Mar 2019 05:14:07 +0100
Subject: [dune] Don't have `lib` depend on `dynlink`

This is convenient for the bootstrap of `coqdep`
---
 kernel/dune   | 2 +-
 lib/dune      | 2 +-
 lib/system.ml | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/kernel/dune b/kernel/dune
index a8a87a3e95..5b23a705ae 100644
--- a/kernel/dune
+++ b/kernel/dune
@@ -4,7 +4,7 @@
  (public_name coq.kernel)
  (wrapped false)
  (modules (:standard \ genOpcodeFiles uint63_x86 uint63_amd64 write_uint63))
- (libraries lib byterun))
+ (libraries lib byterun dynlink))
 
 (executable
   (name genOpcodeFiles)
diff --git a/lib/dune b/lib/dune
index 8c6ef06e99..83783f9b5c 100644
--- a/lib/dune
+++ b/lib/dune
@@ -4,4 +4,4 @@
  (public_name coq.lib)
  (wrapped false)
  (modules_without_implementation xml_datatype)
- (libraries dynlink coq.clib coq.config))
+ (libraries coq.clib coq.config))
diff --git a/lib/system.ml b/lib/system.ml
index fd6579dd69..c408061852 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -304,7 +304,7 @@ let with_time ~batch ~header f x =
     raise e
 
 (* We use argv.[0] as we don't want to resolve symlinks *)
-let get_toplevel_path ?(byte=not Dynlink.is_native) top =
+let get_toplevel_path ?(byte=Sys.(backend_type = Bytecode)) top =
   let open Filename in
   let dir = if String.equal (basename Sys.argv.(0)) Sys.argv.(0)
             then "" else dirname Sys.argv.(0) ^ dir_sep in
-- 
cgit v1.2.3