diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-24 10:37:20 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-24 10:37:20 +0000 |
| commit | b9a4f824421cadf5132a85bb8ae27b45f15b2fc8 (patch) | |
| tree | 75d2033d3b14ba196fe382fdbdb2908e8e8901a1 /gcc/ada/mlib-prj.adb | |
| parent | cc285c23bb3bdcf559391b7a4179bb975f459aa7 (diff) | |
| download | ppe42-gcc-b9a4f824421cadf5132a85bb8ae27b45f15b2fc8.tar.gz ppe42-gcc-b9a4f824421cadf5132a85bb8ae27b45f15b2fc8.zip | |
2009-04-24 Ed Schonberg <schonberg@adacore.com>
* sem_res.adb (Resolve_Actuals): Do not create blocks around code
statements, even though the actual of the call is a concatenation,
because the argument is static, and we want to preserve warning
messages about sequences of code statements that are not marked
volatile.
* sem_warn.adb: remove obsolete comment about warning being obsolete
* s-tasren.adb (Task_Do_Or_Queue): If a timed entry call is being
requeued and the delay has expired while within the accept statement
that executes the requeue, do not perform the requeue and indicate that
the timed call has been aborted.
2009-04-24 Emmanuel Briot <briot@adacore.com>
* mlib-prj.adb, prj.adb, prj.ads, prj-nmsc.adb, prj-env.adb
(Has_Ada_Sources, Has_Foreign_Sources): new subprograms
(Project_Data.Ada_Sources_Present, Foreign_Sources_Present): removed,
since they can be computed from the above.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146698 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/mlib-prj.adb')
| -rw-r--r-- | gcc/ada/mlib-prj.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/mlib-prj.adb b/gcc/ada/mlib-prj.adb index 3256bf75491..b02718d6bf9 100644 --- a/gcc/ada/mlib-prj.adb +++ b/gcc/ada/mlib-prj.adb @@ -1351,7 +1351,7 @@ package body MLib.Prj is In_Main_Object_Directory := True; - There_Are_Foreign_Sources := Data.Other_Sources_Present; + There_Are_Foreign_Sources := Has_Foreign_Sources (Data); loop if Data.Object_Directory /= No_Path_Information then |
