diff options
author | Jacques-Henri Jourdan <jacques-henri.jourdan@inria.fr> | 2015-04-01 16:25:39 +0200 |
---|---|---|
committer | Jacques-Henri Jourdan <jacques-henri.jourdan@inria.fr> | 2015-04-01 16:25:39 +0200 |
commit | 04eda5b197e0a20367d0f245ab595a9dc7d1344a (patch) | |
tree | e6497afc2c0912c603d984c8693dbd91cb1118be /cfrontend/PrintCsyntax.ml | |
parent | 47a6b116069cff9c71466bde1fd87d0775ec9175 (diff) | |
download | compcert-kvx-04eda5b197e0a20367d0f245ab595a9dc7d1344a.tar.gz compcert-kvx-04eda5b197e0a20367d0f245ab595a9dc7d1344a.zip |
Fix overflows in printers for clight and csyntax.
Diffstat (limited to 'cfrontend/PrintCsyntax.ml')
-rw-r--r-- | cfrontend/PrintCsyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |