jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Fix, see bugs. ( we probably want a pass to try to convert every exp to static_exp *)

Browse source
This commit is contained in:
Léonard Gérard 2010-09-10 17:10:53 +02:00
parent 8a396074fa
commit 9ccb6db03f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
compiler/heptagon/parsing/hept_scoping.ml
View file

@ -238,10 +238,10 @@ let rec translate_type loc local_const ty =
and translate_exp local_const env e =
let desc =
try (* try to see if the exp is a constant *)
(*try (* try to see if the exp is a constant *)
Heptagon.Econst (static_exp_of_exp local_const e)
with
Not_static -> translate_desc e.e_loc local_const env e.e_desc in
Not_static -> *) translate_desc e.e_loc local_const env e.e_desc in
{ Heptagon.e_desc = desc;
Heptagon.e_ty = Types.invalid_type;
Heptagon.e_loc = e.e_loc }