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/ghdldrv | |
| 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/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdlrun.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb index 698879202..be4619815 100644 --- a/src/ghdldrv/ghdlrun.adb +++ b/src/ghdldrv/ghdlrun.adb @@ -193,8 +193,7 @@ package body Ghdlrun is when Foreign_Vhpidirect => declare Name : constant String := - Name_Table.Nam_Buffer (Info.Subprg_First - .. Info.Subprg_Last); + Info.Subprg_Name (1 .. Info.Subprg_Len); begin Res := Foreigns.Find_Foreign (Name); if Res /= Null_Address then @@ -205,10 +204,10 @@ package body Ghdlrun is end if; end; when Foreign_Intrinsic => - Name_Table.Image (Get_Identifier (Decl)); + declare Name : constant String := - Name_Table.Nam_Buffer (1 .. Name_Table.Nam_Length); + Name_Table.Image (Get_Identifier (Decl)); begin if Name = "untruncated_text_read" then Def (Ortho, Grt.Files.Ghdl_Untruncated_Text_Read'Address); |