From ff149a358cd46b8e54a0080e8c714103a8def136 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 30 Nov 2009 11:20:47 +0100 Subject: [multiple changes] 2009-11-30 Vincent Celier * prj-makr.adb (Source_Files): New hash table to keep track of source file names. (Finalize): Avoid putting several times the same source file name in the source list file. * prj-pp.adb (Print): Fix a bug in the placement of "at nn" for associative array indexes. 2009-11-30 Robert Dewar * g-dyntab.ads: Add missing pragma Compiler_Unit 2009-11-30 Thomas Quinot * s-crtrun.ads, s-crtl.ads, g-stseme.adb, Makefile.rtl, s-fileio.adb (System.CRTL.Runtime): New unit, to contain parts of s-crtl that are used in the Ada runtime but can't be used in the compiler because of bootstrap issues. * socket.c, s-oscons-tmplt.c, g-sothco.ads (System.OS_Constants.SIZEOF_struct_servent): New constant. Use s-oscons constant instead of external variable to get size of struct hostent. From-SVN: r154772 --- gcc/ada/prj-pp.adb | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'gcc/ada/prj-pp.adb') diff --git a/gcc/ada/prj-pp.adb b/gcc/ada/prj-pp.adb index cc88f8e..d318c11 100644 --- a/gcc/ada/prj-pp.adb +++ b/gcc/ada/prj-pp.adb @@ -532,6 +532,12 @@ package body Prj.PP is Write_String (" ("); Output_String (Associative_Array_Index_Of (Node, In_Tree)); + + if Source_Index_Of (Node, In_Tree) /= 0 then + Write_String (" at"); + Write_String (Source_Index_Of (Node, In_Tree)'Img); + end if; + Write_String (")"); end if; @@ -574,11 +580,6 @@ package body Prj.PP is Output_Attribute_Name (Name_Of (Node, In_Tree)); end if; - if Source_Index_Of (Node, In_Tree) /= 0 then - Write_String (" at"); - Write_String (Source_Index_Of (Node, In_Tree)'Img); - end if; - Write_String (";"); Write_End_Of_Line_Comment (Node); Print (First_Comment_After (Node, In_Tree), Indent); -- cgit v1.1