diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-06 13:07:09 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-06 13:07:09 +0000 |
| commit | 9f46922140052a306a688a696e55a47f6ca7adf3 (patch) | |
| tree | bd2a46378d5d0c491e6e9ed5f4c8e364b95888eb /gcc/ada/impunit.adb | |
| parent | dfb98d7502700782f4a1a4e04357e46fd90784fe (diff) | |
| download | gcc-9f46922140052a306a688a696e55a47f6ca7adf3.tar.gz | |
2011-09-06 Jerome Guitton <guitton@adacore.com>
* sysdep.c (__gnat_get_task_options): Disable VX_SPE_TASK
on vThreads.
2011-09-06 Thomas Quinot <quinot@adacore.com>
* s-solita.adb: Minor reformatting.
2011-09-06 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb (Analyze_Subprogram_Body_Helper): The body that
is a rewriting of an expression function does not freeze previous
entities.
2011-09-06 Robert Dewar <dewar@adacore.com>
* impunit.adb (Is_Known_Unit): Fix bad handling of Ada 2012 case
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178593 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/impunit.adb')
| -rw-r--r-- | gcc/ada/impunit.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/impunit.adb b/gcc/ada/impunit.adb index c3d250032fe..99382f1ab64 100644 --- a/gcc/ada/impunit.adb +++ b/gcc/ada/impunit.adb @@ -761,6 +761,12 @@ package body Impunit is end if; end loop; + for J in Non_Imp_File_Names_12'Range loop + if Name_Buffer (1 .. 8) = Non_Imp_File_Names_12 (J) then + return True; + end if; + end loop; + -- If not found, not known return False; |