61 lines
2.2 KiB
OCaml
61 lines
2.2 KiB
OCaml
(***********************************************************************)
|
|
(* *)
|
|
(* Objective Caml *)
|
|
(* *)
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
|
(* *)
|
|
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
|
(* under the terms of the Q Public License version 1.0. *)
|
|
(* *)
|
|
(***********************************************************************)
|
|
|
|
(* $Id$ *)
|
|
|
|
open Clflags
|
|
|
|
let compile_file filename =
|
|
Compilenv.reset "test";
|
|
Emit.begin_assembly();
|
|
let ic = open_in filename in
|
|
let lb = Lexing.from_channel ic in
|
|
try
|
|
while true do
|
|
Asmgen.compile_phrase Format.std_formatter (Parsecmm.phrase Lexcmm.token lb)
|
|
done
|
|
with
|
|
End_of_file ->
|
|
close_in ic; Emit.end_assembly()
|
|
| Lexcmm.Error msg ->
|
|
close_in ic; Lexcmm.report_error lb msg
|
|
| Parsing.Parse_error ->
|
|
close_in ic;
|
|
prerr_string "Syntax error near character ";
|
|
prerr_int (Lexing.lexeme_start lb);
|
|
prerr_newline()
|
|
| Parsecmmaux.Error msg ->
|
|
close_in ic; Parsecmmaux.report_error msg
|
|
| x ->
|
|
close_in ic; raise x
|
|
|
|
let usage = "Usage: codegen <options> <files>\noptions are:"
|
|
|
|
let main() =
|
|
Arg.parse [
|
|
"-dcmm", Arg.Set dump_cmm, "";
|
|
"-dsel", Arg.Set dump_selection, "";
|
|
"-dlive", Arg.Unit(fun () -> dump_live := true;
|
|
Printmach.print_live := true), "";
|
|
"-dspill", Arg.Set dump_spill, "";
|
|
"-dsplit", Arg.Set dump_split, "";
|
|
"-dinterf", Arg.Set dump_interf, "";
|
|
"-dprefer", Arg.Set dump_prefer, "";
|
|
"-dalloc", Arg.Set dump_regalloc, "";
|
|
"-dreload", Arg.Set dump_reload, "";
|
|
"-dscheduling", Arg.Set dump_scheduling, "";
|
|
"-dlinear", Arg.Set dump_linear, ""
|
|
] compile_file usage
|
|
|
|
let _ = (*Printexc.catch*) main (); exit 0
|
|
|