diff options
| author | Ralf Wildenhues <Ralf.Wildenhues@gmx.de> | 2008-03-24 17:48:07 +0000 |
|---|---|---|
| committer | Ralf Wildenhues <rwild@gcc.gnu.org> | 2008-03-24 17:48:07 +0000 |
| commit | 8fc789c82e053517281e28e141f8832d5c2f7f6e (patch) | |
| tree | 89b2171703528d83f5a20ddb5bbf2e0adb78a9ad /gcc/ada/9drpc.adb | |
| parent | 01b119402f3f7e1edf6e72ad00499ba1ff80cb8e (diff) | |
| download | gcc-8fc789c82e053517281e28e141f8832d5c2f7f6e.tar.gz | |
9drpc.adb, [...]: Fix comment typos.
2008-03-24 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
* 9drpc.adb, a-caldel-vms.adb, a-caldel.adb,
a-calend-vms.adb, a-calend.adb, a-calend.ads,
a-calfor.adb, a-chahan.ads, a-chtgke.adb,
a-cihama.ads, a-ciorse.adb, a-clrefi.ads,
a-cohama.ads, a-comlin.ads, a-coorse.adb,
a-crbtgk.adb, a-direct.adb, a-except-2005.adb,
a-except-2005.ads, a-except.adb, a-except.ads,
a-exexda.adb, a-exexpr-gcc.adb, a-exexpr.adb,
a-exextr.adb, a-filico.ads, a-finali.ads,
a-intnam-aix.ads, a-intnam-solaris.ads, a-ngcefu.adb,
a-ngelfu.adb, a-numaux-darwin.adb, a-numeri.ads,
a-sequio.ads, a-strbou.ads, a-strfix.adb,
checks.adb, exp_ch3.adb, exp_ch4.adb,
exp_ch4.ads, exp_ch5.adb, exp_ch6.adb,
exp_ch6.ads, exp_ch7.adb, exp_ch7.ads,
exp_ch9.adb, exp_ch9.ads, exp_dbug.adb,
exp_dbug.ads, exp_disp.adb, exp_dist.adb,
exp_dist.ads, exp_fixd.adb, exp_fixd.ads: Fix comment typos.
From-SVN: r133483
Diffstat (limited to 'gcc/ada/9drpc.adb')
| -rw-r--r-- | gcc/ada/9drpc.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/9drpc.adb b/gcc/ada/9drpc.adb index 75acad70ded..a867313fc94 100644 --- a/gcc/ada/9drpc.adb +++ b/gcc/ada/9drpc.adb @@ -81,7 +81,7 @@ package body System.RPC is -- or when a write procedure is executed on a full stream Partition_RPC_Receiver : RPC_Receiver; - -- Cache the RPC_Recevier passed by Establish_RPC_Receiver + -- Cache the RPC_Receiver passed by Establish_RPC_Receiver type Anonymous_Task_Node; @@ -155,7 +155,7 @@ package body System.RPC is entry Wake_Up (Request : Request_Id_Type; Length : Ada.Streams.Stream_Element_Count); - -- To wake up the calling stub when the environnement task has + -- To wake up the calling stub when the environment task has -- received a reply for this request end Dispatcher; @@ -544,7 +544,7 @@ package body System.RPC is New_Result : aliased Params_Stream_Type (R_Length); begin -- Adjust the Result stream size right now to be able to load - -- the stream in one receive call. Create a temporary resutl + -- the stream in one receive call. Create a temporary result -- that will be substituted to Do_RPC one Streams.Allocate (New_Result); @@ -728,7 +728,7 @@ package body System.RPC is Request := Last_Request; -- << TODO >> - -- ??? Avaibility check + -- ??? Availability check if Last_Request = Request_Id_Type'Last then Last_Request := Request_Id_Type'First; @@ -867,7 +867,7 @@ package body System.RPC is (Header'Access, Streams.Get_Stream_Size (Result'Access)); - -- Get a protocol method to comunicate with the remote + -- Get a protocol method to communicate with the remote -- partition and give the message size D (D_Communication, @@ -1010,7 +1010,7 @@ package body System.RPC is Garbage_Collector.Allocate (Anonymous); -- We subtracted the size of the header from the size of the - -- global message in order to provide immediatly Params size + -- global message in order to provide immediately Params size Anonymous.Element.Start (Message_Id, |