diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-22 13:24:46 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-22 13:24:46 +0000 |
| commit | 99606d61803f5adcf9f3a353f4a89b89a72bcd1a (patch) | |
| tree | b6ae0e33c37eba57af5dfd207859376789043227 /gcc/ada/exp_dist.ads | |
| parent | eae1d4d1fe9cda8ad33a8e5a439ff6c45c1c08d5 (diff) | |
| download | gcc-99606d61803f5adcf9f3a353f4a89b89a72bcd1a.tar.gz | |
2009-07-22 Robert Dewar <dewar@adacore.com>
* exp_tss.ads, sem_eval.adb: Minor reformatting
2009-07-22 Bob Duff <duff@adacore.com>
* exp_dist.adb, exp_dist.ads: Update comments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149933 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_dist.ads')
| -rw-r--r-- | gcc/ada/exp_dist.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_dist.ads b/gcc/ada/exp_dist.ads index d6fc1bb8ead..ff1c343ec69 100644 --- a/gcc/ada/exp_dist.ads +++ b/gcc/ada/exp_dist.ads @@ -58,7 +58,7 @@ package Exp_Dist is Body_Decls : List_Id); -- Add primitive for the stub type, and the RPC receiver. The declarations -- are inserted after Insertion_Node, while the bodies are appended at the - -- end of Decls. + -- end of Body_Decls. procedure Remote_Types_Tagged_Full_View_Encountered (Full_View : Entity_Id); @@ -75,13 +75,13 @@ package Exp_Dist is -- at the end of the compilation unit, which is a package spec. procedure Expand_Receiving_Stubs_Bodies (Unit_Node : Node_Id); - -- Call the expansion phase for the calling stubs. The code will be added + -- Call the expansion phase for the receiving stubs. The code will be added -- at the end of the compilation unit, which may be either a package spec -- or a package body. procedure Expand_All_Calls_Remote_Subprogram_Call (N : Node_Id); -- Rewrite a call to a subprogram located in a Remote_Call_Interface - -- package on which the pragma All_Calls_Remote applies so that it + -- package to which the pragma All_Calls_Remote applies so that it -- goes through the PCS. N is either an N_Procedure_Call_Statement -- or an N_Function_Call node. |