diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 12:02:13 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 12:02:13 +0200 |
| commit | aa3efecdfbd42f3ec8dce3a3d85a0cc8f60e01ce (patch) | |
| tree | 98d8ea606ed1b3f97b7d68b09f7679409a6515c0 /gcc/ada/par-ch4.adb | |
| parent | b7c874a77cff436d8730223b80ffa53d3dba05c3 (diff) | |
| download | gcc-aa3efecdfbd42f3ec8dce3a3d85a0cc8f60e01ce.zip gcc-aa3efecdfbd42f3ec8dce3a3d85a0cc8f60e01ce.tar.gz gcc-aa3efecdfbd42f3ec8dce3a3d85a0cc8f60e01ce.tar.bz2 | |
[multiple changes]
2014-07-31 Robert Dewar <dewar@adacore.com>
* par-ch13.adb (Get_Aspect_Specifications): Set Inside_Depends.
* par-ch2.adb (P_Pragma): Set Inside_Depends.
* par-ch4.adb (P_Simple_Expression): Pass Inside_Depends to
Check_Unary_Plus_Or_Minus.
* scans.ads (Inside_Depends): New flag.
* scng.adb (Scan): Pass Inside_Depends to Check_Arrow.
* style.ads: Add Inside_Depends parameter to Check_Arrow Add
Inside_Depends parameter to Check_Unary_Plus_Or_Minus.
* styleg.adb (Check_Arrow): Handle Inside_Depends case.
(Check_Unary_Plus_Or_Minus): Handle Inside_Depends case.
* styleg.ads: Add Inside_Depends parameter to Check_Arrow Add.
Inside_Depends parameter to Check_Unary_Plus_Or_Minus.
2014-07-31 Javier Miranda <miranda@adacore.com>
* s-vaflop.adb Move the body of function T_To_G before
T_To_D. Required for frontend inlining.
* inline.adb (Has_Excluded_Contract): New subprogram used to
check if a subprogram inlined by the frontend has contracts
which cannot be inlined.
2014-07-31 Bob Duff <duff@adacore.com>
* s-traceb.adb, s-traceb-hpux.adb, s-traceb-mastop.adb:
(Call_Chain): Add 1 to number of frames to skip, to account for
the fact that there's one more frame on the stack.
From-SVN: r213336
Diffstat (limited to 'gcc/ada/par-ch4.adb')
| -rw-r--r-- | gcc/ada/par-ch4.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index e5fb00c..8f6da4e 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -2106,7 +2106,7 @@ package body Ch4 is Node1 := New_Op_Node (P_Unary_Adding_Operator, Tokptr); if Style_Check then - Style.Check_Unary_Plus_Or_Minus; + Style.Check_Unary_Plus_Or_Minus (Inside_Depends); end if; Scan; -- past operator |