diff options
| author | Nicolas Setton <setton@adacore.com> | 2009-04-22 10:33:15 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-22 12:33:15 +0200 |
| commit | 3b81743f8901ad7bf8055d461c3cb6d1e7e13e8a (patch) | |
| tree | ef9f50f373ee8f9b9a94515d768274f5fc871681 /gcc/ada/mlib.adb | |
| parent | 3a69b5ffe6b707dd6e96bc5c21f5db53db5001fe (diff) | |
| download | gcc-3b81743f8901ad7bf8055d461c3cb6d1e7e13e8a.zip gcc-3b81743f8901ad7bf8055d461c3cb6d1e7e13e8a.tar.gz gcc-3b81743f8901ad7bf8055d461c3cb6d1e7e13e8a.tar.bz2 | |
link.c: Add flag __gnat_separate_run_path_options.
2009-04-22 Nicolas Setton <setton@adacore.com>
* link.c: Add flag __gnat_separate_run_path_options.
* mlib.adb (Separate_Run_Path_Options): New subprogram.
* mlib.ads (Separate_Run_Path_Options): Declare.
* gnatcmd.adb (Process_Link): Add support for emitting one "rpath"
switch per directory, rather than one "rpath" switch listing all
directories.
* gnatlink.adb (Process_Binder_File): Likewise.
* make.adb (Gnatmake): Likewise.
From-SVN: r146561
Diffstat (limited to 'gcc/ada/mlib.adb')
| -rw-r--r-- | gcc/ada/mlib.adb | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/gcc/ada/mlib.adb b/gcc/ada/mlib.adb index 5a8a661..22d24ab 100644 --- a/gcc/ada/mlib.adb +++ b/gcc/ada/mlib.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2008, AdaCore -- +-- Copyright (C) 1999-2009, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -442,6 +442,19 @@ package body MLib is end if; end Major_Id_Name; + ------------------------------- + -- Separate_Run_Path_Options -- + ------------------------------- + + function Separate_Run_Path_Options return Boolean is + Separate_Paths : Boolean; + for Separate_Paths'Size use Character'Size; + pragma Import (C, Separate_Paths, "__gnat_separate_run_path_options"); + + begin + return Separate_Paths; + end Separate_Run_Path_Options; + -- Package elaboration begin |