diff options
author | Bob Duff <duff@adacore.com> | 2020-04-16 11:19:48 -0400 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-17 04:14:17 -0400 |
commit | da901811dc478d45e7dc1028dce0bda8abbbee65 (patch) | |
tree | 0cd732316e96ad5c35f111fd3c6f36d9bceea5a7 /gcc/ada/par-ch4.adb | |
parent | 831aff1d8be79fda3ec3172fdbcbbec3c8be319d (diff) | |
download | gcc-da901811dc478d45e7dc1028dce0bda8abbbee65.zip gcc-da901811dc478d45e7dc1028dce0bda8abbbee65.tar.gz gcc-da901811dc478d45e7dc1028dce0bda8abbbee65.tar.bz2 |
[Ada] Do not give "bad indentation" error inside a declare_expression
2020-06-17 Bob Duff <duff@adacore.com>
gcc/ada/
* par.adb (P_Basic_Declarative_Items): Update comment about
Declare_Expression.
* par-ch3.adb (P_Declarative_Items): Pass in Declare_Expression
flag, and if True, skip the call to Style.Check_Indentation.
* par-ch4.adb (P_Declare_Expression): Fix incorrect comment.
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 e3f3f06..0360212 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -3587,7 +3587,7 @@ package body Ch4 is function P_Declare_Expression return Node_Id is Loc : constant Source_Ptr := Token_Ptr; begin - Scan; -- past IF + Scan; -- past DECLARE declare Actions : constant List_Id := P_Basic_Declarative_Items |