diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-04 22:12:13 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-04 22:12:13 +0200 |
commit | 19a9154fb3fadd0a33a6826e525091a9a75687e4 (patch) | |
tree | 194672b3beb90cbebc64ecad413c49728253d1da /src/vhdl/vhdl-disp_tree.ads | |
parent | bddf80741a2a4f574e9b531c046a531d0d53ea86 (diff) | |
download | ghdl-19a9154fb3fadd0a33a6826e525091a9a75687e4.tar.gz ghdl-19a9154fb3fadd0a33a6826e525091a9a75687e4.tar.bz2 ghdl-19a9154fb3fadd0a33a6826e525091a9a75687e4.zip |
vhdl: move disp_tree and disp_vhdl as vhdl child.
Diffstat (limited to 'src/vhdl/vhdl-disp_tree.ads')
-rw-r--r-- | src/vhdl/vhdl-disp_tree.ads | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-disp_tree.ads b/src/vhdl/vhdl-disp_tree.ads new file mode 100644 index 000000000..72aca5827 --- /dev/null +++ b/src/vhdl/vhdl-disp_tree.ads @@ -0,0 +1,53 @@ +-- Node displaying (for debugging). +-- Copyright (C) 2002, 2003, 2004, 2005, 2009 Tristan Gingold +-- +-- GHDL is free software; you can redistribute it and/or modify it under +-- the terms of the GNU General Public License as published by the Free +-- Software Foundation; either version 2, or (at your option) any later +-- version. +-- +-- GHDL is distributed in the hope that it will be useful, but WITHOUT ANY +-- WARRANTY; without even the implied warranty of MERCHANTABILITY or +-- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +-- for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with GHDL; see the file COPYING. If not, write to the Free +-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA +-- 02111-1307, USA. +with Types; use Types; +with Iirs; use Iirs; +with Vhdl.Tokens; use Vhdl.Tokens; + +package Vhdl.Disp_Tree is + -- Disp TREE recursively. + procedure Disp_Tree (Tree : Iir; Flat : Boolean := False); + + procedure Disp_Iir (N : Iir; Indent : Natural; Depth : Natural); + + procedure Disp_Tree_For_Psl + (N : Int32; Indent : Natural; Depth : Natural); + + -- Image for various field types. + function Image_Name_Id (Ident: Name_Id) return String; + function Image_Iir_Staticness (Static: Iir_Staticness) return String; + function Image_Boolean (Bool : Boolean) return String; + function Image_Iir_Delay_Mechanism (Mech : Iir_Delay_Mechanism) + return String; + function Image_Iir_Mode (Mode : Iir_Mode) return String; + function Image_Iir_Signal_Kind (Kind : Iir_Signal_Kind) return String; + function Image_Iir_Pure_State (State : Iir_Pure_State) return String; + function Image_Iir_All_Sensitized (Sig : Iir_All_Sensitized) + return String; + function Image_Iir_Constraint (Const : Iir_Constraint) return String; + function Image_Date_State_Type (State : Date_State_Type) return String; + function Image_Tri_State_Type (State : Tri_State_Type) return String; + function Image_Time_Stamp_Id (Id : Time_Stamp_Id) return String; + function Image_File_Checksum_Id (Id : File_Checksum_Id) return String; + function Image_Iir_Predefined_Functions (F : Iir_Predefined_Functions) + return String; + function Image_Location_Type (Loc : Location_Type) return String; + function Image_Iir_Direction (Dir : Iir_Direction) return String; + function Image_Token_Type (Tok : Vhdl.Tokens.Token_Type) return String; + function Image_String8 (N : Iir) return String; +end Vhdl.Disp_Tree; |