From 355b4abcee015c3fae9ac5653c25259e104a886c Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Sat, 4 Aug 2007 07:27:50 +0000
Subject: Fusion des modifications faites sur les branches "tailcalls" et
 "smallstep". En particulier: - Semantiques small-step depuis RTL jusqu'a PPC
 - Cminor independant du processeur - Ajout passes Selection et Reload - Ajout
 des langages intermediaires CminorSel et LTLin correspondants - Ajout des
 tailcalls depuis Cminor jusqu'a PPC

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@384 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 caml/Main2.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'caml/Main2.ml')

diff --git a/caml/Main2.ml b/caml/Main2.ml
index ff9f3509..e3399fb9 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
-- 
cgit