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/vhdl/translate/translation.ads | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'src/vhdl/translate/translation.ads')

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