Skip to content
Snippets Groups Projects
Commit 071b8416 authored by Julien Signoles's avatar Julien Signoles
Browse files

fix warnings with OCaml 4.01

parent 31f85f21
No related branches found
No related tags found
No related merge requests found
...@@ -78,7 +78,7 @@ PLUGIN_DISTRIB_BIN:=no ...@@ -78,7 +78,7 @@ PLUGIN_DISTRIB_BIN:=no
############### ###############
# Enable -warn-error in development mode, but not in distribution mode # Enable -warn-error in development mode, but not in distribution mode
# Do not edit the line below: it is automatically set by 'make src-distrib' # Do not edit the line below: it is automatically set by 'make e-acsl-distrib'
IS_DISTRIBUTED:=no IS_DISTRIBUTED:=no
ifneq ($(IS_DISTRIBUTED),yes) ifneq ($(IS_DISTRIBUTED),yes)
ifeq ($(EACSL_HAS_OCAML312),yes) ifeq ($(EACSL_HAS_OCAML312),yes)
......
...@@ -76,7 +76,7 @@ let init_set ~loc lv ev e = ...@@ -76,7 +76,7 @@ let init_set ~loc lv ev e =
(match e.enode with (match e.enode with
| Lval elv -> | Lval elv ->
let call = let call =
Misc.mk_call ?loc Misc.mk_call ~loc
"__gmpz_import" "__gmpz_import"
[ ev; [ ev;
Cil.one ~loc; Cil.one ~loc;
...@@ -88,7 +88,7 @@ let init_set ~loc lv ev e = ...@@ -88,7 +88,7 @@ let init_set ~loc lv ev e =
in in
Cil.mkStmt Cil.mkStmt
~valid_sid:true ~valid_sid:true
(Block (Cil.mkBlock [ init ?loc ev; call ])) (Block (Cil.mkBlock [ init ~loc ev; call ]))
| _ -> Error.not_yet "unsigned long long expression requiring GMP") | _ -> Error.not_yet "unsigned long long expression requiring GMP")
| Longlong ILongLong -> | Longlong ILongLong ->
Error.not_yet "long long requiring GMP" Error.not_yet "long long requiring GMP"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment