diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 12:58:36 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 12:58:36 +0000 |
| commit | 6894bd1184d1745ab649692cfbfdfec1a1a35207 (patch) | |
| tree | 82f946d7a522f6e2961f7069d46d6be7ac08d70b /gcc/ada/makeutl.adb | |
| parent | 75cdd066e9cf1d0950efefebb16f384567e75931 (diff) | |
| download | gcc-6894bd1184d1745ab649692cfbfdfec1a1a35207.tar.gz | |
2011-08-04 Emmanuel Briot <briot@adacore.com>
* makeutl.adb (Complete_Mains): if the user has passed a relative file
name on the command line (for instance "../dummy"), never assume it can
be a unit name.
2011-08-04 Tristan Gingold <gingold@adacore.com>
* bindgen.adb: Remove code the reference or create the
Break_Start/__gnat_break_start procedure.
* s-stalib.adb (Break_Start): Removed.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177374 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/makeutl.adb')
| -rw-r--r-- | gcc/ada/makeutl.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/makeutl.adb b/gcc/ada/makeutl.adb index 95fab066435..e8134bfef85 100644 --- a/gcc/ada/makeutl.adb +++ b/gcc/ada/makeutl.adb @@ -1510,7 +1510,9 @@ package body Makeutl is Source := No_Source; end if; - if Source = No_Source then + if Source = No_Source + and then not Is_Absolute + then -- Still not found? Maybe we have a unit name |