diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-09-25 07:38:09 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-09-25 07:38:09 +0200 |
| commit | 68d26922e31aad3cb34dd3b7689bcec75ad70fcb (patch) | |
| tree | ed7d40115bd74b0c4216a94bfc21d5af0837ce4f /disp_tree.ads | |
| parent | 5edf93b87e8f3528d9063df08bf70bf538d72545 (diff) | |
| download | ghdl-68d26922e31aad3cb34dd3b7689bcec75ad70fcb.tar.gz ghdl-68d26922e31aad3cb34dd3b7689bcec75ad70fcb.tar.bz2 ghdl-68d26922e31aad3cb34dd3b7689bcec75ad70fcb.zip | |
Add a python script to automatically generate disp_tree.
Diffstat (limited to 'disp_tree.ads')
| -rw-r--r-- | disp_tree.ads | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/disp_tree.ads b/disp_tree.ads index 63720ee2b..94b1d29e3 100644 --- a/disp_tree.ads +++ b/disp_tree.ads @@ -19,14 +19,9 @@ with Types; use Types; with Iirs; use Iirs; package Disp_Tree is - -- Disp NODE as an address. The format is "[XXXXXXXX]", where each X is - -- an hexadecimal digit (quotes are not displayed). - procedure Disp_Iir_Address (Node: Iir); - -- Disp TREE recursively. - procedure Disp_Tree (Tree: Iir; - Tab: Natural := 0; - Flat_Decl: Boolean := false); + procedure Disp_Tree (Tree : Iir; + Flat : Boolean := False); procedure Disp_Tree_For_Psl (N : Int32); end Disp_Tree; |