diff options
Diffstat (limited to 'gcc/ada/mlib-tgt.adb')
| -rw-r--r-- | gcc/ada/mlib-tgt.adb | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/gcc/ada/mlib-tgt.adb b/gcc/ada/mlib-tgt.adb index dc13773..c18dec8 100644 --- a/gcc/ada/mlib-tgt.adb +++ b/gcc/ada/mlib-tgt.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2003, Ada Core Technologies, Inc. -- +-- Copyright (C) 2001-2004, Ada Core Technologies, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -81,9 +81,7 @@ package body MLib.Tgt is Lib_Dir : String; Symbol_Data : Symbol_Record; Driver_Name : Name_Id := No_Name; - Lib_Address : String := ""; Lib_Version : String := ""; - Relocatable : Boolean := False; Auto_Init : Boolean := False) is pragma Unreferenced (Ofiles); @@ -95,24 +93,13 @@ package body MLib.Tgt is pragma Unreferenced (Lib_Dir); pragma Unreferenced (Symbol_Data); pragma Unreferenced (Driver_Name); - pragma Unreferenced (Lib_Address); pragma Unreferenced (Lib_Version); - pragma Unreferenced (Relocatable); pragma Unreferenced (Auto_Init); begin null; end Build_Dynamic_Library; - ------------------------- - -- Default_DLL_Address -- - ------------------------- - - function Default_DLL_Address return String is - begin - return ""; - end Default_DLL_Address; - ------------- -- DLL_Ext -- ------------- |