diff options
| author | Robert Dewar <dewar@adacore.com> | 2012-07-17 09:51:38 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-17 11:51:38 +0200 |
| commit | 2761f6e9c01cd38d26c68dc5d173e3fa41ee87bf (patch) | |
| tree | 50b824e60a6db25a1c65efa8b8ab1cc1151e4280 /gcc | |
| parent | f080def5134dc47dcb997778a35858f208c2c393 (diff) | |
| download | gcc-2761f6e9c01cd38d26c68dc5d173e3fa41ee87bf.zip gcc-2761f6e9c01cd38d26c68dc5d173e3fa41ee87bf.tar.gz gcc-2761f6e9c01cd38d26c68dc5d173e3fa41ee87bf.tar.bz2 | |
sem_prag.adb, treepr.ads: Minor reformatting.
2012-07-17 Robert Dewar <dewar@adacore.com>
* sem_prag.adb, treepr.ads: Minor reformatting.
From-SVN: r189567
Diffstat (limited to 'gcc')
| -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 09bd2d8..8758874 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 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 |