@@ -50,6 +50,8 @@
function Is_Archive_Ext (Ext : String) return Boolean;
+ function Libgnat return String;
+
---------------------------
-- Build_Dynamic_Library --
---------------------------
@@ -142,7 +144,27 @@
return Ext = ".a" or else Ext = ".so";
end Is_Archive_Ext;
+ -------------
+ -- Libgnat --
+ -------------
+
+ function Libgnat return String is
+ Libgnat_A : constant String := "libgnat.a";
+ Libgnat_So : constant String := "libgnat.so";
+
+ begin
+ Name_Len := Libgnat_A'Length;
+ Name_Buffer (1 .. Name_Len) := Libgnat_A;
+
+ if Osint.Find_File (Name_Enter, Osint.Library) /= No_File then
+ return Libgnat_A;
+ else
+ return Libgnat_So;
+ end if;
+ end Libgnat;
+
begin
Build_Dynamic_Library_Ptr := Build_Dynamic_Library'Access;
- Is_Archive_Ext_Ptr := Is_Archive_Ext'Access;
+ Is_Archive_Ext_Ptr := Is_Archive_Ext'Access;
+ Libgnat_Ptr := Libgnat'Access;
end MLib.Tgt.Specific;