From 3b81743f8901ad7bf8055d461c3cb6d1e7e13e8a Mon Sep 17 00:00:00 2001 From: Nicolas Setton Date: Wed, 22 Apr 2009 10:33:15 +0000 Subject: link.c: Add flag __gnat_separate_run_path_options. 2009-04-22 Nicolas Setton * 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 --- gcc/ada/mlib.adb | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'gcc/ada/mlib.adb') 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 -- cgit v1.1