diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-17 09:51:38 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-17 09:51:38 +0000 |
| commit | fc34391dd446f3f545140d987fe6b348c464b4ea (patch) | |
| tree | 50b824e60a6db25a1c65efa8b8ab1cc1151e4280 | |
| parent | e22bc81a8f6529d5ef273936de72a97910e3f9d3 (diff) | |
| download | gcc-fc34391dd446f3f545140d987fe6b348c464b4ea.tar.gz | |
2012-07-17 Robert Dewar <dewar@adacore.com>
* sem_prag.adb, treepr.ads: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189567 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_prag.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/treepr.ads | 1 |
3 files changed, 8 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 09bd2d8e239..8758874c463 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2012-07-17 Robert Dewar <dewar@adacore.com> + * sem_prag.adb, treepr.ads: Minor reformatting. + +2012-07-17 Robert Dewar <dewar@adacore.com> + * 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 72f3cf1d39f..1e6644c12f6 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 700f3de6a39..f223711f39a 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 |