diff options
Diffstat (limited to 'gcc-4.9/gcc/ada/exp_disp.adb')
-rw-r--r-- | gcc-4.9/gcc/ada/exp_disp.adb | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc-4.9/gcc/ada/exp_disp.adb b/gcc-4.9/gcc/ada/exp_disp.adb index 8ed3b3956..da2b55d3d 100644 --- a/gcc-4.9/gcc/ada/exp_disp.adb +++ b/gcc-4.9/gcc/ada/exp_disp.adb @@ -3913,10 +3913,7 @@ package body Exp_Disp is pragma Assert (Related_Type (Node (Elmt)) = Typ); - Get_External_Name - (Entity => Node (Elmt), - Has_Suffix => True); - + Get_External_Name (Node (Elmt)); Set_Interface_Name (DT, Make_String_Literal (Loc, Strval => String_From_Name_Buffer)); @@ -7088,7 +7085,7 @@ package body Exp_Disp is Set_Scope (DT, Current_Scope); - Get_External_Name (DT, True); + Get_External_Name (DT); Set_Interface_Name (DT, Make_String_Literal (Loc, Strval => String_From_Name_Buffer)); |