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

cgen todo.

Browse source
This commit is contained in:
Léonard Gérard 2011-03-17 17:11:00 +01:00
parent 02730b8a0b
commit c602eca062
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/obc/c/cgen.ml
View file

@ -255,7 +255,7 @@ let rec cexpr_of_static_exp se =
List.map (fun (_, se) -> cexpr_of_static_exp se) fl)
| Sarray_power(n,c) ->
let cc = cexpr_of_static_exp c in
Carraylit (repeat_list cc (int_of_static_exp n))
Carraylit (repeat_list cc (int_of_static_exp n)) (* TODO should be recursive *)
| Svar ln ->
(try
let cd = find_const ln in