Emitaux
val output_channel : out_channel ref
val emit_printf : ('a, out_channel, unit) format -> 'a
val emit_debug_info : Debuginfo.t -> unit
val emit_debug_info_gen :
Debuginfo.t ->
(file_num:int -> file_name:string -> unit) ->
(file_num:int -> line:int -> col:int -> unit) ->
unit
type frame_debuginfo =
| Dbg_alloc of Debuginfo.alloc_dbginfo
| Dbg_raise of Debuginfo.t
| Dbg_other of Debuginfo.t
val record_frame_descr :
label:int ->
frame_size:int ->
live_offset:int list ->
frame_debuginfo ->
unit
val emit_frames : emit_frame_actions -> unit
val binary_backend_available : bool ref
Is a binary backend available. If yes, we don't need to generate the textual assembly file (unless the user request it with -S).
val create_asm_file : bool ref
Are we actually generating the textual assembly file?
exception Error of error
val report_error : Format.formatter -> error -> unit
val mk_env : Linear.fundecl -> Emitenv.per_function_env