diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-14 11:34:49 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-14 11:34:49 +0200 |
| commit | bfc07071e825852049b5d957aaf55d24c22ba37d (patch) | |
| tree | 256269bf710d322f23b5a67d6c31fbaed31d4c9b /gcc/ada/sem_elab.adb | |
| parent | eb23d93aceeebe41ff382a331e70b5f865d43251 (diff) | |
| download | gcc-bfc07071e825852049b5d957aaf55d24c22ba37d.zip gcc-bfc07071e825852049b5d957aaf55d24c22ba37d.tar.gz gcc-bfc07071e825852049b5d957aaf55d24c22ba37d.tar.bz2 | |
[multiple changes]
2010-06-14 Robert Dewar <dewar@adacore.com>
* sem_res.adb: Minor reformatting
2010-06-14 Ed Schonberg <schonberg@adacore.com>
* sem.adb: New version of unit traversal.
* sem_elab.adb (Check_Internal_Call): Do not place a call appearing
within a generic unit in the table of delayed calls.
From-SVN: r160718
Diffstat (limited to 'gcc/ada/sem_elab.adb')
| -rw-r--r-- | gcc/ada/sem_elab.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb index 1e278a6..c0d9115 100644 --- a/gcc/ada/sem_elab.adb +++ b/gcc/ada/sem_elab.adb @@ -1891,6 +1891,11 @@ package body Sem_Elab is elsif In_Task_Activation then return; + + -- Nothing to do if call is within a generic unit. + + elsif Inside_A_Generic then + return; end if; -- Delay this call if we are still delaying calls |