mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-04 17:51:03 +08:00
Code Issues Packages Projects Releases Wiki Activity

par_sco.adb (Traverse_Declarations_Or_Statements): Add processing for Case.

Browse Source 
2010-01-26  Robert Dewar  <dewar@adacore.com>

	* par_sco.adb (Traverse_Declarations_Or_Statements): Add processing for
	Case.

From-SVN: r156240
This commit is contained in:
Robert Dewar 2010-01-26 10:20:43 +00:00 committed by Arnaud Charlet
parent 55e4d23d2b
commit 82c7a5b12c
2 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2010-01-26 Robert Dewar <dewar@adacore.com>
* par_sco.adb (Traverse_Declarations_Or_Statements): Add processing for
Case.
2010-01-26 Robert Dewar <dewar@adacore.com>
* par_sco.adb (Is_Logical_Operator): Exclude AND/OR/XOR

27
gcc/ada/par_sco.adb
View File

@ -887,7 +887,32 @@ package body Par_SCO is
Traverse_Declarations_Or_Statements (Else_Statements (N));
-- Unconditional exit points
-- Case statement
when N_Case_Statement =>
-- We include the expression, but not any of the case
-- branches in the generated statement sequence that
-- includes this case statement.
Sloc_Range (Expression (N), Dummy, Stop);
Set_Statement_Entry;
Process_Decisions (Expression (N), 'X');
-- Process case branches
declare
Alt : Node_Id;
begin
Alt := First (Alternatives (N));
while Present (Alt) loop
Traverse_Declarations_Or_Statements (Statements (Alt));
Next (Alt);
end loop;
end;
-- Unconditional exit points
when N_Requeue_Statement |
N_Goto_Statement |