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

Use invalid_type

Browse source
This commit is contained in:
Cédric Pasteur 2010-07-20 09:34:11 +02:00
parent b2c88810c5
commit 03608451c4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/minils/minils.ml
View file

@ -138,7 +138,7 @@ type program = {
(*Helper functions to build the AST*)
let mk_exp ?(exp_ty = Tprod []) ?(clock = Cbase) ?(loc = no_location) desc =
let mk_exp ?(exp_ty = invalid_type) ?(clock = Cbase) ?(loc = no_location) desc =
{ e_desc = desc; e_ty = exp_ty; e_ck = clock; e_loc = loc }
let mk_var_dec ?(loc = no_location) ?(clock = Cbase) ident ty =