mlib-tgt-specific.adb (Support_For_Libraries): New function...

2007-10-15  Vincent Celier  <celier@adacore.com>

	* mlib-tgt-specific.adb (Support_For_Libraries): New function,
	returning None, used when there is no platform specific body for
	MLib.Tgt.Specific.

From-SVN: r129326

diff --git a/gcc/ada/mlib-tgt-specific.adb b/gcc/ada/mlib-tgt-specific.adb
index 8519666d9dbcd0ed7a5348f2d4eb67595eaf20d3..16988b3d6e7cb62acf6f829d97a1288584b9cfb0 100644 (file)
--- a/gcc/ada/mlib-tgt-specific.adb
+++ b/gcc/ada/mlib-tgt-specific.adb
@@ -24,7 +24,24 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  Default empty version
+--  Default version
 
 package body MLib.Tgt.Specific is
+
+   --  By default, libraries are not supported at all
+
+   function Support_For_Libraries return Library_Support;
+   --  Function indicating if libraries are supported
+
+   ---------------------------
+   -- Support_For_Libraries --
+   ---------------------------
+
+   function Support_For_Libraries return Library_Support is
+   begin
+      return None;
+   end Support_For_Libraries;
+
+begin
+   Support_For_Libraries_Ptr := Support_For_Libraries'Access;
 end MLib.Tgt.Specific;