diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-01-18 20:33:32 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-01-18 20:33:32 +0100 |
| commit | 5aa171218d080bfbdfe28f68bf4ca82a4003896f (patch) | |
| tree | 5ac1e0d670659bf2e93778a7586b5558e02a06eb /src/ghdldrv/ghdllocal.adb | |
| parent | 6e45f40a47afe5fd25254d3730a6f73256879a17 (diff) | |
| download | ghdl-5aa171218d080bfbdfe28f68bf4ca82a4003896f.tar.gz ghdl-5aa171218d080bfbdfe28f68bf4ca82a4003896f.tar.bz2 ghdl-5aa171218d080bfbdfe28f68bf4ca82a4003896f.zip | |
ghdldrv: remove most usages of Nam_Buffer.
Diffstat (limited to 'src/ghdldrv/ghdllocal.adb')
| -rw-r--r-- | src/ghdldrv/ghdllocal.adb | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index 52777ff26..2a231d693 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -461,18 +461,15 @@ package body Ghdllocal is Put ("???"); return; end case; - Image (Id); - Put (Nam_Buffer (1 .. Nam_Length)); + Put (Image (Id)); case Get_Kind (Unit) is when Iir_Kind_Architecture_Body => Put (" of "); - Image (Get_Entity_Identifier_Of_Architecture (Unit)); - Put (Nam_Buffer (1 .. Nam_Length)); + Put (Image (Get_Entity_Identifier_Of_Architecture (Unit))); when Iir_Kind_Configuration_Declaration => if Id = Null_Identifier then Put ("<default> of entity "); - Image (Get_Entity_Identifier_Of_Architecture (Unit)); - Put (Nam_Buffer (1 .. Nam_Length)); + Put (Image (Get_Entity_Identifier_Of_Architecture (Unit))); end if; when others => null; |