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/ghdlprint.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/ghdlprint.adb')
| -rw-r--r-- | src/ghdldrv/ghdlprint.adb | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index 0ace5ae50..5f13e39c3 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -612,18 +612,14 @@ package body Ghdlprint is | Iir_Kind_Entity_Declaration | Iir_Kind_Package_Declaration | Iir_Kind_Package_Instantiation_Declaration => - Image (Id); - Append (Nam_Buffer (1 .. Nam_Length)); + Append (Image (Id)); when Iir_Kind_Package_Body => - Image (Id); - Append (Nam_Buffer (1 .. Nam_Length)); + Append (Image (Id)); Append ("-body"); when Iir_Kind_Architecture_Body => - Image (Get_Entity_Identifier_Of_Architecture (Lib)); - Append (Nam_Buffer (1 .. Nam_Length)); + Append (Image (Get_Entity_Identifier_Of_Architecture (Lib))); Append ("-"); - Image (Id); - Append (Nam_Buffer (1 .. Nam_Length)); + Append (Image (Id)); when others => raise Internal_Error; end case; @@ -1652,11 +1648,9 @@ package body Ghdlprint is Put ("XFILE: "); Dir := Get_Source_File_Directory (Cur_File); if Dir /= Null_Identifier then - Image (Dir); - Put (Nam_Buffer (1 .. Nam_Length)); + Put (Image (Dir)); end if; - Image (Get_File_Name (Cur_File)); - Put (Nam_Buffer (1 .. Nam_Length)); + Put (Image (Get_File_Name (Cur_File))); New_Line; end if; @@ -1718,8 +1712,7 @@ package body Ghdlprint is | Iir_Kind_Procedure_Body => null; when others => - Image (Get_Identifier (N)); - Put (Nam_Buffer (1 .. Nam_Length)); + Put (Image (Get_Identifier (N))); end case; end Emit_Decl; |