diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-01-04 20:22:05 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-01-13 18:57:24 +0100 |
| commit | 1d6820548ada8716006857cd99160e929f2141f3 (patch) | |
| tree | b49618407ebb9d472d3d59752b06cbf9ae190899 /src/vhdl | |
| parent | eec8ef9d7b1e14c636f4dc7a8a86073504403830 (diff) | |
| download | ghdl-1d6820548ada8716006857cd99160e929f2141f3.tar.gz ghdl-1d6820548ada8716006857cd99160e929f2141f3.tar.bz2 ghdl-1d6820548ada8716006857cd99160e929f2141f3.zip | |
Remove useless conversion.
Fix #249
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/disp_vhdl.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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)); |