Merge pull request #641 from fdopen/report-symbol

Report names of missing symbols also under windows
yallop · Apr 21, 2020 · c9481e3 · c9481e3
2 parents 84f74c3 + 93346e9
commit c9481e3
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/ctypes-foreign-base/dl.ml.win b/src/ctypes-foreign-base/dl.ml.win
@@ -123,5 +123,7 @@ let dlsym ?handle ~symbol =
     | Dlsy_ok v -> v
     | Dlsy_unknown -> draise "dlsym" unknown
     | Dlsy_nomem -> draise "dlsym" nomem
-    | Dlsy_enoent -> draise "dlsym" "no such symbol"
+    | Dlsy_enoent ->
+       let msg = Printf.sprintf "no such symbol: %S" symbol in
+       draise "dlsym" msg
     | Dlsy_error x -> draise "dlsym" x