blob: ab2a957fe4d388371d9a86d160fcfe6c141b6859 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(***********************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 1996 Institut National de Recherche en Informatique et *)
(* Automatique. Distributed only by permission. *)
(* *)
(***********************************************************************)
(* $Id$ *)
(* Common functions for emitting assembly code *)
val output_channel: out_channel ref
val emit_string: string -> unit
val emit_int: int -> unit
val emit_symbol: char -> string -> unit
val emit_string_literal: string -> unit
val emit_printf: ('a, out_channel, unit) format -> 'a
val emit_char: char -> unit
|
