Commit e20c54bf authored by Julien Signoles's avatar Julien Signoles
Browse files

[translate] compile

parent 60887910
...@@ -112,11 +112,13 @@ let add_cast ~loc ?name env ctx strnum t_opt e = ...@@ -112,11 +112,13 @@ let add_cast ~loc ?name env ctx strnum t_opt e =
e e
else if not (Cil.isIntegralType ty) && strnum = C_number then else if not (Cil.isIntegralType ty) && strnum = C_number then
Cil.mkCast e Cil.longType (* \null *) Cil.mkCast e Cil.longType (* \null *)
else else begin
(* TODO RATIONAL: this case seems to be possible: (* TODO RATIONAL: this case seems to be possible:
getting a very long rational constants (so a string) to be casted getting a very long rational constants (so a string) to be casted
to an integer *) to an integer *)
assert (not (Cil.isIntegralType ty) && sty = Str_R) assert (not (Cil.isIntegralType ty) && strnum = Str_R);
assert false
end
in in
mk_mpz e mk_mpz e
else if Real.is_t ctx then else if Real.is_t ctx then
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment