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

Fix operator args (some args have become static)

Browse source
This commit is contained in:
Cédric Pasteur 2010-07-12 09:07:57 +02:00
parent af0d28fda0
commit eb625cd5d7
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
compiler/heptagon/hept_printer.ml
View file

@ -124,10 +124,10 @@ and print_op ff op params e_list =
fprintf ff " = "; fprintf ff " = ";
print_exp ff e2; print_exp ff e2;
fprintf ff ")@]" fprintf ff ")@]"
| Earray_fill, _, [e1; e2] -> | Earray_fill, [se], [e] ->
print_exp ff e1; print_exp ff e;
fprintf ff "^"; fprintf ff "^";
print_exp ff e2 print_static_exp ff se
| Eselect, idx_list, [e] -> | Eselect, idx_list, [e] ->
print_exp ff e; print_exp ff e;
print_list_r print_static_exp "[" "][" "]" ff idx_list print_list_r print_static_exp "[" "][" "]" ff idx_list
@ -145,12 +145,12 @@ and print_op ff op params e_list =
fprintf ff " = "; fprintf ff " = ";
print_exp ff e2; print_exp ff e2;
fprintf ff ")@]" fprintf ff ")@]"
| Eselect_slice, _, [e; idx1; idx2] -> | Eselect_slice, [idx1;idx2], [e] ->
print_exp ff e; print_exp ff e;
fprintf ff "["; fprintf ff "[";
print_exp ff idx1; print_static_exp ff idx1;
fprintf ff ".."; fprintf ff "..";
print_exp ff idx2; print_static_exp ff idx2;
fprintf ff "]" fprintf ff "]"
| Econcat, _, [e1;e2] -> | Econcat, _, [e1;e2] ->
fprintf ff "@["; fprintf ff "@[";