diff options
Diffstat (limited to 'backend/PrintCminor.ml')
| -rw-r--r-- | backend/PrintCminor.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 "@[<v 2>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); |