diff options
author | Robert Dewar <dewar@adacore.com> | 2010-01-26 13:29:46 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-01-26 14:29:46 +0100 |
commit | e0f66eea4fd4bafb915a6435ba1f3063d0757bbe (patch) | |
tree | c2ac09216cbd9c982a2daebb7d4a7b50e5df5d2e /gcc/ada/scos.ads | |
parent | 7f657dde6f3fff3ed52f89a110caaad27fc1f996 (diff) | |
download | gcc-e0f66eea4fd4bafb915a6435ba1f3063d0757bbe.zip gcc-e0f66eea4fd4bafb915a6435ba1f3063d0757bbe.tar.gz gcc-e0f66eea4fd4bafb915a6435ba1f3063d0757bbe.tar.bz2 |
par_sco.adb (Traverse_Declarations_Or_Statements): Separate F/W qualifiers for FOR/WHILE loops
2010-01-26 Robert Dewar <dewar@adacore.com>
* par_sco.adb (Traverse_Declarations_Or_Statements): Separate F/W
qualifiers for FOR/WHILE loops
* scos.ads: Use separate type letters F/W for for/while loops
From-SVN: r156245
Diffstat (limited to 'gcc/ada/scos.ads')
-rw-r--r-- | gcc/ada/scos.ads | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/gcc/ada/scos.ads b/gcc/ada/scos.ads index b8dd08d..6cc8742 100644 --- a/gcc/ada/scos.ads +++ b/gcc/ada/scos.ads @@ -105,8 +105,9 @@ package SCOs is -- and the following regions of the syntax tree: -- the part of a case_statement from CASE up to the expression - -- the part of a FOR iteration scheme from FOR up to the + -- the part of a FOR loop iteration scheme from FOR up to the -- loop_parameter_specification + -- the part of a WHILE loop up to the condition -- the part of an extended_return_statement from RETURN up to the -- expression (if present) or to the return_subtype_indication (if -- no expression) @@ -148,11 +149,13 @@ package SCOs is -- r renaming declaration -- i generic instantiation -- C CASE statement (includes only the expression) - -- F FOR/WHILE loop statement (includes only the iteration scheme) + -- E EXIT statement + -- F FOR loop statement (includes only the iteration scheme) -- I IF statement (includes only the condition [in the RM sense, which -- is a decision in the SCO sense]) -- P PRAGMA -- R extended RETURN statement + -- W WHILE loop statement (includes only the condition) -- and is omitted for all other cases. @@ -278,9 +281,10 @@ package SCOs is -- Statements -- C1 = 'S' for entry point, 's' otherwise - -- C2 = 't', 's', 'o', 'r', 'i', 'C', 'F', 'I', 'P', 'R', ' ' + -- C2 = 't', 's', 'o', 'r', 'i', + -- 'C', 'E', 'F', 'I', 'P', 'R', 'W', ' ' -- (type/subtype/object/renaming/instantiation/ - -- CASE/FOR or WHILE/IF/PRAGMA/RETURN/other) + -- CASE/EXIT/FOR/IF/PRAGMA/RETURN/WHILE/other) -- From = starting source location -- To = ending source location -- Last = False for all but the last entry, True for last entry |