From: Vincent Celier <celier@adacore.com>
Date: Mon, 15 Oct 2007 13:55:17 +0000 (+0200)
Subject: mlib-tgt-specific.adb (Support_For_Libraries): New function...
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=28eba57cf2cbcbce62d2551b53e057a76a5f1d89;p=gcc.git

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 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;