diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-29 23:10:21 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-29 23:10:21 +0000 |
| commit | 465d2c29f2cac038c9bced6b4e5ff8d4cbb8b23d (patch) | |
| tree | 1eb925fe9ac0daa64343cebeedf8d15f314f4a29 /gcc/ada/makeutl.ads | |
| parent | 0aacee88c7ffff8e058168bf81abf7113ffc860d (diff) | |
| download | gcc-465d2c29f2cac038c9bced6b4e5ff8d4cbb8b23d.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146991 138bc75d-0d04-0410-961f-82ee72b054a4
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 3c9b4d97242..bb8ac84d6bf 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 |