diff options
Diffstat (limited to 'debian/patches/ada-library-project-files-soname.diff')
-rw-r--r-- | debian/patches/ada-library-project-files-soname.diff | 81 |
1 files changed, 0 insertions, 81 deletions
diff --git a/debian/patches/ada-library-project-files-soname.diff b/debian/patches/ada-library-project-files-soname.diff deleted file mode 100644 index e822b1e..0000000 --- a/debian/patches/ada-library-project-files-soname.diff +++ /dev/null @@ -1,81 +0,0 @@ -# DP: - in project files, use the exact Library_Version provided, if any, as -# DP: the soname of libraries; do not strip minor version numbers -# DP: (PR ada/40025). - -Index: b/src/gcc/ada/mlib-tgt-specific-linux.adb -=================================================================== ---- a/src/gcc/ada/mlib-tgt-specific-linux.adb -+++ b/src/gcc/ada/mlib-tgt-specific-linux.adb -@@ -50,6 +50,8 @@ package body MLib.Tgt.Specific is - - function Is_Archive_Ext (Ext : String) return Boolean; - -+ function Library_Major_Minor_Id_Supported return Boolean; -+ - --------------------------- - -- Build_Dynamic_Library -- - --------------------------- -@@ -142,7 +144,18 @@ package body MLib.Tgt.Specific is - return Ext = ".a" or else Ext = ".so"; - end Is_Archive_Ext; - -+ -------------------------------------- -+ -- Library_Major_Minor_Id_Supported -- -+ -------------------------------------- -+ -+ function Library_Major_Minor_Id_Supported return Boolean is -+ begin -+ return False; -+ end Library_Major_Minor_Id_Supported; -+ - begin - Build_Dynamic_Library_Ptr := Build_Dynamic_Library'Access; - Is_Archive_Ext_Ptr := Is_Archive_Ext'Access; -+ Library_Major_Minor_Id_Supported_Ptr := -+ Library_Major_Minor_Id_Supported'Access; - end MLib.Tgt.Specific; -Index: b/src/gcc/ada/mlib.adb -=================================================================== ---- a/src/gcc/ada/mlib.adb -+++ b/src/gcc/ada/mlib.adb -@@ -30,6 +30,7 @@ with System; - with Opt; - with Output; use Output; - -+with MLib.Tgt; - with MLib.Utl; use MLib.Utl; - - with Prj.Com; -@@ -393,7 +394,11 @@ package body MLib is - -- Major_Id_Name -- - ------------------- - -- function Major_Id_Name -+ function Major_Id_Name_If_Supported -+ (Lib_Filename : String; -+ Lib_Version : String) -+ return String; -+ function Major_Id_Name_If_Supported - (Lib_Filename : String; - Lib_Version : String) - return String -@@ -447,6 +452,19 @@ package body MLib is - else - return ""; - end if; -+ end Major_Id_Name_If_Supported; -+ -+ function Major_Id_Name -+ (Lib_Filename : String; -+ Lib_Version : String) -+ return String -+ is -+ begin -+ if MLib.Tgt.Library_Major_Minor_Id_Supported then -+ return Major_Id_Name_If_Supported (Lib_Filename, Lib_Version); -+ else -+ return ""; -+ end if; - end Major_Id_Name; - - ------------------------------- |