Message ID | 20110803081118.GA21537@adacore.com |
---|---|
State | New |
Headers | show |
Index: sem_ch3.adb =================================================================== --- sem_ch3.adb (revision 177237) +++ sem_ch3.adb (working copy) @@ -8631,8 +8631,15 @@ is IR : constant Node_Id := Make_Itype_Reference (Sloc (Nod)); begin - Set_Itype (IR, Ityp); - Insert_After (Nod, IR); + + -- Itype references are only created for use by the back-end. + + if Inside_A_Generic then + return; + else + Set_Itype (IR, Ityp); + Insert_After (Nod, IR); + end if; end Build_Itype_Reference; ------------------------