summaryrefslogtreecommitdiff
path: root/gcc/ada/exp_dist.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2014-07-17 06:47:15 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2014-07-17 06:47:15 +0000
commit316f8a9b2ab3bc228d662ccea7591c4afca76db6 (patch)
tree4d92ba93eaafdfb64c5c62d90193677f7811f7c7 /gcc/ada/exp_dist.adb
parent7a41db5b2e39bcfbf513612fbe4f23891f474f07 (diff)
downloadgcc-316f8a9b2ab3bc228d662ccea7591c4afca76db6.tar.gz
2014-07-17 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Document new restriction No_Long_Long_Integers. * exp_ch4.adb (Make_Array_Comparison_Op): Add note that we could do this by actually expanding a real generic. * a-tags.ads: Add comments about performance. * sprint.adb (Sprint_Node_Actual, case N_Object_Declaration): Print Etype of defining identifier, rather than the object definition. More information. 2014-07-17 Thomas Quinot <quinot@adacore.com> * exp_dist.adb: Minor documentation clarification. 2014-07-17 Hristian Kirtchev <kirtchev@adacore.com> * exp_util.adb (Is_Aliased): Revert previous change. 2014-07-17 Vincent Celier <celier@adacore.com> * g-comlin.adb (Try_Help): New procedure. (Getopt): Use new procedure Try_Help. * g-comlin.ads (Try_Help): New procedure. 2014-07-17 Bob Duff <duff@adacore.com> * gnat_ugn.texi: Minor update. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212728 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_dist.adb')
-rw-r--r--gcc/ada/exp_dist.adb5
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb
index 9e8b32d98ca..ae8a3900aec 100644
--- a/gcc/ada/exp_dist.adb
+++ b/gcc/ada/exp_dist.adb
@@ -2036,7 +2036,10 @@ package body Exp_Dist is
Append_To (Decls, RPC_Receiver_Decl);
else
- -- Comments required here???
+ -- Case of RACW implementing a RAS with the GARLIC PCS: there is
+ -- no RPC receiver in that case, this is just an indication of
+ -- where to insert code in the tree (see comment in declaration of
+ -- type Stub_Structure).
RPC_Receiver_Decl := Last (Decls);
end if;