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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
(**************************************************************************)
(* *)
(* OCaml *)
(* *)
(* Fabrice Le Fessant, projet Gallium, INRIA Rocquencourt *)
(* *)
(* Copyright 2014 Institut National de Recherche en Informatique et *)
(* en Automatique. *)
(* *)
(* 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. *)
(* *)
(**************************************************************************)
(** Definitions shared between the 32 and 64 bit Intel backends. *)
open X86_ast
(** Helpers for textual emitters *)
val string_of_reg8l: reg64 -> string
val string_of_reg8h: reg8h -> string
val string_of_reg16: reg64 -> string
val string_of_reg32: reg64 -> string
val string_of_reg64: reg64 -> string
val string_of_registerf: registerf -> string
val string_of_string_literal: string -> string
val string_of_condition: condition -> string
val string_of_float_condition: float_condition -> string
val string_of_symbol: (*prefix*) string -> string -> string
val string_of_rounding: rounding -> string
val buf_bytes_directive:
Buffer.t -> (*directive*) string -> (*data*)string -> unit
(** Buffer of assembly code *)
val emit: instruction -> unit
val directive: asm_line -> unit
val reset_asm_code: unit -> unit
(** Code emission *)
val generate_code: (X86_ast.asm_line list -> unit) option -> unit
(** Post-process the stream of instructions. Dump it (using
the provided syntax emitter) in a file (if provided) and
compile it with an internal assembler (if registered
through [register_internal_assembler]). *)
val assemble_file: (*infile*) string -> (*outfile*) string -> (*retcode*) int
(** Generate an object file corresponding to the last call to
[generate_code]. An internal assembler is used if available (and
the input file is ignored). Otherwise, the source asm file with an
external assembler. *)
(** System detection *)
type system =
| S_macosx
| S_gnu
| S_cygwin
| S_solaris
| S_beos
| S_win64
| S_linux
| S_mingw64
| S_freebsd
| S_netbsd
| S_openbsd
| S_unknown
val system: system
val masm: bool
val windows:bool
(** Whether calls need to go via the PLT. *)
val use_plt : bool
(** Support for plumbing a binary code emitter *)
val register_internal_assembler: (asm_program -> string -> unit) -> unit
val with_internal_assembler:
(asm_program -> string -> unit) -> (unit -> 'a) -> 'a
|
