From 7c0c194ba4cd9a9bb779075cb977cb319882bc0b Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 31 Jul 2014 11:38:40 +0200 Subject: [multiple changes] 2014-07-31 Ed Schonberg * exp_ch3.adb (Expand_Freeze_Record_Type): Do not build an invariant procedure for an internally generated subtype that is created for an object of a class-wide type. 2014-07-31 Vincent Celier * prj-nmsc.adb, errutil.adb: Make code similar to Errout. 2014-07-31 Gary Dismukes * gnat_rm.texi, sem_aux.ads, einfo.ads, sem_util.ads, sem_ch6.adb, exp_disp.adb: Minor reformatting. From-SVN: r213326 --- gcc/ada/sem_aux.ads | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/ada/sem_aux.ads') diff --git a/gcc/ada/sem_aux.ads b/gcc/ada/sem_aux.ads index c40ddab..bb539e2 100644 --- a/gcc/ada/sem_aux.ads +++ b/gcc/ada/sem_aux.ads @@ -131,7 +131,7 @@ package Sem_Aux is -- stored discriminants are the same as the actual discriminants of the -- type, and hence this function is the same as First_Discriminant. -- - -- For derived non-tagged types that rename discriminants in the root type + -- For derived untagged types that rename discriminants in the root type -- this is the first of the discriminants that occur in the root type. To -- be precise, in this case stored discriminants are entities attached to -- the entity chain of the derived type which are a copy of the -- cgit v1.1