diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-04-19 07:17:36 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-04-19 07:17:36 +0000 |
commit | d38d04876f6da28b441b49c4dfb3db3fbb2ce970 (patch) | |
tree | 7de595ffce7f865f09a417035e0e829ff472954c /caml/PrintCsyntax.ml | |
parent | 9fdd9361e139fd36954f5ec9371d07461160b094 (diff) |
Impression des 'for'
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@620 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'caml/PrintCsyntax.ml')
-rw-r--r-- | caml/PrintCsyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/caml/PrintCsyntax.ml b/caml/PrintCsyntax.ml index bc4dea6..9ea5b4b 100644 --- a/caml/PrintCsyntax.ml +++ b/caml/PrintCsyntax.ml @@ -291,7 +291,7 @@ and print_stmt_for p s = print_expr e1 print_expr_list (true, el) | _ -> - fprintf p "<impossible>" + fprintf p "({ %a })" print_stmt s let name_function_parameters fun_name params = let b = Buffer.create 20 in |