diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-03-09 15:45:44 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-03-09 15:45:44 +0000 |
| commit | 29e5edad6a46c678465d1ab0afb37fec16545cba (patch) | |
| tree | 53a1c84f28ef925a5047bf4e4430fb30236477f4 /backend/PrintCminor.ml | |
| parent | de7c3ec210cb5374bfcd133394fa35f0c7f516ac (diff) | |
| download | compcert-kvx-29e5edad6a46c678465d1ab0afb37fec16545cba.tar.gz compcert-kvx-29e5edad6a46c678465d1ab0afb37fec16545cba.zip | |
Another update from Andrew Tolmach
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1840 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
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 619c788b..f3557601 100644 --- a/backend/PrintCminor.ml +++ b/backend/PrintCminor.ml @@ -230,7 +230,7 @@ let rec print_stmt p s = fprintf p "@[<v 3>{{ %a@;<0 -3>}}@]" print_stmt s | Sexit n -> - fprintf p "exit %d;" (camlint_of_nat n + 1) + fprintf p "exit %d;" (camlint_of_nat n) | Sswitch(e, cases, dfl) -> fprintf p "@[<v 2>switch (%a) {" print_expr e; List.iter |