diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-07-25 21:30:28 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-07-25 21:30:28 +0200 |
| commit | 863e54962fc15acea5699cfac55b00b20ccf345d (patch) | |
| tree | 9cea6de97700dce1985c283bf53e22ea00485c0f | |
| parent | dcdb63200c87175783282ca5c6d54304f8f474f2 (diff) | |
| download | ghdl-863e54962fc15acea5699cfac55b00b20ccf345d.tar.gz ghdl-863e54962fc15acea5699cfac55b00b20ccf345d.tar.bz2 ghdl-863e54962fc15acea5699cfac55b00b20ccf345d.zip | |
disp_tree: also disp identifier id.
| -rw-r--r-- | src/vhdl/disp_tree.adb | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/src/vhdl/disp_tree.adb b/src/vhdl/disp_tree.adb index b20ae8a9f..718cf6707 100644 --- a/src/vhdl/disp_tree.adb +++ b/src/vhdl/disp_tree.adb @@ -45,11 +45,12 @@ package body Disp_Tree is Put (Blanks); end Put_Indent; - procedure Disp_Iir_Number (Node: Iir) + procedure Disp_Int32 (Num : Int32) is Res : String (1 .. 10) := " ]"; - N : Int32 := Int32 (Node); + N : Int32; begin + N := Num; for I in reverse 2 .. 9 loop Res (I) := Character'Val (Character'Pos ('0') + (N mod 10)); N := N / 10; @@ -60,6 +61,11 @@ package body Disp_Tree is end if; end loop; Put (Res); + end Disp_Int32; + + procedure Disp_Iir_Number (Node: Iir) is + begin + Disp_Int32 (Int32 (Node)); end Disp_Iir_Number; -- For iir. @@ -571,7 +577,10 @@ package body Disp_Tree is when Type_Token_Type => Put_Line (Image_Token_Type (Get_Token_Type (N, F))); when Type_Name_Id => - Put_Line (Image_Name_Id (Get_Name_Id (N, F))); + Put (Image_Name_Id (Get_Name_Id (N, F))); + Put (' '); + Disp_Int32 (Int32 (Get_Name_Id (N, F))); + New_Line; end case; end loop; end; |