From e138506d4e6e85b986d58c527cabd14a30fbc5d4 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 28 Feb 2019 20:51:21 +0100
Subject: Remove a redundant conversion.

Fix #771
---
 src/vhdl/translate/trans-chap7.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl/translate')

diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb
index 44daf4c4b..8e51f0731 100644
--- a/src/vhdl/translate/trans-chap7.adb
+++ b/src/vhdl/translate/trans-chap7.adb
@@ -178,7 +178,7 @@ package body Trans.Chap7 is
    begin
       for I in 1 .. Len loop
          Lit := Get_Nth_Element
-           (Literal_List, Natural (Str_Table.Element_String8 (Id, Pos32 (I))));
+           (Literal_List, Natural (Str_Table.Element_String8 (Id, I)));
          New_Array_Aggr_El (List, Get_Ortho_Literal (Lit));
       end loop;
    end Translate_Static_String_Literal8_Inner;
-- 
cgit v1.2.3