1 (***********************************************************************)
5 (* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
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. *)
11 (***********************************************************************)
15 (* From lambda to assembly code *)
17 val compile_implementation
:
18 string -> Format.formatter
-> int * Lambda.lambda
-> unit
20 Format.formatter
-> Cmm.phrase
-> unit
22 type error
= Assembler_error
of string
23 exception Error
of error
24 val report_error
: Format.formatter
-> error
-> unit