diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-08 11:49:44 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-08 11:49:44 +0000 |
commit | 2866d595072ed6d9048ce7dec6263e1cdf1c7975 (patch) | |
tree | 356a0ddde24c2878297f41885b557aa46dd9d566 /gcc/ada/exp_ch5.adb | |
parent | 3801805db246eb5c472c4a2a86c47e700490b537 (diff) | |
download | gcc-2866d595072ed6d9048ce7dec6263e1cdf1c7975.tar.gz |
* g-socket.ads (Get_Host_By_Address, Get_Host_By_Name): Clarify
documentation of the behaviour of these functions when passed an IP
address that has no record in the system hosts database and no reverse
record in the DNS.
* cstand.adb, a-tags.ads: Fix typos in comment.
* exp_ch2.adb, exp_ch3.adb, exp_ch5.adb, exp_ch8.adb,
exp_ch9.adb, exp_pakd.adb, interfac.ads, sem_ch6.adb,
sem_ch7.adb, sem_ch10.adb, sem_ch13.adb, sem_ch3.adb,
s-poosiz.ads: Minor reformatting
* make.adb: Minor reformatting
Add some ??? comments asking for more comments
* s-poosiz.adb: Minor reformatting
Add comments on alignment requirement
* sinfo.ads: Remove obsolete comment and fix typo.
* gnat_ugn.texi: Update the section "The GNAT Driver and Project
Files" with the new tool and package names.
Reformatting to suppress most of the warnings for line too long
Document the new section "Project Search Path:" in the output of
gnatls -v.
Add gnatmetric section
* vms_data.ads: Correct GNAT METRIC qualifiers: -I-, -Idir and
-gnatec= are not direct switches of gnatmetric. Changed -eis to -eps
and -eit to -ept. Added qualifier
/ELEMENT_METRICS=CONSTRUCT_NESTING_MAX for new switch -ec.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@91896 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch5.adb')
-rw-r--r-- | gcc/ada/exp_ch5.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 198d216b7b8..819b576ca45 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -387,7 +387,7 @@ package body Exp_Ch5 is -- File.Storage := Contents; -- end Write_All; - -- We expand to a loop in either of these two cases. + -- We expand to a loop in either of these two cases -- Question for future thought. Another potentially more efficient -- approach would be to create the actual subtype, and then do an @@ -1459,7 +1459,7 @@ package body Exp_Ch5 is end if; end loop; - -- Now we can insert and analyze the pre-assignment. + -- Now we can insert and analyze the pre-assignment -- If the right-hand side requires a transient scope, it has -- already been placed on the stack. However, the declaration is @@ -2480,7 +2480,7 @@ package body Exp_Ch5 is Enumeration_Rep (First_Literal (Btype))), Right_Opnd => New_Reference_To (New_Id, Loc))); else - -- Use the constructed array Enum_Pos_To_Rep. + -- Use the constructed array Enum_Pos_To_Rep Expr := Make_Indexed_Component (Loc, @@ -2667,7 +2667,7 @@ package body Exp_Ch5 is if No (Exp) then Kind := Ekind (Scope_Id); - -- If it is a return from procedures do no extra steps. + -- If it is a return from procedures do no extra steps if Kind = E_Procedure or else Kind = E_Generic_Procedure then return; |