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

Added missing error reporting during scoping pass.

Browse source
This commit is contained in:
Adrien Guatto 2010-10-01 17:03:56 +02:00
parent faf232ad64
commit d57196bb24
1 changed files with 12 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -242,6 +242,7 @@ let rec translate_type loc local_const ty =
and translate_exp local_const env e =
try
let desc =
(*try (* try to see if the exp is a constant *)
Heptagon.Econst (static_exp_of_exp local_const e)
@ -250,6 +251,7 @@ and translate_exp local_const env e =
{ Heptagon.e_desc = desc;
Heptagon.e_ty = Types.invalid_type;
Heptagon.e_loc = e.e_loc }
with ScopingError(error) -> message e.e_loc error
and translate_desc loc local_const env = function
| Econst c -> Heptagon.Econst (translate_static_exp local_const c)