diff options
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index f5a2bdcecad..d75fe06c51b 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -1893,25 +1893,6 @@ package body Bindgen is Write_Str (Name_Buffer (1 .. Name_Len)); Write_Eol; end if; - - -- Don't link with the shared library on VMS if an internal - -- filename object is seen. Multiply defined symbols will - -- result. - - if OpenVMS_On_Target - and then Is_Internal_File_Name - (ALIs.Table - (Units.Table (Elab_Order.Table (E)).My_ALI).Sfile) - then - -- Special case for g-trasym.obj (not included in libgnat) - - Get_Name_String (ALIs.Table - (Units.Table (Elab_Order.Table (E)).My_ALI).Sfile); - - if Name_Buffer (1 .. 8) /= "g-trasym" then - Opt.Shared_Libgnat := False; - end if; - end if; end if; end if; end loop; |