diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-04-29 23:10:21 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-04-29 23:10:21 +0000 |
| commit | 3cebfcc5c66e5337e8551a30cd6d29edc9aae9c8 (patch) | |
| tree | 1eb925fe9ac0daa64343cebeedf8d15f314f4a29 /gcc/ada/makeutl.ads | |
| parent | 9933b56afffcf56331c8818f729e97c1acf1ab59 (diff) | |
| download | gcc-3cebfcc5c66e5337e8551a30cd6d29edc9aae9c8.zip gcc-3cebfcc5c66e5337e8551a30cd6d29edc9aae9c8.tar.gz gcc-3cebfcc5c66e5337e8551a30cd6d29edc9aae9c8.tar.bz2 | |
Revert
2009-04-29 Vincent Celier <celier@adacore.com>
* sinput-l.adb (Load_File): When preprocessing, set temporarily the
Source_File_Index_Table entries for the source, to avoid crash when
reporting an error.
* gnatcmd.adb (Test_If_Relative_Path): Use
Makeutl.Test_If_Relative_Path.
* makeutl.adb:(Test_If_Relative_Path): Process switches --RTS= only if
Including_RTS is True.
* makeutl.ads (Test_If_Relative_Path): New Boolean parameter
Including_RTS defaulted to False.
* sinput.ads, scans.ads, err_vars.ads: Initialize some variables with
a default value.
From-SVN: r146991
Diffstat (limited to 'gcc/ada/makeutl.ads')
| -rw-r--r-- | gcc/ada/makeutl.ads | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/makeutl.ads b/gcc/ada/makeutl.ads index 3c9b4d9..bb8ac84 100644 --- a/gcc/ada/makeutl.ads +++ b/gcc/ada/makeutl.ads @@ -130,14 +130,12 @@ package Makeutl is (Switch : in out String_Access; Parent : String; Including_L_Switch : Boolean := True; - Including_Non_Switch : Boolean := True; - Including_RTS : Boolean := False); + Including_Non_Switch : Boolean := True); -- Test if Switch is a relative search path switch. -- If it is, fail if Parent is the empty string, otherwise prepend the path -- with Parent. This subprogram is only called when using project files. -- For gnatbind switches, Including_L_Switch is False, because the - -- argument of the -L switch is not a path. If Including_RTS is True, - -- process also switches --RTS=. + -- argument of the -L switch is not a path. function Path_Or_File_Name (Path : Path_Name_Type) return String; -- Returns a file name if -df is used, otherwise return a path name |