| commit | ce4718eca7efacc5a97204bef6571a96c6ad391f | |
| author | Eric Botcazou <ebotcazou@adacore.com> | |
| Wed, 8 Mar 2023 22:02:34 +0000 (8 23:02 +0100) | ||
| committer | Marc Poulhiès <poulhies@adacore.com> | |
| Thu, 25 May 2023 07:44:18 +0000 (25 09:44 +0200) | ||
| tree | 783c514358db07c01a752b94e94d5a6dda05ef56 | treesnapshot (tar.gz zip) |
| parent | 31365eda4602181acced5b0479eb50ef1213e836 | commitdiff |
ada: Minor adjustments to Standard_Address
Standard_Address is an internal entity that is meant to be a clone of
System.Address built at compilation startup. It needs to be seen as a
bona-fide address by the code generator. For the sake of completeness,
it is also given its modulus, although this does not matter in practice.
gcc/ada/
* cstand.adb (Create_Standard): Set the Is_Descendant_Of_Address
flag on Standard_Address.
* freeze.adb (Freeze_Entity): Copy the modulus of System.Address
onto Standard_Address.
Standard_Address is an internal entity that is meant to be a clone of
System.Address built at compilation startup. It needs to be seen as a
bona-fide address by the code generator. For the sake of completeness,
it is also given its modulus, although this does not matter in practice.
gcc/ada/
* cstand.adb (Create_Standard): Set the Is_Descendant_Of_Address
flag on Standard_Address.
* freeze.adb (Freeze_Entity): Copy the modulus of System.Address
onto Standard_Address.
| gcc/ada/cstand.adb | diffblobblamehistory | |
| gcc/ada/freeze.adb | diffblobblamehistory |