diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-01-18 20:42:28 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-01-20 07:40:52 +0100 |
commit | a883fc4125afc3e874dfa1e4a5817c01219e0db9 (patch) | |
tree | d12a68a7f85a2ddbca5bfeaa42ca6904fccad1ee /src/vhdl/translate/translation.ads | |
parent | 22961e664b8316941624d11b87fa003d010d34cf (diff) | |
download | ghdl-a883fc4125afc3e874dfa1e4a5817c01219e0db9.tar.gz ghdl-a883fc4125afc3e874dfa1e4a5817c01219e0db9.tar.bz2 ghdl-a883fc4125afc3e874dfa1e4a5817c01219e0db9.zip |
translation: remove some use of Nam_Buffer.
Diffstat (limited to 'src/vhdl/translate/translation.ads')
-rw-r--r-- | src/vhdl/translate/translation.ads | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/vhdl/translate/translation.ads b/src/vhdl/translate/translation.ads index 37a8c72df..2228f8973 100644 --- a/src/vhdl/translate/translation.ads +++ b/src/vhdl/translate/translation.ads @@ -91,11 +91,10 @@ package Translation is when Foreign_Unknown => null; when Foreign_Vhpidirect => - -- Positions in name_table.name_buffer. - Lib_First : Natural; - Lib_Last : Natural; - Subprg_First : Natural; - Subprg_Last : Natural; + Lib_Name : String (1 .. 32); + Lib_Len : Natural; + Subprg_Name : String (1 .. 64); + Subprg_Len : Natural; when Foreign_Intrinsic => null; end case; |