diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-14 09:34:49 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-14 09:34:49 +0000 |
| commit | ce1fadbddc1b2c60366a65e92406082fbec17a1a (patch) | |
| tree | 256269bf710d322f23b5a67d6c31fbaed31d4c9b /gcc/ada/sem_elab.adb | |
| parent | 43dd69372d092ea17e445f38a51b9671eecd6a58 (diff) | |
| download | gcc-ce1fadbddc1b2c60366a65e92406082fbec17a1a.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160718 138bc75d-0d04-0410-961f-82ee72b054a4
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 1e278a6bb58..c0d91152a59 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 |