| commit | c857f5ed55dd4f8f02892da3c79a595b39e376e5 | |
| author | Thomas Quinot <quinot@adacore.com> | |
| Tue, 29 Mar 2005 16:15:11 +0000 (29 18:15 +0200) | ||
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | |
| Tue, 29 Mar 2005 16:15:11 +0000 (29 18:15 +0200) | ||
| tree | 7013380c9973522d585bba691157d9afdd9e7a7b | treesnapshot (tar.gz zip) |
| parent | 57848bf789f92b5787fef0249c8d7254b02e5825 | commitdiff |
exp_dist.adb (Add_RAST_Features, [...]): Set the From_Any...
2005-03-29 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb (Add_RAST_Features, PolyORB version): Set the From_Any,
To_Any and TypeCode TSSs on RAS types directly using Set_TSS, instead
of using Set_Renaming_TSS. This ensures that the TSS bodies are not
analyzed if expansion is disabled (which could otherwise cause spurious
error messages if expansion has been disabled due to previous
(unrelated) errors).
* sem_prag.adb (Analyze_Pragma, case Asynchronous): If RAS expansion
is disabled, the entity denoted by the argument is the access type
itself, not an underlying record type, so there is no need to go back
to the Corresponding_Remote_Type.
From-SVN: r97171
2005-03-29 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb (Add_RAST_Features, PolyORB version): Set the From_Any,
To_Any and TypeCode TSSs on RAS types directly using Set_TSS, instead
of using Set_Renaming_TSS. This ensures that the TSS bodies are not
analyzed if expansion is disabled (which could otherwise cause spurious
error messages if expansion has been disabled due to previous
(unrelated) errors).
* sem_prag.adb (Analyze_Pragma, case Asynchronous): If RAS expansion
is disabled, the entity denoted by the argument is the access type
itself, not an underlying record type, so there is no need to go back
to the Corresponding_Remote_Type.
From-SVN: r97171
| gcc/ada/exp_dist.adb | diffblobblamehistory | |
| gcc/ada/sem_prag.adb | diffblobblamehistory |