Revision 6cfa0edc
| src/backends/VHDL/mini_vhdl_ast_pp.ml | ||
|---|---|---|
| 534 | 534 |
fun x -> |
| 535 | 535 |
(match x.use_clause with |
| 536 | 536 |
| None -> (); |
| 537 |
| Some e -> ((__0 ()) fmt) e; Format.fprintf fmt ";");
|
|
| 537 |
| Some e -> ((__0 ()) fmt) e); |
|
| 538 | 538 |
(match x.declaration with |
| 539 | 539 |
| None -> (); |
| 540 | 540 |
| Some e -> ((__1 ()) fmt) e); |
| ... | ... | |
| 730 | 730 |
Format.fprintf fmt "@;"; |
| 731 | 731 |
if sep then Format.fprintf fmt ""; |
| 732 | 732 |
((__3 ()) fmt) x; |
| 733 |
Format.fprintf fmt ";"; |
|
| 734 | 733 |
true) false x))) x.shared_uses;) |
| 735 | 734 |
[@ocaml.warning "-A"]) |
| 736 | 735 |
|
| ... | ... | |
| 809 | 808 |
fun x -> |
| 810 | 809 |
if sep then Format.fprintf fmt ";@;"; |
| 811 | 810 |
((__3 ()) fmt) x; |
| 812 |
Format.fprintf fmt ";"; |
|
| 813 |
true) false x))) x.contexts); |
|
| 811 |
true) false x))) x.contexts; Format.fprintf fmt ";"); |
|
| 814 | 812 |
(match x.c_declarations with |
| 815 | 813 |
| [] -> () |
| 816 | 814 |
| _ -> |
| src/backends/VHDL/vhdl_ast_pp.ml | ||
|---|---|---|
| 1388 | 1388 |
and __1 () = pp_vhdl_declaration_t |
| 1389 | 1389 |
|
| 1390 | 1390 |
and __0 () = pp_vhdl_load_t |
| 1391 |
in
|
|
| 1391 |
in |
|
| 1392 | 1392 |
((let open! Ppx_deriving_runtime in |
| 1393 |
fun fmt ->
|
|
| 1394 |
fun x ->
|
|
| 1395 |
(match x.use_clause with
|
|
| 1396 |
| None -> Format.fprintf fmt "";
|
|
| 1397 |
| Some e -> ((__0 ()) fmt) e);
|
|
| 1398 |
(match x.di_declaration with
|
|
| 1399 |
| None -> Format.fprintf fmt "";
|
|
| 1400 |
| Some e -> ((__1 ()) fmt) e);
|
|
| 1401 |
(match x.di_definition with
|
|
| 1402 |
| None -> Format.fprintf fmt "";
|
|
| 1403 |
| Some e -> ((__2 ()) fmt) e);)
|
|
| 1404 |
[@ocaml.warning "-A"]) |
|
| 1393 |
fun fmt -> |
|
| 1394 |
fun x -> |
|
| 1395 |
(match x.use_clause with |
|
| 1396 |
| None -> Format.fprintf fmt ""; |
|
| 1397 |
| Some e -> ((__0 ()) fmt) e); |
|
| 1398 |
(match x.di_declaration with |
|
| 1399 |
| None -> Format.fprintf fmt ""; |
|
| 1400 |
| Some e -> ((__1 ()) fmt) e); |
|
| 1401 |
(match x.di_definition with |
|
| 1402 |
| None -> Format.fprintf fmt ""; |
|
| 1403 |
| Some e -> ((__2 ()) fmt) e);) |
|
| 1404 |
[@ocaml.warning "-A"])
|
|
| 1405 | 1405 |
|
| 1406 | 1406 |
and show_vhdl_declarative_item_t : |
| 1407 | 1407 |
vhdl_declarative_item_t -> Ppx_deriving_runtime.string = |
| ... | ... | |
| 1821 | 1821 |
Format.fprintf fmt "@;"; |
| 1822 | 1822 |
if sep then Format.fprintf fmt ""; |
| 1823 | 1823 |
((__3 ()) fmt) x; |
| 1824 |
Format.fprintf fmt ";"; |
|
| 1825 | 1824 |
true) false x))) x.shared_uses;) |
| 1826 | 1825 |
[@ocaml.warning "-A"]) |
| 1827 | 1826 |
|
Also available in: Unified diff