diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-12-23 16:13:05 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-12-23 18:28:09 +0100 |
| commit | 639793f95aa01f66c578df5b8843c41488c29e64 (patch) | |
| tree | a3f9af546c02e260de718a83ba510655bd43936a | |
| parent | 4d15169628fb31b6b98ebaa9670bbfc6caa836f2 (diff) | |
| download | ghdl-639793f95aa01f66c578df5b8843c41488c29e64.tar.gz ghdl-639793f95aa01f66c578df5b8843c41488c29e64.tar.bz2 ghdl-639793f95aa01f66c578df5b8843c41488c29e64.zip | |
vhdl-disp_tree: display name_id as a number (and not like a node id)
| -rw-r--r-- | src/vhdl/vhdl-disp_tree.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-disp_tree.adb b/src/vhdl/vhdl-disp_tree.adb index 9dd5c37ae..2a205da4e 100644 --- a/src/vhdl/vhdl-disp_tree.adb +++ b/src/vhdl/vhdl-disp_tree.adb @@ -618,8 +618,7 @@ package body Vhdl.Disp_Tree is Log_Line (Image_Scalar_Size (Get_Scalar_Size (N, F))); when Type_Name_Id => Log (Image_Name_Id (Get_Name_Id (N, F))); - Log (" "); - Disp_Int32 (Int32 (Get_Name_Id (N, F))); + Log (Name_Id'Image (Get_Name_Id (N, F))); Log_Line; end case; end loop; |