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

Add Warning when encountering not typed expression when cloking.

Browse source
This commit is contained in:
Léonard Gérard 2010-09-12 23:58:21 +02:00
parent a72ab6fa08
commit 937d1f580b
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
compiler/global/clocks.ml
View file

@ -92,7 +92,10 @@ and unify_list t1_list t2_list =
try List.iter2 unify t1_list t2_list with | _ -> raise Unify
let rec skeleton ck = function
| Tprod ty_list -> Cprod (List.map (skeleton ck) ty_list)
| Tprod ty_list ->
(match ty_list with
| [] -> Format.eprintf "Warning, an exp with void type@."; Ck ck
| _ -> Cprod (List.map (skeleton ck) ty_list))
| Tarray _ | Tid _ -> Ck ck
let ckofct = function | Ck ck -> ck_repr ck | Cprod ct_list -> Cbase