Fix bug with locations
This commit is contained in:
parent
3b6ca84d8d
commit
5f1b63b33a
|
@ -167,7 +167,7 @@ let mk_equation ?(statefull = true) desc =
|
||||||
|
|
||||||
let mk_var_dec ?(last = Var) name ty =
|
let mk_var_dec ?(last = Var) name ty =
|
||||||
{ v_name = name; v_type = ty;
|
{ v_name = name; v_type = ty;
|
||||||
v_last = last; v_loc = Location.current_loc () }
|
v_last = last; v_loc = no_location }
|
||||||
|
|
||||||
let mk_block ?(statefull = true) defnames eqs =
|
let mk_block ?(statefull = true) defnames eqs =
|
||||||
{ b_local = []; b_equs = eqs; b_defnames = defnames;
|
{ b_local = []; b_equs = eqs; b_defnames = defnames;
|
||||||
|
|
|
@ -6,7 +6,7 @@ shopt -s nullglob
|
||||||
|
|
||||||
# script de test
|
# script de test
|
||||||
|
|
||||||
compilo=../compiler/hec.byte
|
compilo=../compiler/heptc.byte
|
||||||
coption=
|
coption=
|
||||||
|
|
||||||
# compilateurs utilises pour les tests de gen. de code
|
# compilateurs utilises pour les tests de gen. de code
|
||||||
|
|
Loading…
Reference in New Issue