From 1fb63e89dfeff6b42792967c764df89d0ca1d8c6 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Thu, 31 Jul 2014 09:37:12 +0000 Subject: exp_ch5.adb, [...]: Minor reformatting. 2014-07-31 Robert Dewar * exp_ch5.adb, sem_ch3.adb, exp_ch7.adb, exp_util.adb, exp_ch9.adb, sem_ch7.adb, checks.adb, s-exctra.adb, exp_ch6.adb, exp_disp.adb, exp_dist.adb, sem_ch13.adb, exp_strm.adb, exp_ch3.adb: Minor reformatting. From-SVN: r213325 --- gcc/ada/sem_ch13.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gcc/ada/sem_ch13.adb') diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index bbbf712..2ae6ef9 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -169,10 +169,10 @@ package body Sem_Ch13 is Nam : TSS_Name_Type); -- Create a subprogram renaming of a given stream attribute to the -- designated subprogram and then in the tagged case, provide this as a - -- primitive operation, or in the non-tagged case make an appropriate TSS + -- primitive operation, or in the untagged case make an appropriate TSS -- entry. This is more properly an expansion activity than just semantics, - -- but the presence of user-defined stream functions for limited types is a - -- legality check, which is why this takes place here rather than in + -- but the presence of user-defined stream functions for limited types + -- is a legality check, which is why this takes place here rather than in -- exp_ch13, where it was previously. Nam indicates the name of the TSS -- function to be generated. -- @@ -11206,7 +11206,7 @@ package body Sem_Ch13 is return True; - -- Check for case of non-tagged derived type whose parent either has + -- Check for case of untagged derived type whose parent either has -- primitive operations, or is a by reference type (RM 13.1(10)). In -- this case we do not output a Too_Late message, since there is no -- earlier point where the rep item could be placed to make it legal. -- cgit v1.1