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

bug fix n-dimension arrays.

Browse source
This commit is contained in:
Léonard Gérard 2011-03-17 10:01:16 +01:00
parent b1b8e103f2
commit ecc79c3a53
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/java/java_printer.ml
View file

@ -41,7 +41,7 @@ let rec _ty size ff t = match t with
| Tfloat -> fprintf ff "float"
| Tclass n -> class_name ff n
| Tgeneric (n, ty_l) -> fprintf ff "%a<@[%a@]>" class_name n (print_list_r ty """,""") ty_l
| Tarray (t,s) -> if size then fprintf ff "%a[%a]" ty t exp s else fprintf ff "%a[]" ty t
| Tarray (t,s) -> if size then fprintf ff "%a[%a]" full_ty t exp s else fprintf ff "%a[]" ty t
| Tunit -> pp_print_string ff "void"
and full_ty ff t = _ty true ff t