Mercurial > hg > CbC > CbC_gcc
comparison gcc/ada/aspects.adb @ 145:1830386684a0
gcc-9.2.0
| author | anatofuz |
|---|---|
| date | Thu, 13 Feb 2020 11:34:05 +0900 |
| parents | 84e7813d76e9 |
| children |
comparison
equal
deleted
inserted
replaced
| 131:84e7813d76e9 | 145:1830386684a0 |
|---|---|
| 4 -- -- | 4 -- -- |
| 5 -- A S P E C T S -- | 5 -- A S P E C T S -- |
| 6 -- -- | 6 -- -- |
| 7 -- B o d y -- | 7 -- B o d y -- |
| 8 -- -- | 8 -- -- |
| 9 -- Copyright (C) 2010-2018, Free Software Foundation, Inc. -- | 9 -- Copyright (C) 2010-2019, Free Software Foundation, Inc. -- |
| 10 -- -- | 10 -- -- |
| 11 -- GNAT is free software; you can redistribute it and/or modify it under -- | 11 -- GNAT is free software; you can redistribute it and/or modify it under -- |
| 12 -- terms of the GNU General Public License as published by the Free Soft- -- | 12 -- terms of the GNU General Public License as published by the Free Soft- -- |
| 13 -- ware Foundation; either version 3, or (at your option) any later ver- -- | 13 -- ware Foundation; either version 3, or (at your option) any later ver- -- |
| 14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- | 14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- |
| 223 | 223 |
| 224 if Is_Class_Wide_Type (Owner) and then Inherited_Aspect (A) then | 224 if Is_Class_Wide_Type (Owner) and then Inherited_Aspect (A) then |
| 225 Owner := Root_Type (Owner); | 225 Owner := Root_Type (Owner); |
| 226 end if; | 226 end if; |
| 227 | 227 |
| 228 if Is_Private_Type (Owner) and then Present (Full_View (Owner)) then | 228 if Is_Private_Type (Owner) |
| 229 and then Present (Full_View (Owner)) | |
| 230 and then not Operational_Aspect (A) | |
| 231 then | |
| 229 Owner := Full_View (Owner); | 232 Owner := Full_View (Owner); |
| 230 end if; | 233 end if; |
| 231 end if; | 234 end if; |
| 232 | 235 |
| 233 -- Search the representation items for the desired aspect | 236 -- Search the representation items for the desired aspect |
| 567 Aspect_Link_Name => Aspect_Link_Name, | 570 Aspect_Link_Name => Aspect_Link_Name, |
| 568 Aspect_Linker_Section => Aspect_Linker_Section, | 571 Aspect_Linker_Section => Aspect_Linker_Section, |
| 569 Aspect_Lock_Free => Aspect_Lock_Free, | 572 Aspect_Lock_Free => Aspect_Lock_Free, |
| 570 Aspect_Machine_Radix => Aspect_Machine_Radix, | 573 Aspect_Machine_Radix => Aspect_Machine_Radix, |
| 571 Aspect_Max_Entry_Queue_Depth => Aspect_Max_Entry_Queue_Depth, | 574 Aspect_Max_Entry_Queue_Depth => Aspect_Max_Entry_Queue_Depth, |
| 575 Aspect_Max_Entry_Queue_Length => Aspect_Max_Entry_Queue_Length, | |
| 572 Aspect_Max_Queue_Length => Aspect_Max_Queue_Length, | 576 Aspect_Max_Queue_Length => Aspect_Max_Queue_Length, |
| 577 Aspect_No_Caching => Aspect_No_Caching, | |
| 573 Aspect_No_Elaboration_Code_All => Aspect_No_Elaboration_Code_All, | 578 Aspect_No_Elaboration_Code_All => Aspect_No_Elaboration_Code_All, |
| 574 Aspect_No_Inline => Aspect_No_Inline, | 579 Aspect_No_Inline => Aspect_No_Inline, |
| 575 Aspect_No_Return => Aspect_No_Return, | 580 Aspect_No_Return => Aspect_No_Return, |
| 576 Aspect_No_Tagged_Streams => Aspect_No_Tagged_Streams, | 581 Aspect_No_Tagged_Streams => Aspect_No_Tagged_Streams, |
| 577 Aspect_Obsolescent => Aspect_Obsolescent, | 582 Aspect_Obsolescent => Aspect_Obsolescent, |