diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-03-09 09:52:04 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-03-09 09:52:04 +0000 |
commit | 8a64451e6f474d20a469b939a938577bbe6d3d66 (patch) | |
tree | e49a52973b9fbf726ba2ceff3e7af0ee2b84e617 /cfrontend/C2C.ml | |
parent | 8a26cc219f8c8211301f021bd0ee4a27153528f8 (diff) | |
download | compcert-8a64451e6f474d20a469b939a938577bbe6d3d66.tar.gz compcert-8a64451e6f474d20a469b939a938577bbe6d3d66.zip |
Merge of Andrew Tolmach's HASP-related changes
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1838 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/C2C.ml')
-rw-r--r-- | cfrontend/C2C.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index 14e345bc..6386445c 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -727,6 +727,7 @@ let string_of_errmsg msg = let string_of_err = function | CompcertErrors.MSG s -> camlstring_of_coqstring s | CompcertErrors.CTX i -> extern_atom i + | CompcertErrors.CTXL i -> "" (* should not happen *) in String.concat "" (List.map string_of_err msg) let rec convertInit env init = |