diff options
| -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; |