Merge of the clightgen branch:

- Alternate semantics for Clight where function parameters are temporaries,
  not variables
- New pass SimplLocals that turns non-addressed local variables into
  temporaries
- Simplified Csharpminor, Cshmgen and Cminorgen accordingly
- SimplExpr starts its temporaries above variable names, therefoe
  Cminorgen no longer needs to encode variable names and temps names.
- Simplified Cminor parser & printer, as well as Errors, accordingly.
- New tool clightgen to produce Clight AST in Coq-parsable .v files.
- Removed side condition "return type is void" on rules skip_seq
  in the semantics of CompCert C, Clight, C#minor, Cminor.
- Adapted RTLgenproof accordingly (now uses a memory extension).


git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2083 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e

1 files changed, 1 insertions, 9 deletions

diff --git a/driver/Driver.ml b/driver/Driver.ml
index 7fe3f64..ca703fd 100644
--- a/driver/Driver.ml
+++ b/driver/Driver.ml
@@ -35,19 +35,11 @@ let safe_remove file =
 
 (* Printing of error messages *)
 
-(* Locally named idents are encoded as in Cminorgen.
-   This function should live somewhere more central. *)
-let ident_name id =
-   match id with
-  | BinPos.Coq_xO n -> Camlcoq.extern_atom n
-  | BinPos.Coq_xI n -> Printf.sprintf "$%ld" (Camlcoq.camlint_of_positive n)
-  | BinPos.Coq_xH -> "$0"
-
 let print_error oc msg =
   let print_one_error = function
   | Errors.MSG s -> output_string oc (Camlcoq.camlstring_of_coqstring s)
   | Errors.CTX i -> output_string oc (Camlcoq.extern_atom i)
-  | Errors.CTXL i -> output_string oc (ident_name i)
+  | Errors.POS i -> fprintf oc "%ld" (Camlcoq.camlint_of_positive i)
   in
     List.iter print_one_error msg;
     output_char oc '\n'