Skip to content

Commit

Permalink
Install the base packages when building the system compiler descripti…
Browse files Browse the repository at this point in the history
…on file
  • Loading branch information
samoht committed Jul 5, 2012
1 parent c5b08a5 commit 6546a07
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 3 deletions.
2 changes: 2 additions & 0 deletions src/client.ml
Expand Up @@ -320,9 +320,11 @@ let substitute_string t s =

let create_default_compiler_description t =
let ocaml_version = OCaml_V.of_string Globals.default_compiler_version in
let mk name = ((name,None),None) in
let f =
File.Comp.create_preinstalled
ocaml_version
[ mk "base-thread"; mk "base-unix"; mk "base-bigarray"; mk "base-threads" ]
[ ("CAML_LD_LIBRARY_PATH", "+=", Dirname.to_string (Path.C.stublibs t.compiler))] in
let comp = Path.G.compiler t.global ocaml_version in
File.Comp.write comp f
Expand Down
4 changes: 2 additions & 2 deletions src/file.ml
Expand Up @@ -829,8 +829,8 @@ module Comp = struct
env = [];
}

let create_preinstalled name env =
{ empty with name; preinstalled = true; env }
let create_preinstalled name packages env =
{ empty with name; preinstalled = true; packages; env }

let s_name = "name"
let s_src = "src"
Expand Down
3 changes: 2 additions & 1 deletion src/file.mli
Expand Up @@ -168,7 +168,8 @@ module Comp: sig
include IO_FILE

(** Create a pre-installed compiler description file *)
val create_preinstalled: OCaml_V.t -> (string * string * string) list -> t
val create_preinstalled:
OCaml_V.t -> and_formula -> (string * string * string) list -> t

(** Is it a pre-installed compiler description file *)
val preinstalled: t -> bool
Expand Down

0 comments on commit 6546a07

Please sign in to comment.