diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-29 15:07:21 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-01-29 15:07:21 +0100 |
| commit | 42f1d66133be06839a62c257d0f56db2b321d994 (patch) | |
| tree | ad02714b5465afe2a382ed08f4ad633454774c53 /gcc/ada/par-util.adb | |
| parent | 477cfc5b60785205119bc2ab8b97d309e0a422f4 (diff) | |
| download | gcc-42f1d66133be06839a62c257d0f56db2b321d994.zip gcc-42f1d66133be06839a62c257d0f56db2b321d994.tar.gz gcc-42f1d66133be06839a62c257d0f56db2b321d994.tar.bz2 | |
[multiple changes]
2013-01-29 Robert Dewar <dewar@adacore.com>
* par-ch6.adb (No_Constraint_Maybe_Expr_Func): New procedure.
* par-util.adb (No_Constraint): Undo special handling, moved
to par-ch6.adb.
2013-01-29 Robert Dewar <dewar@adacore.com>
* aspects.ads: Aspect Warnings is implementation defined Add
some other missing entries to impl-defined list Mark Warnings
as GNAT pragma in main list.
* sem_ch8.adb: Process aspects for all cases of renaming
declarations.
2013-01-29 Robert Dewar <dewar@adacore.com>
* sem_ch6.adb (Analyze_Function_Call): Set In_Assertion flag.
* sem_elab.adb (Check_Internal_Call_Continue): Do not issue
warnings about possible elaboration error if call is within
an assertion.
* sinfo.ads, sinfo.adb (In_Assertion): New flag in N_Function_Call node.
2013-01-29 Robert Dewar <dewar@adacore.com>
* a-calend-vms.adb, g-eacodu-vms.adb, g-trasym-vms-alpha.adb,
* s-auxdec-vms-ia64.adb, s-mastop-vms.adb, s-osprim-vms.adb,
s-tasdeb-vms.adb: Replace pragma Interface by pragma Import.
2013-01-29 Robert Dewar <dewar@adacore.com>
* opt.ads (Ignore_Style_Checks_Pragmas): New flag.
* par-prag.adb (Par, case Style_Checks): Recognize
Ignore_Style_Checks_Pragmas.
* sem_prag.adb (Analyze_Pragma, case Style_Checks): Recognize
Ignore_Style_Checks_Pragmas.
* switch-c.adb: Recognize -gnateY switch.
* usage.adb: Add documentation for "-gnateY".
* vms_data.ads: Add IGNORE_STYLE_CHECKS_PRAGMAS (-gnateY).
2013-01-29 Vincent Celier <celier@adacore.com>
* clean.adb (Clean_Executables): Add Sid component when calling
Queue.Insert.
* make.adb: When inserting in the Queue, add the Source_Id
(Sid) when it is known (Start_Compile_If_Possible): When the
Source_Id is known (Sid), get the path name of the ALI file
(Full_Lib_File) from it, to avoid finding old ALI files in other
object directories.
* makeutl.ads (Source_Info): New Source_Id component Sid in
Format_Gnatmake variant.
2013-01-29 Robert Dewar <dewar@adacore.com>
* gnat_ugn.texi: Document -gnateY.
2013-01-29 Doug Rupp <rupp@adacore.com>
* s-osinte-vms.ads, s-taprop-vms.adb, system-vms_64.ads,
system-vms-ia64.ads: Replace pragma Interface by pragma Import.
From-SVN: r195536
Diffstat (limited to 'gcc/ada/par-util.adb')
| -rw-r--r-- | gcc/ada/par-util.adb | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/gcc/ada/par-util.adb b/gcc/ada/par-util.adb index e18801f..3b59287 100644 --- a/gcc/ada/par-util.adb +++ b/gcc/ada/par-util.adb @@ -635,14 +635,9 @@ package body Util is procedure No_Constraint is begin - -- If next token is at start of line, don't object, it seems relatively - -- unlikely that a constraint would be on its own starting a line. - - if Token_Is_At_Start_Of_Line then - return; - end if; - - -- Otherwise if we have a token that could start a constraint, object + -- If we have a token that could start a constraint on the same line + -- then cnsider this an illegal constraint. It seems unlikely it could + -- be anything else if it is on the same line. if Token in Token_Class_Consk then Error_Msg_SC ("constraint not allowed here"); |