diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-09-28 03:36:36 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-09-28 03:36:36 +0200 |
commit | 0e0fe240d4842d9472e134f78e97475d79492c2d (patch) | |
tree | e6f09deda44bfcc693c366b10be950c85a797642 /src | |
parent | 39f80aecbff4af324432a3575de91e4562aad4f9 (diff) | |
download | ghdl-0e0fe240d4842d9472e134f78e97475d79492c2d.tar.gz ghdl-0e0fe240d4842d9472e134f78e97475d79492c2d.tar.bz2 ghdl-0e0fe240d4842d9472e134f78e97475d79492c2d.zip |
disp_tree: reduce use of global variable.
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/disp_tree.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/vhdl/disp_tree.adb b/src/vhdl/disp_tree.adb index 92cfff293..621acdf02 100644 --- a/src/vhdl/disp_tree.adb +++ b/src/vhdl/disp_tree.adb @@ -139,8 +139,7 @@ package body Disp_Tree is use Name_Table; begin if Ident /= Null_Identifier then - Image (Ident); - return ''' & Nam_Buffer (1 .. Nam_Length) & '''; + return ''' & Image (Ident) & '''; else return "<anonymous>"; end if; |