1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
(***********************************************************************)
(* *)
(* 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: main.ml 3229 2000-07-07 14:09:23Z xleroy $ *)
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
|
