From 04eda5b197e0a20367d0f245ab595a9dc7d1344a Mon Sep 17 00:00:00 2001 From: Jacques-Henri Jourdan Date: Wed, 1 Apr 2015 16:25:39 +0200 Subject: Fix overflows in printers for clight and csyntax. --- cfrontend/PrintCsyntax.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'cfrontend/PrintCsyntax.ml') diff --git a/cfrontend/PrintCsyntax.ml b/cfrontend/PrintCsyntax.ml index 8a4d60a5..882272b8 100644 --- a/cfrontend/PrintCsyntax.ml +++ b/cfrontend/PrintCsyntax.ml @@ -346,7 +346,7 @@ and print_cases p cases = and print_case_label p = function | None -> fprintf p "default" - | Some lbl -> fprintf p "case %ld" (camlint_of_coqint lbl) + | Some lbl -> fprintf p "case %s" (Z.to_string lbl) and print_stmt_for p s = match s with -- cgit