diff options
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 198d216..819b576 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; |