From 1d6820548ada8716006857cd99160e929f2141f3 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 4 Jan 2017 20:22:05 +0100
Subject: Remove useless conversion.

Fix #249
---
 src/vhdl/disp_vhdl.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/disp_vhdl.adb b/src/vhdl/disp_vhdl.adb
index 64e38eada..cd279ecfd 100644
--- a/src/vhdl/disp_vhdl.adb
+++ b/src/vhdl/disp_vhdl.adb
@@ -2628,7 +2628,7 @@ package body Disp_Vhdl is
       Put ("""");
 
       for I in 1 .. Len loop
-         Pos := Str_Table.Element_String8 (Str_Id, Pos32 (I));
+         Pos := Str_Table.Element_String8 (Str_Id, I);
          Lit := Get_Nth_Element (Literal_List, Natural (Pos));
          Id := Get_Identifier (Lit);
          pragma Assert (Name_Table.Is_Character (Id));
-- 
cgit v1.2.3