diff options
Diffstat (limited to 'gcc/ada/itypes.adb')
-rw-r--r-- | gcc/ada/itypes.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/itypes.adb b/gcc/ada/itypes.adb index 7c973347538..12864b84be2 100644 --- a/gcc/ada/itypes.adb +++ b/gcc/ada/itypes.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -26,6 +26,7 @@ with Atree; use Atree; with Einfo; use Einfo; +with Sem; use Sem; with Sem_Util; use Sem_Util; with Sinfo; use Sinfo; with Stand; use Stand; @@ -62,6 +63,11 @@ package body Itypes is Set_Etype (Typ, Any_Type); Set_Is_Itype (Typ); Set_Associated_Node_For_Itype (Typ, Related_Nod); + + if In_Deleted_Code then + Set_Is_Frozen (Typ); + end if; + return Typ; end Create_Itype; |