Message ID | 20100614093750.GA3937@adacore.com |
---|---|
State | New |
Headers | show |
Index: sem_elab.adb =================================================================== --- sem_elab.adb (revision 149925) +++ sem_elab.adb (working copy) @@ -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