diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-01-18 19:00:56 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-01-18 19:00:56 +0100 |
commit | cd99d037e428d89696106e1a50586d876af25c97 (patch) | |
tree | 6ede4fcf25f373c2019cadf17579abd31536cf7d | |
parent | 16427b827f53dc7c0f4d6f50573e6afb9430967d (diff) | |
download | ghdl-cd99d037e428d89696106e1a50586d876af25c97.tar.gz ghdl-cd99d037e428d89696106e1a50586d876af25c97.tar.bz2 ghdl-cd99d037e428d89696106e1a50586d876af25c97.zip |
disp_tree: adjust Image_Name_Id
-rw-r--r-- | src/vhdl/disp_tree.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/vhdl/disp_tree.adb b/src/vhdl/disp_tree.adb index f820fcdd7..b20ae8a9f 100644 --- a/src/vhdl/disp_tree.adb +++ b/src/vhdl/disp_tree.adb @@ -155,10 +155,12 @@ package body Disp_Tree is is use Name_Table; begin - if Ident /= Null_Identifier then - return ''' & Image (Ident) & '''; - else + if Ident = Null_Identifier then return "<anonymous>"; + elsif Is_Character (Ident) then + return Image (Ident); + else + return '"' & Image (Ident) & '"'; end if; end Image_Name_Id; |