bytecomp/emitcode.mli

   1 (***********************************************************************)
   2 (*                                                                     *)
   3 (*                           Objective Caml                            *)
   4 (*                                                                     *)
   5 (*            Xavier Leroy, projet Cristal, INRIA Rocquencourt         *)
   6 (*                                                                     *)
   7 (*  Copyright 1996 Institut National de Recherche en Informatique et   *)
   8 (*  en Automatique.  All rights reserved.  This file is distributed    *)
   9 (*  under the terms of the Q Public License version 1.0.               *)
  10 (*                                                                     *)
  11 (***********************************************************************)
  12
  13 (* $Id$ *)
  14
  15 (* Generation of bytecode for .cmo files *)
  16
  17 open Cmo_format
  18 open Instruct
  19
  20 val to_file: out_channel -> string -> instruction list -> unit
  21         (* Arguments:
  22              channel on output file
  23              name of compilation unit implemented
  24              list of instructions to emit *)
  25 val to_memory: instruction list -> instruction list ->
  26                     string * int * (reloc_info * int) list
  27         (* Arguments:
  28              initialization code (terminated by STOP)
  29              function code
  30            Results:
  31              block of relocatable bytecode
  32              size of this block
  33              relocation information *)
  34 val to_packed_file:
  35   out_channel -> instruction list -> (reloc_info * int) list
  36         (* Arguments:
  37              channel on output file
  38              list of instructions to emit
  39            Result:
  40              relocation information (reversed) *)