(**************************************************************************)
(*                                                                        *)
(*                                 OCaml                                  *)
(*                                                                        *)
(*                       Pierre Chambart, OCamlPro                        *)
(*           Mark Shinwell and Leo White, Jane Street Europe              *)
(*                                                                        *)
(*   Copyright 2013--2016 OCamlPro SAS                                    *)
(*   Copyright 2014--2016 Jane Street Group LLC                           *)
(*                                                                        *)
(*   All rights reserved.  This file is distributed under the terms of    *)
(*   the GNU Lesser General Public License version 2.1, with the          *)
(*   special exception on linking described in the file LICENSE.          *)
(*                                                                        *)
(**************************************************************************)

[@@@ocaml.warning "+a-4-9-30-40-41-42"]

(** Knowledge that the middle end needs about the backend. *)

module type S = sig
  (** Compute the symbol for the given identifier. *)
  val symbol_for_global' : (Ident.t -> Symbol.t)

  (** If the given approximation is that of a symbol (Value_symbol) or an
      external (Value_extern), attempt to find a more informative
      approximation from a previously-written compilation artifact.  In the
      native code backend, for example, this might consult a .cmx file. *)
  val really_import_approx : Simple_value_approx.t -> Simple_value_approx.t

  val import_symbol : Symbol.t -> Simple_value_approx.t

  val closure_symbol : Closure_id.t -> Symbol.t

  (** The natural size of an integer on the target architecture
      (cf. [Arch.size_int] in the native code backend). *)
  val size_int : int

  (** [true] iff the target architecture is big endian. *)
  val big_endian : bool

  (** The maximum number of arguments that is reasonable for a function
      to have.  This should be fewer than the threshold that causes non-self
      tail call optimization to be inhibited (in particular, if it would
      entail passing arguments on the stack; see [Selectgen]). *)
  val max_sensible_number_of_arguments : int
end