Source file `migrate_parsetree_compiler_functions.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
# 1 "src/vendored-omp/src/compiler-functions/ge_50.ml"
let error_of_exn exn =
  match Location.error_of_exn exn with
  | Some (`Ok exn) -> Some exn
  | Some `Already_displayed -> None
  | None -> None

let get_load_paths () =
  Load_path.get_paths ()

let load_path_init l =
  let auto_include find_in_dir fn =
    if !Clflags.no_std_include then
      raise Not_found
    else
      let alert = Location.auto_include_alert in
      Load_path.auto_include_otherlibs alert find_in_dir fn
  in
  Load_path.init ~auto_include l

let get_unboxed_types () =
  !Clflags.unboxed_types

let set_unboxed_types b =
  Clflags.unboxed_types := b

let may_map = Option.map

let bad_docstring t = Warnings.Unexpected_docstring t