diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-12-05 11:16:09 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-12-05 11:16:09 +0000 |
| commit | 8ae29f8f6a26064cbfcd01f7142e6601100c81c4 (patch) | |
| tree | 93201bf39cb86e56385dbb10972abddf8b0a4371 /gcc/ada/exp_prag.adb | |
| parent | 29b6ba3e1646dc62b2a7d8e8b94004b8f7db7222 (diff) | |
| download | gcc-8ae29f8f6a26064cbfcd01f7142e6601100c81c4.tar.gz | |
Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@194212 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_prag.adb')
| -rw-r--r-- | gcc/ada/exp_prag.adb | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb index 94ca24202e0..d34322dc626 100644 --- a/gcc/ada/exp_prag.adb +++ b/gcc/ada/exp_prag.adb @@ -844,15 +844,16 @@ package body Exp_Prag is -- end loop; procedure Expand_Pragma_Loop_Variant (N : Node_Id) is - Last_Var : constant Node_Id := - Last (Pragma_Argument_Associations (N)); - Loc : constant Source_Ptr := Sloc (N); - Curr_Assign : List_Id := No_List; - Flag_Id : Entity_Id := Empty; - If_Stmt : Node_Id := Empty; + Loc : constant Source_Ptr := Sloc (N); + + Last_Var : constant Node_Id := Last (Pragma_Argument_Associations (N)); + + Curr_Assign : List_Id := No_List; + Flag_Id : Entity_Id := Empty; + If_Stmt : Node_Id := Empty; + Old_Assign : List_Id := No_List; Loop_Scop : Entity_Id; Loop_Stmt : Node_Id; - Old_Assign : List_Id := No_List; Variant : Node_Id; procedure Process_Variant (Variant : Node_Id; Is_Last : Boolean); @@ -883,7 +884,6 @@ package body Exp_Prag is begin if Chars (Variant) = Name_Increases then return Make_Op_Gt (Loc, Curr_Val, Old_Val); - else pragma Assert (Chars (Variant) = Name_Decreases); return Make_Op_Lt (Loc, Curr_Val, Old_Val); end if; @@ -959,7 +959,7 @@ package body Exp_Prag is -- Generate: -- Old : <type of Expr>; - Old_Id := Make_Temporary (Loc, 'P'); + Old_Id := Make_Temporary (Loc, 'P'); Insert_Action (Loop_Stmt, Make_Object_Declaration (Loop_Loc, |