From 2761f6e9c01cd38d26c68dc5d173e3fa41ee87bf Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 17 Jul 2012 09:51:38 +0000 Subject: sem_prag.adb, treepr.ads: Minor reformatting. 2012-07-17 Robert Dewar * sem_prag.adb, treepr.ads: Minor reformatting. From-SVN: r189567 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/sem_prag.adb | 6 +++--- gcc/ada/treepr.ads | 1 + 3 files changed, 8 insertions(+), 3 deletions(-) (limited to 'gcc/ada') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 09bd2d8..8758874 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2012-07-17 Robert Dewar + * sem_prag.adb, treepr.ads: Minor reformatting. + +2012-07-17 Robert Dewar + * exp_ch9.adb: Minor code reorganization. * exp_ch3.adb: Minor code improvement. diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 72f3cf1..1e6644c 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -7661,6 +7661,7 @@ package body Sem_Prag is GNAT_Pragma; if Warn_On_Obsolescent_Feature then + -- Following message is obsolete ??? Error_Msg_N ("'G'N'A'T pragma cpp'_class is now obsolete and has no " & "effect; replace it by pragma import?", N); @@ -7670,13 +7671,12 @@ package body Sem_Prag is Rewrite (N, Make_Pragma (Loc, - Chars => Name_Import, + Chars => Name_Import, Pragma_Argument_Associations => New_List ( Make_Pragma_Argument_Association (Loc, Expression => Make_Identifier (Loc, Name_CPP)), - New_Copy - (First (Pragma_Argument_Associations (N)))))); + New_Copy (First (Pragma_Argument_Associations (N)))))); Analyze (N); end CPP_Class; diff --git a/gcc/ada/treepr.ads b/gcc/ada/treepr.ads index 700f3de..f223711 100644 --- a/gcc/ada/treepr.ads +++ b/gcc/ada/treepr.ads @@ -74,6 +74,7 @@ package Treepr is procedure psloc (Loc : Source_Ptr); pragma Export (Ada, psloc); -- Prints the sloc Loc + -- Why is this here??? use the routines in Sprint instead ??? -- The following are no longer needed; you can use pp or ppp instead -- cgit v1.1