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 | |
parent | de7c3ec210cb5374bfcd133394fa35f0c7f516ac (diff) | |
download | compcert-29e5edad6a46c678465d1ab0afb37fec16545cba.tar.gz compcert-29e5edad6a46c678465d1ab0afb37fec16545cba.zip |
Another update from Andrew Tolmach
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1840 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
-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 |