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.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129326 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 18 insertions, 1 deletions

diff --git a/gcc/ada/mlib-tgt-specific.adb b/gcc/ada/mlib-tgt-specific.adb
index 8519666d9db..16988b3d6e7 100644
--- 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;