exp_dist.ads, [...]: Fix casing error in formal parameter name in call
authorThomas Quinot <quinot@adacore.com>
Tue, 8 Apr 2008 06:51:05 +0000 (08:51 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 8 Apr 2008 06:51:05 +0000 (08:51 +0200)
commit7f0b5314c46929b788c0d407038a8e2bf0767cca
treee4d16f353c75b52be2fc8e98b20dcdac67104266
parent65df5b719406d99296f303a3ba4ccef5a3752e19
exp_dist.ads, [...]: Fix casing error in formal parameter name in call

2008-04-08  Thomas Quinot  <quinot@adacore.com>

* exp_dist.ads, exp_dist.adb: Fix casing error in formal parameter name
in call
(Add_RACW_Features): When processing an RACW in another unit than the
main unit, set Body_Decls to No_List to indicate that the bodies of
the type's TSS must not be generated.
(GARLIC_Support.Add_RACW_Read_Attribute,
GARLIC_Support.Add_RACW_Write_Attribute): Do not generate bodies if
Body_Decls is No_List.
(PolyORB_Support.Add_RACW_Read_Attribute,
PolyORB_Support.Add_RACW_Write_Attribute,
PolyORB_Support.Add_RACW_From_Any,
PolyORB_Support.Add_RACW_To_Any,
PolyORB_Support.Add_RACW_TypeCode): Same.
(Transmit_As_Unconstrained): New function.
(Build_Ordered_Parameters_List): Use the above to order parameters.
(GARLIC_Support.Build_General_Calling_Stubs):
Use the above to determine which parameters to unmarshall using 'Input
at the point where their temporary is declared (as opposed to later on
with a 'Read call).
(PolyORB_Support.Build_General_Calling_Stubs):
Use the above to determine which parameters to unmarshall using From_Any
at the point where their temporary is declared (as opposed to later on
with an assignment).

From-SVN: r134031
gcc/ada/exp_dist.adb
gcc/ada/exp_dist.ads