diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-02-07 07:29:38 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-02-09 20:25:02 +0100 |
commit | 5ddefe0ca2f02afdb7a10717b9feb77a42fbc901 (patch) | |
tree | 6203c06742e2e00b75ccdc40b56945c5305c738a /src/psl/psl-dump_tree.ads | |
parent | f5130442c175e7308e26b092dcebd0c6901e4881 (diff) | |
download | ghdl-5ddefe0ca2f02afdb7a10717b9feb77a42fbc901.tar.gz ghdl-5ddefe0ca2f02afdb7a10717b9feb77a42fbc901.tar.bz2 ghdl-5ddefe0ca2f02afdb7a10717b9feb77a42fbc901.zip |
Improve mixed dump of PSL and VHDL nodes.
Diffstat (limited to 'src/psl/psl-dump_tree.ads')
-rw-r--r-- | src/psl/psl-dump_tree.ads | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/psl/psl-dump_tree.ads b/src/psl/psl-dump_tree.ads index bf412d0dd..0b849ac54 100644 --- a/src/psl/psl-dump_tree.ads +++ b/src/psl/psl-dump_tree.ads @@ -19,9 +19,10 @@ with PSL.Nodes; use PSL.Nodes; package PSL.Dump_Tree is - procedure Dump_Tree (N : Node; Full : Boolean := False); + procedure Disp_Tree (N : Node; Indent : Natural; Depth : Natural); -- Procedure to dump an HDL node. - type Dump_Hdl_Node_Acc is access procedure (N : HDL_Node); + type Dump_Hdl_Node_Acc is + access procedure (N : HDL_Node; Indent : Natural; Depth : Natural); Dump_Hdl_Node : Dump_Hdl_Node_Acc := null; end PSL.Dump_Tree; |