From 1cd385f3b354a78ae8d02333f40cd065073c9b19 Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 21 Dec 2013 17:00:43 +0000 Subject: Support "default" cases in the middle of a "switch", not just at the end. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2383 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- backend/PrintCminor.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'backend') diff --git a/backend/PrintCminor.ml b/backend/PrintCminor.ml index 5b91d41..33c38f5 100644 --- a/backend/PrintCminor.ml +++ b/backend/PrintCminor.ml @@ -257,7 +257,7 @@ let rec print_stmt p s = fprintf p "@[switch (%a) {" print_expr e; List.iter (fun (n, x) -> - fprintf p "@ case %ld: exit %d;\n" + fprintf p "@ case %ld: exit %d;" (camlint_of_coqint n) (Nat.to_int x)) cases; fprintf p "@ default: exit %d;\n" (Nat.to_int dfl); -- cgit v1.2.3