From 8539759095f95f2fbb680efc7633d868099114c8 Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 29 Dec 2012 16:55:38 +0000 Subject: 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 --- driver/Driver.ml | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'driver/Driver.ml') diff --git a/driver/Driver.ml b/driver/Driver.ml index 7fe3f64b..ca703fdc 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' -- cgit