diff options
Diffstat (limited to 'cfrontend/C2C.ml')
-rw-r--r-- | cfrontend/C2C.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index aa9eca0..d425693 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -752,7 +752,7 @@ let string_of_errmsg msg = let string_of_err = function | Errors.MSG s -> camlstring_of_coqstring s | Errors.CTX i -> extern_atom i - | Errors.CTXL i -> "" (* should not happen *) + | Errors.POS i -> sprintf "%ld" (camlint_of_positive i) in String.concat "" (List.map string_of_err msg) let rec convertInit env init = |