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