Message ID | 20110804080045.GA5314@adacore.com |
---|---|
State | New |
Headers | show |
Index: sem_ch3.adb =================================================================== --- sem_ch3.adb (revision 177278) +++ sem_ch3.adb (working copy) @@ -793,6 +793,13 @@ -- the corresponding semantic routine if Present (Access_To_Subprogram_Definition (N)) then + + -- Compiler runtime units are compiled in Ada 2005 mode when building + -- the runtime library but must also be compilable in Ada 95 mode + -- (when bootstrapping the compiler). + + Check_Compiler_Unit (N); + Access_Subprogram_Declaration (T_Name => Anon_Type, T_Def => Access_To_Subprogram_Definition (N));