From ecc79c3a532e47d33de4c62debef324449c1584e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?L=C3=A9onard=20G=C3=A9rard?= Date: Thu, 17 Mar 2011 10:01:16 +0100 Subject: [PATCH] bug fix n-dimension arrays. --- compiler/obc/java/java_printer.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/obc/java/java_printer.ml b/compiler/obc/java/java_printer.ml index f3b5601..47ce9c4 100644 --- a/compiler/obc/java/java_printer.ml +++ b/compiler/obc/java/java_printer.ml @@ -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