diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap14.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap14.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans-chap14.adb b/src/vhdl/translate/trans-chap14.adb index 2e554d556..b35cc9f81 100644 --- a/src/vhdl/translate/trans-chap14.adb +++ b/src/vhdl/translate/trans-chap14.adb @@ -809,8 +809,7 @@ package body Trans.Chap14 is | Type_Mode_E32 | Type_Mode_P32 | Type_Mode_P64 => - New_Association - (Assoc, New_Lit (Rtis.New_Rti_Address (Pinfo.Type_Rti))); + New_Association (Assoc, Rtis.New_Rti_Address (Pinfo.Type_Rti)); when Type_Mode_I32 | Type_Mode_I64 | Type_Mode_F64 => @@ -857,8 +856,7 @@ package body Trans.Chap14 is | Type_Mode_E32 | Type_Mode_P32 | Type_Mode_P64 => - New_Association - (Assoc, New_Lit (Rtis.New_Rti_Address (Pinfo.Type_Rti))); + New_Association (Assoc, Rtis.New_Rti_Address (Pinfo.Type_Rti)); when Type_Mode_I32 | Type_Mode_I64 | Type_Mode_F64 => |