diff options
Diffstat (limited to 'exportclight/ExportClight.ml')
-rw-r--r-- | exportclight/ExportClight.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/exportclight/ExportClight.ml b/exportclight/ExportClight.ml index 474a1bd8..9937e5e7 100644 --- a/exportclight/ExportClight.ml +++ b/exportclight/ExportClight.ml @@ -287,6 +287,8 @@ let external_function p = function coqstring text signatur sg (print_list coqstring) clob + | EF_profiling(id, kind) -> + fprintf p "EF_profiling" (* should not happen *) (* Expressions *) @@ -313,6 +315,7 @@ let name_binop = function | Ogt -> "Ogt" | Ole -> "Ole" | Oge -> "Oge" + | Oexpect -> "Oexpect" let rec expr p = function | Evar(id, t) -> |