diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-02-28 20:51:21 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-02-28 20:51:21 +0100 |
| commit | e138506d4e6e85b986d58c527cabd14a30fbc5d4 (patch) | |
| tree | c81717e1026b430e3cd89325f7d3b560ecdca66f | |
| parent | a62344e4dce1a603cfda0c71a571e248694974ca (diff) | |
| download | ghdl-e138506d4e6e85b986d58c527cabd14a30fbc5d4.tar.gz ghdl-e138506d4e6e85b986d58c527cabd14a30fbc5d4.tar.bz2 ghdl-e138506d4e6e85b986d58c527cabd14a30fbc5d4.zip | |
Remove a redundant conversion.
Fix #771
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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; |