aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/par-ch4.adb
diff options
context:
space:
mode:
authorBob Duff <duff@adacore.com>2020-04-16 11:19:48 -0400
committerPierre-Marie de Rodat <derodat@adacore.com>2020-06-17 04:14:17 -0400
commitda901811dc478d45e7dc1028dce0bda8abbbee65 (patch)
tree0cd732316e96ad5c35f111fd3c6f36d9bceea5a7 /gcc/ada/par-ch4.adb
parent831aff1d8be79fda3ec3172fdbcbbec3c8be319d (diff)
downloadgcc-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.adb2
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