diff options
Diffstat (limited to 'caml')
-rw-r--r-- | caml/Cil2Csyntax.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/caml/Cil2Csyntax.ml b/caml/Cil2Csyntax.ml index eb9252e6..779929cf 100644 --- a/caml/Cil2Csyntax.ml +++ b/caml/Cil2Csyntax.ml @@ -711,6 +711,8 @@ let rec extract_constant e = ICfloat(n, sz) | ICint(n, _), Tfloat sz -> ICfloat(Int64.to_float n, sz) + | ICint(n, sz), Tpointer _ -> + ICint(n, sz) | _, _ -> ICnone end |