aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/sem_prag.adb
diff options
context:
space:
mode:
authorRobert Dewar <dewar@adacore.com>2013-09-10 15:15:20 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2013-09-10 17:15:20 +0200
commit7b64b700f29a6753d645e3c6a172039fbda94ac6 (patch)
tree3d437a8310cffd03bf4ed49d69d9394c39592727 /gcc/ada/sem_prag.adb
parent80e59506c2065fe2f4550644e0fbf2b585ab5be3 (diff)
downloadgcc-7b64b700f29a6753d645e3c6a172039fbda94ac6.zip
gcc-7b64b700f29a6753d645e3c6a172039fbda94ac6.tar.gz
gcc-7b64b700f29a6753d645e3c6a172039fbda94ac6.tar.bz2
sem_prag.adb (Analyze_Pragma, [...]): Don't allow REASON parameter in compiler units (bootstrap issues).
2013-09-10 Robert Dewar <dewar@adacore.com> * sem_prag.adb (Analyze_Pragma, case Warnings): Don't allow REASON parameter in compiler units (bootstrap issues). 2013-09-10 Robert Dewar <dewar@adacore.com> * gnat1drv.adb (Adjust_Global_Switches): Output warning if -gnateE specified for a target that does not support it. From-SVN: r202463
Diffstat (limited to 'gcc/ada/sem_prag.adb')
-rw-r--r--gcc/ada/sem_prag.adb4
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 9a1332d..0cf4fc7 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -17958,6 +17958,10 @@ package body Sem_Prag is
then
Check_Arg_Is_Static_Expression (Last_Arg, Standard_String);
Arg_Count := Arg_Count - 1;
+
+ -- Not allowed in compiler units (bootstrap issues)
+
+ Check_Compiler_Unit (N);
end if;
end;