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

Temporary fix for array literals.

Browse source
This commit is contained in:
Adrien Guatto 2010-07-08 12:44:02 +02:00
parent d594ace895
commit 7918332353
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/minils/sequential/c.ml
View file

@ -217,7 +217,7 @@ and pp_cexpr fmt ce = match ce with
| Cstructlit (s, el) ->
fprintf fmt "(%s){@[%a@]}" s (pp_list1 pp_cexpr ",") el
| Carraylit el ->
fprintf fmt "[@[%a@]]" (pp_list1 pp_cexpr ",") el
fprintf fmt "((int *){@[%a@]})" (pp_list1 pp_cexpr ",") el (* WRONG *)
and pp_clhs fmt lhs = match lhs with
| Cvar s -> fprintf fmt "%s" s
| Cderef lhs' -> fprintf fmt "*%a" pp_clhs lhs'