From 28eba57cf2cbcbce62d2551b53e057a76a5f1d89 Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Mon, 15 Oct 2007 15:55:17 +0200 Subject: mlib-tgt-specific.adb (Support_For_Libraries): New function... 2007-10-15 Vincent Celier * 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 --- gcc/ada/mlib-tgt-specific.adb | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) (limited to 'gcc') diff --git a/gcc/ada/mlib-tgt-specific.adb b/gcc/ada/mlib-tgt-specific.adb index 8519666..16988b3 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; -- cgit v1.1