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 /gcc/ada/sem_prag.adb | |
| 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
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 6 |
1 files changed, 3 insertions, 3 deletions
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; |