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

Fixed problem with multidimensional arrays in args

Browse source
This commit is contained in:
Cédric Pasteur 2010-07-16 12:38:45 +02:00
parent 27d5790a20
commit cdc9b14a44
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
compiler/obc/c/c.ml
View file

@ -161,6 +161,11 @@ let rec pp_array_decl cty =
ty, sprintf "%s[%d]" s n
| _ -> cty, ""
let rec pp_param_cty fmt = function
| Cty_arr(n, cty') ->
fprintf fmt "%a*" pp_param_cty cty'
| cty -> pp_cty fmt cty
(* pp_vardecl, featuring an ugly hack coping with C's inconsistent concrete
syntax! *)
let rec pp_vardecl fmt (s, cty) = match cty with
@ -169,7 +174,7 @@ let rec pp_vardecl fmt (s, cty) = match cty with
fprintf fmt "%a %s%s" pp_cty ty s indices
| _ -> fprintf fmt "%a %s" pp_cty cty s
and pp_paramdecl fmt (s, cty) = match cty with
| Cty_arr (n, cty') -> fprintf fmt "%a* %s" pp_cty cty' s
| Cty_arr (n, cty') -> fprintf fmt "%a* %s" pp_param_cty cty' s
| _ -> pp_vardecl fmt (s, cty)
and pp_param_list fmt l = pp_list1 pp_paramdecl "," fmt l
and pp_var_list fmt l = pp_list pp_vardecl ";" fmt l