From a883fc4125afc3e874dfa1e4a5817c01219e0db9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 18 Jan 2018 20:42:28 +0100
Subject: translation: remove some use of Nam_Buffer.

---
 src/ghdldrv/ghdlrun.adb | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/ghdldrv')

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);
-- 
cgit v1.2.3