diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-04-01 17:31:29 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-04-01 17:31:29 +0200 |
| commit | 2e30ad9698a6f24a8a746f68b30c235913006392 (patch) | |
| tree | 96de302ca31791fa0833ef9139b5e34e51629fbd | |
| parent | 8fa20fb6701a380835eed29770aafd3f087ebad8 (diff) | |
| parent | 5d6febecb8c0f90a627033744f6f62164645a1a4 (diff) | |
| download | compcert-2e30ad9698a6f24a8a746f68b30c235913006392.tar.gz compcert-2e30ad9698a6f24a8a746f68b30c235913006392.zip | |
Merge branch 'master' into dwarf
| -rw-r--r-- | cfrontend/PrintClight.ml | 2 | ||||
| -rw-r--r-- | cfrontend/PrintCsyntax.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/cfrontend/PrintClight.ml b/cfrontend/PrintClight.ml index ebd06c54..f1c3ef18 100644 --- a/cfrontend/PrintClight.ml +++ b/cfrontend/PrintClight.ml @@ -206,7 +206,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 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 |