diff options
Diffstat (limited to 'caml/Main2.ml')
| -rw-r--r-- | caml/Main2.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/caml/Main2.ml b/caml/Main2.ml index ff9f350..e3399fb 100644 --- a/caml/Main2.ml +++ b/caml/Main2.ml @@ -94,8 +94,8 @@ let process_c_file sourcename = (* Convert to PPC *) let ppc = match Main.transf_c_program csyntax with - | Datatypes.Some x -> x - | Datatypes.None -> + | Errors.OK x -> x + | Errors.Error msg -> eprintf "Error in translation Csyntax -> PPC\n"; exit 2 in (* Save PPC asm *) @@ -111,10 +111,10 @@ let process_cminor_file sourcename = match Main.transf_cminor_program (CMtypecheck.type_program (CMparser.prog CMlexer.token lb)) with - | Datatypes.None -> + | Errors.Error msg -> eprintf "Compiler failure\n"; exit 2 - | Datatypes.Some p -> + | Errors.OK p -> let oc = open_out targetname in PrintPPC.print_program oc p; close_out oc |