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 | |
| parent | 9fdd9361e139fd36954f5ec9371d07461160b094 (diff) | |
| download | compcert-kvx-d38d04876f6da28b441b49c4dfb3db3fbb2ce970.tar.gz compcert-kvx-d38d04876f6da28b441b49c4dfb3db3fbb2ce970.zip | |
Impression des 'for'
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@620 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
| -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 bc4dea65..9ea5b4b8 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 |