From 316f8a9b2ab3bc228d662ccea7591c4afca76db6 Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 17 Jul 2014 06:47:15 +0000 Subject: 2014-07-17 Robert Dewar * 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 * exp_dist.adb: Minor documentation clarification. 2014-07-17 Hristian Kirtchev * exp_util.adb (Is_Aliased): Revert previous change. 2014-07-17 Vincent Celier * 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 * gnat_ugn.texi: Minor update. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212728 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/sprint.adb | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'gcc/ada/sprint.adb') diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 8e33462d344..f2ad1ec6f45 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -2247,7 +2247,15 @@ package body Sprint is Write_Str_With_Col_Check ("not null "); end if; - Sprint_Node (Object_Definition (Node)); + -- Print type, we used to print the Object_Definition from + -- the node, but it is much more useful to print the Etype + -- of the defining identifier. For example, this will be a + -- clear reference to the Itype with the bounds in the case + -- of an unconstrained array type like String. The object + -- after all is constrained, even if its nominal subtype is + -- unconstrained. + + Sprint_Node (Etype (Def_Id)); if Present (Expression (Node)) then Write_Str (" := "); -- cgit v1.2.1