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/trans-chap2.adb | |
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/trans-chap2.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index 672aeb1f9..f71b4ad10 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -16,7 +16,6 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Name_Table; with Std_Names; with Std_Package; use Std_Package; with Errorout; use Errorout; @@ -247,8 +246,7 @@ package body Trans.Chap2 is Id := Create_Identifier; when Foreign_Vhpidirect => Id := Get_Identifier - (Name_Table.Nam_Buffer (Foreign.Subprg_First - .. Foreign.Subprg_Last)); + (Foreign.Subprg_Name (1 .. Foreign.Subprg_Len)); end case; Storage := O_Storage_External; else |